04-03-20, 03:43 PM
(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
محاسب / أحمد عبد العليم
الى اللقاء ان شاء الله
الى اللقاء ان شاء الله

