[سعود]

ايوة كذا ممتاز خطوة خطوة
هذا لاني مباشرة كتبت الاشتقاق من دون ان اخبرك ان هناك خياران:
الاول مثل ماكتبته لك وحل الخط الازرق المتعرج ان تستدعي فضاء الاسماء imports system data oledb
الاخر ان تكتب بالطريقة التالي:

كود :

dim con as new oledb.oledbconnection(str)

لكي تفرق بينهم ساكتب كلا الطريقتين

كود :

dim con as new oledbconnection(str)

كود :

dim con as new oledb.oledbconnection(str)

مكان استدعاء فضاءات الاسماء اعلى اطار محرر الشيفرة يعني قبل كل شيء حتى قبل الكلاس نفسه.

[على رمضان]

استاذ سعود عملت زى ما انت قلت بس برضه فى خطوط زرقة انا طبعا عرفت انه فى فرق بين
(dim con as new oledb.oledbconnection(str


dim con as new oledbconnection(str)

الفرق النقطة ودى اشتغلت معاية Dim Conn As New OleDbConnection(ConStr)
وبص على الكود اللى كتبته وقلى ايه اللى فيه غلط

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\بيانات_قطع_الأراضى_اخير.mdb.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM بياتات_العملاء"

Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
TextBox1.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.ID_Amlaa")
TextBox2.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.neme")
TextBox3.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.National ID")
TextBox4.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Name of the wife / husband")
TextBox5.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Number of Children")
TextBox6.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Phone number")
TextBox7.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Address")
End Sub
End Class

هو عطينى الخط الأزرق تحت كل تكست زي ما انا موضح

[سعود]

اخ علي الله يرضى عليك اكتب الكود بعد ان تغير المحاذاة الى اليسار ثم تضمن الكود ضمن احدى الوسوم لكي يظهر الكود ضمن تنسيق الكود وتظهر بالجهة اليسرى لانها انجليزي.
لان كذا الامر مزعج واسف اخوي

[على رمضان]

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

[سعود]

كود :

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\بيانات_قطع_الأراضى_اخير.mdb.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM بياتات_العملاء"

Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
TextBox1.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.ID_Amlaa")
TextBox2.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.neme")
TextBox3.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.National ID")
TextBox4.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Name of the wife / husband")
TextBox5.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Number of Children")
TextBox6.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Phone number")
TextBox7.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Address")
End Sub
End Class

[سعود]

اخي الكريم قد ابدو متعصبا ضد اللغة العربية لكن ليس الامر كذلك .. لا احب كتابة اسماء الاعمدة باللغة العربية استخدم حروف لاتينية ولو بنطق عربي بالذات لاسماء الاعمدة ايضا استبدل الفراغ بحرف التسطير السفلي _ افضل.
الطلب الاخير ان تقوم بانشاء مشروع جديد(بسيط) بمحاولاتك للربط وتقوم برفعه لكي تعرف الامور الغامضة.
وفقك الله لكل مافيه رضاه.

[على رمضان]

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

[سعود]

ابد مافيه اي ازعاج.

[a_almisery]

imports System.Data.OleDb