mahdigan
پنج شنبه 27 آذر 1393, 10:57 صبح
میخام یه فرم ساده برای ذخیره اطلاعات نام و نام خانوادگی و کد ملی بنوسم که تو اکسس در یه جدول ثبت بشه برای اینکار یه ماژول با این کد ها نوشتم
Option ExplicitPublic gcn As New ADODB.Connection
Sub main()
If dbopen() Then
Form2.Show
Else
If MsgBox("ÔãÇ ÈÑÇí ÇÊÕÇá Èå ÇíÇå ÏÇÏå ãÔ˜á ÏÇÑíÏ", vbOKOnly) Then
End
End If
End If
End Sub
Function dbopen() As Boolean
On Error GoTo open_er
gcn.CursorLocation = adUseClient
gcn.ConnectionString = "data source=g:\sabt1.accdb;provider=Microsoft.Jet.OLEDB .4.0;"
gcn.Mode = adModeReadWrite
gcn.Open
dbopen = True
Exit Function
open_er:
dbopn = False
End Function
نمیدونم تنظیماتی باید تو vb6انجام بدم که برای این خط ها خطا نده
strsql = "select * from table where id=" & txt3.Text
(Set rs1 = gcn.Execute(strsql
لطفا هرچه زودتر راهنمایی کنید ممنون
Option ExplicitPublic gcn As New ADODB.Connection
Sub main()
If dbopen() Then
Form2.Show
Else
If MsgBox("ÔãÇ ÈÑÇí ÇÊÕÇá Èå ÇíÇå ÏÇÏå ãÔ˜á ÏÇÑíÏ", vbOKOnly) Then
End
End If
End If
End Sub
Function dbopen() As Boolean
On Error GoTo open_er
gcn.CursorLocation = adUseClient
gcn.ConnectionString = "data source=g:\sabt1.accdb;provider=Microsoft.Jet.OLEDB .4.0;"
gcn.Mode = adModeReadWrite
gcn.Open
dbopen = True
Exit Function
open_er:
dbopn = False
End Function
نمیدونم تنظیماتی باید تو vb6انجام بدم که برای این خط ها خطا نده
strsql = "select * from table where id=" & txt3.Text
(Set rs1 = gcn.Execute(strsql
لطفا هرچه زودتر راهنمایی کنید ممنون