تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من يعدل علي الكود التالي ليجعله يشتغل في سيكوال سيرفر 2008
#1
السلام عليكم ..انا عندي الكود التالي يشتغل كسيرفر بس عن طريق الاكسس من يقدر يعدله ليشتغل مع سيكوال سيرفر 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
   
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم :

كود :
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
الرد }}}}
#3
بارك الله فيك اخي الكريم احمد منصور ..
اخي الكريم يمكن جملة الاتصال بالاكسس 2010 لقاعدة بيانات محمية
نور الله سبحانه طريقك .. مع الشكر
الرد }}}}
#4
السلام عليكم ..هذا التعديل ما اشتغل معاي...اسف علي التاخر لاني توني خلصت من مرحله تعلم تنصيب الاسكيوئل

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

علي فكره اسم الاسكيوءل سيرفر لدي : 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 89 30-09-17, 08:27 PM
آخر رد: bidaya
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 112 08-08-17, 03:09 AM
آخر رد: allobaed
  مشكلة الاتصال بـ SQL Server 2008 R2 من جهاز آخر أبو عقيل 29 830 20-07-17, 10:38 PM
آخر رد: أبو عقيل
  طريقة عمل اتصال بملف على سيرفر Basel_hmd 0 82 18-07-17, 02:10 PM
آخر رد: Basel_hmd
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 213 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 206 26-05-17, 12:15 PM
آخر رد: larbihamri
  البحث بين تاريخين SQL 2008 +vb6 أبو عقيل 4 244 05-05-17, 08:57 AM
آخر رد: Ahmed_Mansoor
  كيف أجعل برنامجي يشتغل مباشرة عند اشتغال الوندوز الخير طهوري 44 1,636 15-03-17, 11:48 PM
آخر رد: الخير طهوري
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 201 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  خطاء ارجو تصحيح الكود عمر سالم 5 329 10-02-17, 06:18 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم