الإتصال بقاعدة بيانات يحددها المستخدم...

DB_Connector.rar

mrx_ta7ady: شكراً جزيلاً وجزاك الله خيراً.

ملاحظة: الطريقة الأولى لاتعمل إلا إذا حذفت السطر التالي.ممكن التوضيح

' Provider = Provider & "Password=sa;"

جزاك الله كل الخير. وضحت الكثير من الأمور..

لكن إذا كان الجهاز عميل وليس خادم سأحتاج إلى نافذة من خلالها يحدد المستخدم اسم الجهاز الذي عليه قاعدة البيانات(server) واسم قاعدة البيانات.

سأعيد صياغة الطلب الأول: كيف أتصل بقاعدة بيانات يحدد المستخدم اسم (server) + اسم قاعدة البيانات؟

ولك مني العذر على الإطالة.

تفضل هذا الكود معد تغير رقم اى بى السيرفر واسم القاعدة والمستخدم والمرور وزمن الإنتظار بما يتناسب لديك

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Public Function ConnectSql(Server As String, Port As Single, DatabaseName As String, Username As String, Password As String, ConnectTimeOut As Single) As Boolean
	On Error GoTo 1
	DB.Open "Provider=sqloledb;Data Source=" & Server & "," & Port & ";Network Library=DBMSSOCN;Initial Catalog=" & DatabaseName & ";User Id=" & Username & ";Password=" & Password & ";Connect Timeout=" & ConnectTimeOut & ";"
	ConnectSql = True
1:
End Function

Private Sub Form_Load()
 If ConnectSql("71.15.1.1", 2301, "DataB", "username","123", 20) Then
	MsgBox "تم الإتصال بنجاح"
  Else
   MsgBox "تعذر الإتصال بقاعدة البيانات", vbCritical
   End
  End If
End Sub

أخي عبدالفتاح حسن : لك جزيل الشكر..

كيف أجعل اسم قاعدة البيانات واسم السيرفر (متغيرات) .يعني تكست1= اسم قاعدة البيانات وتكست2= اسم السيرفر. وبموجب مايكتب فيهما يتم الإتصال؟

ملاحظة: حاولت التعديل في الكود السابق لتنفيذ ما سبق لكن لم أوفق؟

تفضل :

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Public Function ConnectSql(Server As String, Port As Single, DatabaseName As String, Username As String, Password As String, ConnectTimeOut As Single) As Boolean
	On Error GoTo 1
	DB.Open "Provider=sqloledb;Data Source=" & Server & "," & Port & ";Network Library=DBMSSOCN;Initial Catalog=" & DatabaseName & ";User Id=" & Username & ";Password=" & Password & ";Connect Timeout=" & ConnectTimeOut & ";"
	ConnectSql = True
1:
End Function

Private Sub cmdConnect_Click()

If ConnectSql(Me.txtServer, Me.txtPort, Me.txtDatabase, Me.txtUserid, Me.txtPassword, 20) Then
	MsgBox "Êã ÇáÅÊÕÇá ÈäÌÇÍ"
  Else
   MsgBox "ÊÚÐÑ ÇáÅÊÕÇá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ", vbCritical
   End
  End If

End Sub

وهذا هو المشروع :

TestSql.rar

السلام عليكم

ممكن كود فتح قاعدة البيانات أكسس يحددها المستخدم في text1

وشكراً

السلام عليكم ورحمة الله وبركاته

ها هو الكود

Dim St As String

If db.State = adStateOpen Then db.Close

St = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SQL & App.Path & "\" & Text1.Text & "\Dream.mdb;" & "Jet OLEDB:Database Password=123456;"

db.ConnectionString = St

db.CursorLocation = adUseClient

db.Open

ارجو للجميع الاستفادة من الكود

وشكراً