مساعدة في كود اتصال ب sql

[عبدالقدوس48]

Sub ConnectToSQL()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset

    ' تكوين اتصال ODBC
    Set conn = New ADODB.Connection
    conn.Open "DSN=MySQLServer;UID=myusername;PWD=mypassword"

    ' تنفيذ استعلام SQL
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM Customers", conn

    ' عرض النتائج في نموذج (على سبيل المثال)
    Do While Not rs.EOF
        Me.txtCustomerID.Value = rs!CustomerID
        Me.txtCustomerName.Value = rs!CustomerName
        rs.MoveNext
    Loop

    ' إغلاق الاتصال والسجل
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub

 

تم تعديل ديسمبر 5, 2024 بواسطه Moosak
تنسيق الكود

[دروب مبرمج]

تفضل هذه بعض الاكواد قد تجد بها ضالتك

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
        strConnString = "Provider=SQLOLEDB;Data Source=Server_Name;Persist Security Info=True;User ID=Your_UserName;Password=Your_Password;"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute("SELECT * FROM TabolName")
                
           If Not rs.BOF And Not rs.EOF Then
                rs.MoveFirst
                While (Not rs.EOF)
                 TextBox1= rs.Fields(0).Value
                    rs.MoveNext
                Wend
            End If
            rs.Close
            Set rs = Nothing

مع اضافة المكتبة

[عبدالقدوس48]

هل الكود يعمل في شبكة محلية قاعدة البيانات موجودة على سرفير والبرنامج في جهاز أخر وشكرا