[ahmedabdelaliem]

(02-03-20, 02:08 PM)mhareek كتب : اخى الغالى  الاستاذ احمد عبد العليم

هل ممكن تغير اكود الربط بحيث استطيع ربطة بقاعدة بينات سيكول

نعم ده مثال على ربط قاعدة بيانات 
اسم قاعدة :  Contacts
اسم الجدول في قاعدة البيانات : tblContacts

PHP كود :

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim SQLstr As String

Private Sub Form_Load()
Call connect
SQLstr = "select * from tblContacts"
         
        rs.Open SQLstr, con, adOpenKeyset
    Set DataGrid1.DataSource = rs
End Sub
Public Sub connect()
  
  con.ConnectionTimeout = 30

  Dim connstring As String
  connstring = "Provider=MSDASQL;DRIVER=Sql Server;Server=.;Database=Contacts;UID=sa;PWD="

  con.Open connstring
  
End Sub 


 بالتوفيق