نقل قول: نفر بعدي كيه ؟
نخیر من دفعه اولم نیست
نکته ویژوالی :
روش اتصال به بانک اکسس
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Access.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"
Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "Table1", Cn, adOpenStatic, adLockPessimistic
End Sub
آیا اصلا نفر بعدی هم هست ؟
پاسخ با نقل قول
