[scsi7000]

السلام عليكم ..انا عندي الكود التالي يشتغل كسيرفر بس عن طريق الاكسس من يقدر يعدله ليشتغل مع سيكوال سيرفر 2008
وشكرا

كود :

Public conn1 As ADODB.Connection
Public rs1 As ADODB.Recordset




Sub connect1()
Dim msdatabase As String
msdatabase = Form12.txtip.Text

Set conn1 = New ADODB.Connection
   conn1.CursorLocation = adUseClient
   conn1.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=Form12.txtip.Text;Jet OLEDB:Database Password=Bader965;"
   conn1.Open msdatabase, "Admin"
   

Set rs1 = New ADODB.Recordset
   rs1.ActiveConnection = conn1
   rs1.CursorLocation = adUseClient
   rs1.CursorType = adOpenDynamic
   rs1.LockType = adLockOptimistic
   rs1.Source = "SELECT * FROM table1"
   rs1.Open