السلام عليكم ..انا عندي الكود التالي يشتغل كسيرفر بس عن طريق الاكسس من يقدر يعدله ليشتغل مع سيكوال سيرفر 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