Exclusively for Visual Basic 6.0 Programmers Only!

bryan1207 · Sep 24, 2012

OMGRHEAT said:
b1.Open "SELECT * FROM tblborrowers WHERE Bid = '" & txtbid1.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b1.EOF Then
txtbid1 = b1.Fields("bid")
End If
b2.Open "SELECT * FROM tblbooks WHERE Bid = '" & txtbid2.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b2.EOF Then
txtbid2 = b2.Fields("bid")
Else
MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID"
End If
b1.Close
b2.Close
With issue
.Open "SELECT * FROM tblissue", gcon, adOpenStatic, adLockOptimistic
.AddNew
.Fields("BID") = txtbid1.Text
.Fields("Bid2") = txtbid2.Text
.Fields("dater") = txtdater.Text
.Fields("datei") = txtdatei.Text
.Update
.Close
End With
End Sub

pa help naman poh dito .. gusto ko po kasi pag invalid yung id sa txtbid1 at txtbid2 hindi po sya mag sasave sa database pa help naman poh

Pag ka invalid niya Sir,

Code:

Exit Sub

mo.

Code:

   MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID" : Exit Sub

macutz · Sep 24, 2012

bryan1207 said:

Code:

Dim strsql As String
strsql = "UPDATE Complaints SET " _
& "complainantsfirstname = '" & cfname.Text & "" & "', ""complainantsmiddlename = '" & cmname.Text & "" & "', " _
& "complainantslastname = '" & clname.Text & "" & "', ""complainantsnationality = '" & cn.Text & "" & "', " _
& "complainantsage = '" & ccage.Text & "" & "', ""complainantsgender = '" & cgender.Text & "" & "', " _
& "complainantsaddress = '" & address.Text & "" & "', ""complainantscontact = '" & contact.Text & "" & "', " _
& "complaint = '" & complaint.Text & "" & "', ""offendersfirstname = '" & ofname.Text & "" & "', " _
& "offendersmiddlename = '" & omname.Text & "" & "', ""offenderslastname = '" & olname.Text & "" & "', ""offendersalias = '" & aname.Text & "" & "', " _
& "offendersnationality = '" & un.Text & "" & "', ""offendersLKA = '" & olka.Text & "" & "', " _
& "offendersbirthplace = '" & obirth.Text & "" & "', ""offendersbirthday = '" & bday.Value & "" & "', " _
& "offendersgender = '" & ogender.Text & "" & "', ""offendersage = '" & ocage.Text & "" & "', " _
& "offendersmotive = '" & motivedin.Text & "" & "', ""offendersstate = '" & infludin.Text & "" & "', " _
& "offendersweapon = '" & weapondin.Text & "" & "', ""AttendingPolice = '" & pname.Text & "" & "', ""Policerank = '" & prank.Text & "" & "', " _
& "offense = '" & crimedin.Text & "" & "', ""disposition = '" & depo.Text & "" & "', " _
& "incidentbriefreport = '" & brief.Text & "" & "', ""time = '" & oras.Text & "" & "', " _
& "rdate = '" & petsa.Text & "" & "' " _
& "WHERE casenumber = '" & casenum.Text & "" & "'" '<-- Sobra ata ng concatenation

[CODE]& "WHERE casenumber = '" & casenum.Text & "' "

'Try mo yan Sir

cmd.CommandText = strsql
cmd.Execute[/CODE]

nyay!

haha
matry nga itong code mo sir.... :thanks:

OMGRHEAT · Sep 24, 2012

thanks bro :salute:

edit muna maya fb hehe

OMGRHEAT · Sep 24, 2012

nag debug hehe :slap:

pero pag dito ko nilagay yung MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID"
End If
b1.Close
b2.Close
:exit sub dinaman ng dedebug ang prob lang dinaman sya nag sasave sa database :upset:

john_christian · Sep 24, 2012

nyahahaha wala man lang pumansin sa request ko...

nexysllanes · Sep 25, 2012

bryan1207 · Sep 25, 2012

OMGRHEAT said:
pa help naman poh dito .. gusto ko po kasi pag invalid yung id sa txtbid1 at txtbid2 hindi po sya mag sasave sa database pa help naman poh

OMGRHEAT said:
:exit sub dinaman ng dedebug ang prob lang dinaman sya nag sasave sa database

