منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - من يعدل علي الكود التالي ليجعله يشتغل في سيكوال سيرفر 2008

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

أهلا أخي الكريم :

كود :

Public conn1 As ADODB.Connection

Public rs1 As ADODB.Recordset

Sub connect1()

Dim Server_Name As String

Dim msdatabase As String

Dim User_Name As String

Dim User_Pass As String

Dim SQL_Connection_Txt As String

Server_Name = "ComputerName"

msdatabase = Form12.txtip.Text

User_Name = "Admin"

User_Pass = "12345678"

SQL_Connection_Txt = "Provider=SQLOLEDB.1;" & _

         "Data Source=" & Trim$(Server_Name) & ";" & _

         "Initial Catalog=" & Trim$(msdatabase) & ";" & _

         "User Id=" & Trim$(User_Name) & ";" & _

         "Password=" & Trim$(User_Pass)

DoEvents

Set conn1 = New ADODB.Connection

   conn1.CursorLocation = adUseClient

   conn1.Open SQL_Connection_Txt

Set rs1 = New ADODB.Recordset

   rs1.ActiveConnection = conn1

   rs1.CursorLocation = adUseClient

   rs1.CursorType = adOpenDynamic

   rs1.LockType = adLockOptimistic

   rs1.Source = "SELECT * FROM table1"

   rs1.Open

End Sub

بارك الله فيك اخي الكريم احمد منصور ..
اخي الكريم يمكن جملة الاتصال بالاكسس 2010 لقاعدة بيانات محمية
نور الله سبحانه طريقك .. مع الشكر

السلام عليكم ..هذا التعديل ما اشتغل معاي...اسف علي التاخر لاني توني خلصت من مرحله تعلم تنصيب الاسكيوئل

طيب هذا مديول برنامجي بالرابط تقدر تعدل عليه

علي فكره اسم الاسكيوءل سيرفر لدي : SCSI-PC\SQLEXPRESS

اسم المستخدم : sa
اسم الباسورد :12341234
اسم قاعده البيانات بالسيرفر : master

و Form12.txtip.Text
هو التكست الذي يحتوي علي مكان الداتا بيس للاكسس (\\scsi-PC\networkcon\ee1.mdb)
انا عملت لها استيراد وحطيتها علي السيرفر في (master)

رابط المديول :

https://www.dropbox.com/s/w83ajcuc0qhfdg...2.bas?dl=0

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

scsi7000

Ahmed_Mansoor

saadalkadhy

scsi7000