SQL مع VB

Dim m_sConnStr As String

Dim oConnection1 As ADODB.Connection

m_sConnStr = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _

"Initial Catalog='Northwind';Integrated Security='SSPI';"

Set oConnection1 = New ADODB.Connection

oConnection1.CursorLocation = adUseClient

oConnection1.Open m_sConnStr

ياخوي ممكن شوية تفصيل

اخوك غبي وما يفهمها وهي طايرة لازم تنزل

هذا مثال عملي بإمكانك استخدامه

Add the following procedure. The Form_Load event/property opens the Connection object, opens the Recordset object, and fills the ListView control with the names and address from the Authors table. Remember to change the connection string for the Connection object's Open method.

Private Sub Form_Load()
    Dim cn As Connection
    Dim rs As Recordset
    Dim NewItem As ListItem
    `open the connection
    Set cn = New Connection
    cn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=password;" _
        + "Location=WINEMILLER;Database=pubs"
    `could have also just specified an ODBC DSN like below
    `cn.Open "DSN=pubs"
    `now open the recordset
    Set rs = New Recordset
    rs.Open "authors", cn, adOpenForwardOnly, adLockReadOnly
    Do Until rs.EOF
        Set NewItem = listAuthors.ListItems.Add(, rs("au_id"), _
            rs("au_lname") & ", " & rs("au_fname"))
        NewItem.SubItems(1) = rs("address")
        NewItem.SubItems(2) = rs("city")
        NewItem.SubItems(3) = rs("state")
        NewItem.SubItems(4) = rs("zip")
        rs.MoveNext
    Loop
    `close and clean up
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

سأحاول التوضيح بعد قليل إن شاء الله

وشكراً

بإمكانك أيضا تنزيل هذا الكتاب المرفق

فهو يحتوي على ألف ياء قواعد البيانات ;)

وشكراً

vb6db.zip

مشكور جدا اخوي وماقصرت

واذا راح ماعرفت راح اطلب منك اذا مافي تعب عليك

يا أخي إحنا في الخدمة

طالما استطعنا المساعدة

كل شئ بعون الله

وشكراً