Mohon bantuannya kepada rekan-rekan master vb,
Saya menggunakan mysql sbg database, sewaktu insert dan update data di mysql
tidak bertambah dan berubah, tetapi mengunakan select bisa.
Mohon dicek source kode saya, munkin ada kesalahan. Terimakasih sebelumnya.
Public cn As New Connection
Function bukadatabase() As Boolean
On Error GoTo x
If cn.State = adStateOpen Then
cn.Close
End If
cn.Open "DRIVER={MySQL ODBC 3.51
Driver};SERVER=localhost;port=3306;DATABASE=bc;UID=root; PWD=1234; OPTION=1
+ 2 + 8 + 32 + 2048 + 163841"
pbukadatabase = True
Exit Function
x:
pbukadatabase = False
MsgBox "cn Tidak Terhubung !!!", 16, "ERROR"
End Function
Private Sub cmdsimpan_Click()
cn.Execute "insert into rab(tgl,nomor,pekerjaan) values ('" &
DTPicker1.Value & "','" & txtNo.Text & "','" & txtpekerjaan.Text & "')"
End Sub()
Private Sub Form_Load()
Dim Ssql as string
Dim rs As ADODB.Recordset
Ssql = "SELECT * From rab order by NOMOR "
Set RS = cn.Execute(Ssql)
End Sub()
