21-05-14, 05:59 AM
كود :
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اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
