Exclusively for Visual Basic 6.0 Programmers Only!

[biscuitz]

wala nmn po mali pero may lumalabas na method or data member not found...


help po

press ctrl+T > under control tab hanapin mo at iCheck mo ang "Microsoft ADO Data Control" > click OK

 

[pnxstan23]

Great Day! Everyone

Patulong naman Thanks in Advanced

Panu ko ba to gagawin sa vb6 + mysql + listview
"Gusto ko sana palabasin na mag tototal sila by Category pero sunod sunod sila lilitaw like dito sa example na picture na nilagay ko"

Thanks ulit , malaking pasasalamat ko sa mga tutulong Thanks

 

[brogidck]

error method refresh failed daw at syntax in from clause anu po mali?
note : table name po ay USER field name po user at pass

Adodc1.RecordSource = "SELECT * FROM USER WHERE user = " & Text1.Text
Adodc1.Refresh
If Adodc1.Recordset.Fields(0) = Text1.Text Then
MsgBox " Already exist"
Else
Adodc1.Refresh
With Adodc1.Recordset

.AddNew
.Fields(0) = Text1
.Fields(1) = Text2
.Update
End With
End If

 

[yt758b34vh83]

error method refresh failed daw at syntax in from clause anu po mali?
note : table name po ay USER field name po user at pass

Adodc1.RecordSource = "SELECT * FROM USER WHERE user = " & Text1.Text
Adodc1.Refresh
If Adodc1.Recordset.Fields(0) = Text1.Text Then
MsgBox " Already exist"
Else
Adodc1.Refresh
With Adodc1.Recordset

.AddNew
.Fields(0) = Text1
.Fields(1) = Text2
.Update
End With
End If

<b>Adodc1.RecordSource = "SELECT * FROM USER WHERE user = '" & Text1.Text "'"</b>
Adodc1.Refresh
If Adodc1.Recordset.Fields(0) = Text1.Text Then
MsgBox " Already exist"
Else
Adodc1.Refresh
With Adodc1.Recordset

.AddNew
.Fields(0) = Text1
.Fields(1) = Text2
.Update
End With
End If

try this one

 

[nivranad]

sino po may program gauss seidel..sa numericals po..pahelp

 

[nivranad]

sino po may program gauss seidel..sa numericals po..pahelp

 

[posthc]

pahenge poh ng source code... la kc ako mahanap sa google ehh..

import excel file data to mysql database..

pahelp poh...

 

[apzru]

Mga Sir pnu ba ma ayus ung error 429? 64bits kc gmit ko d ko mpaconnct xa msaccess

 

[143thed]

I like to stay hir... I am enjoying this thread...

nid help cnu may alam na system about PARISH INFORMATION SYSTEM... pls kelangan q lng po ng sample!

 

[arthyan]

mga tol patulong nman sa log in form using adodc and ms access as database..
2 textbox lng, ung username at password at isang combobox na usertype(admin/user)..di q makuha pg may usertype na..tnx in advance..

 

[knowmeifyou]

mga tol patulong nman sa log in form using adodc and ms access as database..
2 textbox lng, ung username at password at isang combobox na usertype(admin/user)..di q makuha pg may usertype na..tnx in advance..

use adodb instead. kung gusto mo check mo signature ko

 

[nexysllanes]

Guys phingi nmn ng Forms para sa Database Backup tska Restore (for MS Access) add ko lng sa SYSTEM ko para tapos na : SALAMAT




​

 

[arthyan]

use adodb instead. kung gusto mo check mo signature ko

adodb nga sna pro adodc ang kailangan..salamat sa mkakatulong sken..

 

[knowmeifyou]

Guys phingi nmn ng Forms para sa Database Backup tska Restore (for MS Access) add ko lng sa SYSTEM ko para tapos na : SALAMAT




​

add reference microsoft scripting run time


back up code

fileSys.CopyFile App.Path & "\database\db.mdb", App.Path & "\backup\" & txtbackupname.Text & ".bck", True


MsgBox "Backup Sucessful"

restore code

Dim fileSys As New FileSystemObject

fileSys.CopyFile App.Path & "\backup\" & txtbackupname, App.Path & "\database\db.mdb", True
MsgBox "Restore Successful!", vbInformation

parang ganyan

 

[uctupus]

ano component ba ang gagamitin sa vb 6.0 kapag gagawa ng connection sa mysql?

 

[knowmeifyou]

ano component ba ang gagamitin sa vb 6.0 kapag gagawa ng connection sa mysql?

adodb. check my signature

 

[thoofox143]

Re: Exclusive for Visual Basic 6.0 Programmers Only!

ayos to....

 

[nnad]

pa-help naman po... paano po ang code para sa random show ng forms???

 

[pnxstan23]

Great Day! Everyone

Patulong naman Thanks in Advanced

Panu ko ba to gagawin sa vb6 + mysql + listview
"Gusto ko sana palabasin na mag tototal sila by Category pero sunod sunod sila lilitaw like dito sa example na picture na nilagay ko"

Thanks ulit , malaking pasasalamat ko sa mga tutulong Thanks

Nakita ko na ang sagot gusto ko lang ishare sa inyo para kung sakaling maging problema niyo rin to Happy Coding

Link : Click Here

 

[okamoto01]

guys help pano lagyan ng application number already exist e2 ung code ko sa SAVE button

Private Sub cmdSave_Click()
Dim cntrl As Control

For Each cntrl In Me
If TypeOf cntrl Is TextBox Then
If cntrl.Text = "" Then
MsgBox "Please provide value in the blank field "
Exit Sub
End If
End If
If TypeOf cntrl Is ComboBox Then
If cntrl.Text = "" Then
MsgBox "Please Select the appropriate value from the dropdown box"
Exit Sub
End If
End If

Next

Call connect
With rs_appform

.AddNew
.Fields("app_no") = txappno.Text
.Fields("type_flu") = cmbflu.Text
.Fields("date_issued") = DTPicker1.Value
.Fields("has") = txarea.Text
.Fields("region") = cmbreg.Text
.Fields("province") = cmbprov.Text
.Fields("municipality") = txmunicipal.Text
.Fields("barangay") = txbarangay.Text
.Fields("n") = txnorth.Text
.Fields("e") = txeast.Text
.Fields("w") = txwest.Text
.Fields("s") = txsouth.Text
.Fields("applicant") = txapplname.Text
.Update
'End With
MsgBox "Student Successfully Added, Please Proceed for Enrollment", vbInformation, "STUDENT ENROLLED"
Dim rep
rep = MsgBox("Do you wish to enroll new student ?", vbInformation + vbYesNo, "CREATE NEW")
If rep = vbYes Then
Unload frmsturegister1
Unload Me
frmflag.Show

Else
Unload frmflag
Unload Me
End If
End With
'End With

End Sub

sana mhelp nyo poh ako d2 salamat