erreur de temps: Objet requis

Question

I have a form like this

Quand je lance mon programme, je ne peux pas insérer des données, car il y a une erreur. This is when an error appear

Public cn As New ADODB.Connection 
Public rs As New ADODB.Recordset 

Public Sub main() 
On Error GoTo eror 
Set cn = New ADODB.Connection 
cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};server = 
localhost;port=3306; database=ksr; user= root; password=; option=3;" 

cn.Open 
If cn.State = adStateOpen Then 
cn.CursorLocation = adUseClient 
    MsgBox "Terhubung ke database.", vbInformation, "Informasi" 
End If 
LoginKSR.Show 
Exit Sub 
eror: 
    MsgBox "Tidak dapat terhubung. Pastikan anda sudah membuka database." & Err.Description, vbCritical, "PERINGATAN!" 
End Sub 

Dim strsql As String 
Private Sub CmdSimpan_Click() 
Set rs = New Recordset 
**strsql = "insert into tblstaf values('" & txtID_staf.Text & "','" & txtUID.Text & "','" & txtNama.Text & "','" & txtTTL.Text & "','" & txtAlamat & "','" & txtJenis_kelamin.Text & "','" & txtID_jabatan.Text '")** 
Set rs = cn.Execute(strsql) 
Staf 
MsgBox "Data Telah Berhasil Disimpan.", vbInformation, "Simpan Data" 
End Sub 


Private Sub DataGrid1_DblClick() 
On Error GoTo pesan 
Dim adu As Integer 
adu = DataGrid1.Row 
txtID_staf.Text = DataGrid1.Columns(0).Text 
txtUID.Text = DataGrid1.Columns(1).Text 
txtNama.Text = DataGrid1.Columns(2).Text 
txtTTL.Text = DataGrid1.Columns(3).Text 
txtAlamat.Text = DataGrid1.Columns(4).Text 
txtJenis_kelamin.Text = DataGrid1.Columns(5).Text 
txtID_jabatan.Text = DataGrid1.Columns(6).Text 

Exit Sub 
pesan: 
    MsgBox "Data yang anda klik kosong !", vbInformation, "Informasi" 
Staf 
Exit Sub 
End Sub 


Private Sub Staf() 
Dim lihat As New Recordset 
cn.CursorLocation = adUseClient 
Set lihat = New Recordset 
sql = "Select * From tblstaf" 
lihat.Open sql, cn, adOpenStatic, adLockReadOnly 
Set DataGrid1.DataSource = lihat.DataSource 
End Sub 

Quel est le problème avec mon programme et quel objet qui dois-je créer? J'utilise Visual basic 6 et MySQL.In ** est en surbrillance quand je débogue. Dans votre sous-cmdSimpan_click, vous avez une longue ligne de zones de texte que vous mettez dans votre requête SQL.

Answer 1

vous ne devriez pas le faire comme vous le faites parce que vous pouvez pirater la base de données en mettant du code SQL dans les zones de texte. Vous devriez regarder en utilisant des paramètres.

" & txtTTL.Text & "','" & txtAlamat & "','" & 

devrait lire " & txtTTL.Text & "','" & txtAlamat.text & "','" &