Mali po ata pag kakaintidi ko Sir. Kala ko po bang ayaw mong mag save sa database kapag invalid ang Id's?

bryan1207 · Sep 25, 2012

john_christian said:
nyahahaha wala man lang pumansin sa request ko...

Sir pa post po ulit ng question mo.

nexysllanes said:
Pahingi nmn po ng CODE pati yung Form layout na din po para sa SMS using Broadband (GLobe,SUn) VB6 po

Tpos ask ko na din yung sa database,,,,, sa Access po. pano ko po icconect yung dlawang tables.

ex. table 1
(eto po yung mga headers)
|ID num | LastName | FirstName | MiddleName | Gender | .....
20121 Cruz Juan Dela Male

tpos table 2

|ID num | Name | TimeInAM | TimeOutAM | TimeInPM | ...
20121 Juan Dela Cruz 09:10 11:59

tpos ang gusto ko mgyari. connected sila ..mgkakaron ng subTable yung table1 . . .ble yung sub eh table 2 (yung nkta ko kc sa gilid may plus sign sya "+" sa tabi ng table 1 na pag pinindot eh lalabas yung table2.. parang ganito

+ |ID num | LastName | FirstName | MiddleName | Gender | .....
20121 Cruz Juan Dela Male
---------------------------------------------------------------------------------
|ID num | Name | TimeInAM | TimeOutAM | ...
20121 Juan Dela Cruz 09:10 11:59

Sir, basa ka lang po dito. http://www.scampers.org/steve/sms/samples.htm
Tapos sabayan mo nito
http://www.w3schools.com/sql/
Tapos connection ng access
http://www.vb6.us/guides/vb6-database-guide

pclydewynn · Sep 25, 2012

Pa tulong naman po sa project ko sa Comp Sci. Calculator po. yung simple lang. +-/* lang po. please. :praise:

Dobermaxx99 · Sep 25, 2012

malaki ba sir ang pinag kaiba ng vb 6 sa vb.net?

OMGRHEAT · Sep 25, 2012

bryan1207 said:
Mali po ata pag kakaintidi ko Sir. Kala ko po bang ayaw mong mag save sa database kapag invalid ang Id's?

sir mali pagpapaliwanag ko hehe :upset:

pagtama poh yung id,s mag sasave sya
pag mali hindi sya mag sasave help naman :salute:

john_christian · Sep 25, 2012

need help mga master... pano po maginsert ng encrypted password sa database?

bluthugs · Sep 25, 2012

nexysllanes said:
Pahingi nmn po ng CODE pati yung Form layout na din po para sa SMS using Broadband (GLobe,SUn) VB6 po

Tpos ask ko na din yung sa database,,,,, sa Access po. pano ko po icconect yung dlawang tables.

ex. table 1
(eto po yung mga headers)
|ID num | LastName | FirstName | MiddleName | Gender | .....
20121 Cruz Juan Dela Male

tpos table 2

|ID num | Name | TimeInAM | TimeOutAM | TimeInPM | ...
20121 Juan Dela Cruz 09:10 11:59

tpos ang gusto ko mgyari. connected sila ..mgkakaron ng subTable yung table1 . . .ble yung sub eh table 2 (yung nkta ko kc sa gilid may plus sign sya "+" sa tabi ng table 1 na pag pinindot eh lalabas yung table2.. parang ganito

+ |ID num | LastName | FirstName | MiddleName | Gender | .....
20121 Cruz Juan Dela Male
---------------------------------------------------------------------------------
|ID num | Name | TimeInAM | TimeOutAM | ...
20121 Juan Dela Cruz 09:10 11:59

txt mo ako bka matulungan ka tignan mo nlang number ko sa ss.

bryan1207 · Sep 25, 2012

OMGRHEAT said:
sir mali pagpapaliwanag ko hehe

pagtama poh yung id,s mag sasave sya
pag mali hindi sya mag sasave help naman

Hmm. Paki post naman po Sir yung code mo na sinasabi mong error. Kasi kung gusto mong umalis sa sub na yun dahil sa error mag

Code:

Exit Sub

ka lang.

john_christian said:
need help mga master... pano po maginsert ng encrypted password sa database?

Aralin mo ito Sir.
Tutorial

d3m0nknlght · Sep 25, 2012

sir pede po ba pagawa ako ng flowchart ng video rental system :pls:

sir hindi ko kasi alam maintindihan kung pano simulan eh :pls:

OMGRHEAT · Sep 25, 2012

b1.Open "SELECT * FROM tblborrowers WHERE Bid = '" & txtbid1.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b1.EOF Then
txtbid1 = b1.Fields("bid")
End If
b2.Open "SELECT * FROM tblbooks WHERE Bid = '" & txtbid2.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b2.EOF Then
txtbid2 = b2.Fields("bid")
Else
MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID": Exit Sub
End If
b1.Close
b2.Close
With issue
.Open "SELECT * FROM tblissue", gcon, adOpenStatic, adLockOptimistic
.AddNew
.Fields("BID") = txtbid1.Text
.Fields("Bid2") = txtbid2.Text
.Fields("dater") = txtdater.Text
.Fields("datei") = txtdatei.Text
.Update
.Close
End With

error nya ay

Runtime error '3705"
operation is not allowed when the object is open

bryan1207 · Sep 25, 2012

OMGRHEAT said:
error nya ay

Runtime error '3705"
operation is not allowed when the object is open

Try mo ito Sir.

Code:

b1.Open "SELECT * FROM tblborrowers WHERE Bid = '" & txtbid1.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b1.EOF Then
txtbid1 = b1.Fields("bid")
End If
b2.Open "SELECT * FROM tblbooks WHERE Bid = '" & txtbid2.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b2.EOF Then
txtbid2 = b2.Fields("bid")
    Else
    MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID"
 [B]         b1.Close
          b2.Close

          Exit Sub 'Bago siya mag Exit Sub. iCoclose niya muna yung b1 at b1 connection.[/B]
    End If
b1.Close
b2.Close
With issue
  .Open "SELECT * FROM tblissue", gcon, adOpenStatic, adLockOptimistic
  .AddNew
  .Fields("BID") = txtbid1.Text
  .Fields("Bid2") = txtbid2.Text
  .Fields("dater") = txtdater.Text
  .Fields("datei") = txtdatei.Text
  .Update
  .Close
End With

Try mo Sir.

OMGRHEAT · Sep 25, 2012

bryan1207 said:

Try mo ito Sir.

Code:

b1.Open "SELECT * FROM tblborrowers WHERE Bid = '" & txtbid1.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b1.EOF Then
txtbid1 = b1.Fields("bid")
End If
b2.Open "SELECT * FROM tblbooks WHERE Bid = '" & txtbid2.Text & "'", gcon, adOpenStatic, adLockOptimistic
If Not b2.EOF Then
txtbid2 = b2.Fields("bid")
    Else
    MsgBox "Invalid Borrower ID or Book ID!/Pls Registered", vbExclamation, "Invalid ID"
 [B]         b1.Close
          b2.Close

          Exit Sub 'Bago siya mag Exit Sub. iCoclose niya muna yung b1 at b1 connection.[/B]
    End If
b1.Close
b2.Close
With issue
  .Open "SELECT * FROM tblissue", gcon, adOpenStatic, adLockOptimistic
  .AddNew
  .Fields("BID") = txtbid1.Text
  .Fields("Bid2") = txtbid2.Text
  .Fields("dater") = txtdater.Text
  .Fields("datei") = txtdatei.Text
  .Update
  .Close
End With

Try mo Sir.

Thanks sir bryan1207 :salute:

john_christian · Sep 25, 2012

Sir bryan pano insert yung encrypted n password s database?

kal27 · Sep 25, 2012

mga boss.. tanung ko lang po kung panu ung magsearch sa vb6.. kumbaga po, parang periodic table.. ung kda element my characteristics like flamable, metalic, radio active etc., pg ung isang element na satisfy nya ung atleast 2 characteristics, lalabas po xa s search result. ksma po ung ibang element na nasatisfy nung input.. un lng po.. tnx in advance!

Exclusively for Visual Basic 6.0 Programmers Only!

Proficient

Amateur

Proficient

Proficient

Novice

The Fanatic

Proficient

Proficient

Recruit

Amateur

Proficient

Novice

Proficient

Attachments

Proficient

The Loyalist

Proficient

Proficient

Proficient

Novice

Amateur

Similar threads