كيف اربط قاعدة البيانات بالفيجول بيسك عن طريق الكود بواسطه Adodc

اذا اردت ان تربط عن طريق الكود الافضل عدم استخدام هذه الاداة وانما استخدام ال recordset و ال connection

لكن لتعريف قيم هذه الاداة برمجيا عليك استخدام نفس الخصائص التي تغيرها في التصميم وتعينها في البرمجة واهم هذه الخصائص

adodc1.connectionstring ="provider......."

adodc1.recordsource ="table"

adodc1.refresh

واذا اردت ان تربط داتا جرد

set datagrid1.datasource =adodc1

datagrid1.rebind

أخي مشكووور وجزاك الله ألف خير .....

كيف اربط FlexGrid مع قاعدة البيانات في هذه الحاله؟؟

الفلكس جريد لا تربط مباشرة مع الداتا لا بد من تعبئتها يدويا او استخدم الداتا جريد

واذا اردت تفصيل عن الفلكس جريد ابحث عنها

مشكور أخي على الرد

الحمد لله عمليه الربط بالكود نجحت لكن .......!!!

أريد إظهار بعض الحقول وكتبت هذا الكود ولكن تظهر سالة خطأ ....لماذا؟

Private Sub Form_Load()


With Me	 ' joining  Adodc with database'
.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\My Works\visual basic\my program\The bus reservation system\Resources\db1.mdb"
.Adodc1.RecordSource = "select BusID,Board-Number from bus"
Set Me.DataGrid1.DataSource = Adodc1

End With


End Sub

رسالة الخطأ

untitled.bmp

جرب اضافة الكود التالي

Adodc1.CommandType = adCmdText

قبل الجملة

adodc1.refresh

أخي جربت الكود لكن بلا جدوى!!!

اخواني اريد حل!!!!!!!!!

ارفق المثال

تفضل أخي

New_Folder.rar

اخواني لا تنسوني!!!!!!

الخطأ في الحقل Board-Number يجب وضعه بين المقوفتين

select BusID,[board-Number] from bus

مشكور أخي الكود أشتغل بس ايش السبب اني لازم أضع [ ] مع اني في كل البرامج اللي بعملها ما بعمل كده بتشتغل ؟!

كما عندي سؤال أخر كيف أضيف سجل عن طريق جملة SQL انا كتبت هذا الكود فهل هو صح ؟

SQL = "Insert Into Bus values(text1.Text,text2.Text)"
Adodc1.Recordset.AddNew

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

بالنسبة للاضافة استخدم الكود

Adodc1.Recordset.AddNew
Adodc1.Recordset!busid=text1
Adodc1.Recordset![board-number=text2
Adodc1.Recordset.update

وللمزيد من التفصيل ارجو ان تراجع الدروس والمشاركات التي تخص هذا الامر

شكرا اخي تعبتك معاي ..... بس انت ما فهمت قصدي بالنسبة للاضافة انا اريد أضيف عن طريق جملة SQL وليس كالكود السابق هل أقدر؟؟!!

نعم يمكن كما يلي

Dim cn As ADODB.Connection
Dim sql As String
Set cn = New ADODB.Connection
cn.Open Adodc1.ConnectionString   ' او  ضع  الاتصال  Provider.......
sql = "Insert Into Bus (busID,[Board-Number]) values(" & text1.Text & "," & text2.Text & ")"
cn.Execute sql, , adExecuteNoRecords
cn.Close

أخي مشكور كثير على تعاونك معي

لدي سؤال اخر : وهو كيف أبحث عن طريق كود Sql انا كتبت مثل هذا الكود على الاداة Data واشتغل لكن مع Adodc لم ينجح فلماذا ؟!

sql = "select * from Driver where  DriverID='" & Trim(Text1.Text) & "'"
Adodc1.RecordSource = sql

If Adodc1.Recordset.EOF = True Then
MsgBox "wrong "
Exit Sub
Else
If Adodc1.Recordset.EOF = False Then
MsgBox "good"
End If
End If