درج یک رکورد در پایگاه داده با vb6

[LEILAFATHI]

سلام
لطفا یکی کمک کنه
کجای این برنامه غلطه ؟؟؟

cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=D:\Program Files\Microsoft Visual Studio\VB98n.mdb'"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open "D:\Program Files\Microsoft Visual Studio\VB98n.mdb"
strsql = "insert into table1(b)values ('&text2.text&')"
rec.Open " table1", cnn, adOpenDynamic, adLockBatchOptimistic
rec.AddNew
dbase.Execute strsql
rec.Close
cnn.Close
dbase.Close

[sokote_bi_payan]

سلام اصلا متغیرات و کجا تعریف کردی

[اوبالیت به بو]

یه Module بزارین و توش کد زیر رو بنویسید:

Option Explicit
Public cnn As ADODB.Connection
Public rec As ADODB.Recordset
Public strSQL As String

و تویه Form_Load این کد رو بنویسید:

Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=" & App.Path & "\VB98n.mdb"
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Open
End With
strSQL = "insert into table1(b)values ('&text2.text&')"
With rec
.Open " table1", cnn, adOpenDynamic, adLockBatchOptimistic
.AddNew
End With
cnn.Execute strSQL
rec.Close
cnn.Close

البته کد بالا ایراد داره چون من نمی دونم از چه چیزی SQL گرفتین. در ضمن اسم فیلدهاتون رو ننوشتین.
فقط شما اگه مشخصات بانکتون رو بگید و بگید از چه چیزی می خواین SQL بگیرین اون موقع بهتر میشه راهنمایی کرد.

[ali_habibi1384]

سلام
لطفا یکی کمک کنه
کجای این برنامه غلطه ؟؟؟

cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=D:\Program Files\Microsoft Visual Studio\VB98n.mdb'"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open "D:\Program Files\Microsoft Visual Studio\VB98n.mdb"
strsql = "insert into table1(b)values ('&text2.text&')"
rec.Open " table1", cnn, adOpenDynamic, adLockBatchOptimistic
rec.AddNew
dbase.Execute strsql
rec.Close
cnn.Close

dbase.Close

کدتون رو داخل کدشکن بزارید . برنامه ناخوانا و بهم ریخته است چیزی معلوم نیست.

[sokote_bi_payan]

این متغیراتون و چرا تعریفشو نذاشتید ببینیم از چه نوعی تعریف کردید