PHP كود :
Public Class Main_Form
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source =" & Application.StartupPath & "\Data\Clinic.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim Conn2 As New OleDbConnection(ConStr)
Dim Conn3 As New OleDbConnection(ConStr)
Dim Conn4 As New OleDbConnection(ConStr)
Dim Conn5 As New OleDbConnection(ConStr)
Dim Conn6 As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim DataSet2 As New DataSet
Dim DataSet3 As New DataSet
Dim DataSet4 As New DataSet
Dim DataSet5 As New DataSet
Dim DataSet6 As New DataSet
Dim DataAdapter As New OleDbDataAdapter
Dim m As String
Dim ref As New Button
Dim DataBindings As BindingSource
Dim SQLstr As String = "SELECT * FROM Ginfo "
PHP كود :
Private Sub Main_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ClinicDataSet.Medicine_Tbl' table. You can move, or remove it, as needed.
' Me.MedicineTableAdapter.Fill(Me.ClinicDataSet.Medicine_Tbl)
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Ginfo")
Me.BindingContext(DataSet1, "Ginfo").Position = Me.BindingContext(DataSet1, "Ginfo").Count - 1
Conn.Close()
Pt_ID.DataBindings.Add("Text", DataSet1, "Ginfo.ID")
Pt_Name.DataBindings.Add("Text", DataSet1, "Ginfo.Name")
Pt_Mobile.DataBindings.Add("Text", DataSet1, "Ginfo.Mobile")
Pt_DOB.DataBindings.Add("Text", DataSet1, "Ginfo.DOB")
Pt_Age.DataBindings.Add("Text", DataSet1, "Ginfo.age")
Pt_Sex.DataBindings.Add("Text", DataSet1, "Ginfo.SEX")
Pt_Ocup.DataBindings.Add("Text", DataSet1, "Ginfo.Occupation")
Pt_Adress.DataBindings.Add("text", DataSet1, "Ginfo.ADRESS")
Pt_Credit.DataBindings.Add("text", DataSet1, "Ginfo.Credit")
Pt_SDis.DataBindings.Add("text", DataSet1, "Ginfo.S_Dis")
Search.Focus()
RadioButton3.Checked = True
If Pt_Credit.Text > 0 Then
Pt_Credit.BackColor = Color.Red
End If
Me.BindingContext(DataSet1, "Ginfo").Position = 0
End Sub
