[WAEL ABED]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If (Trim(TextBox16.Text) = "") Then
            MsgBox(" Fill Data In TextBox")
            Exit Sub
        End If
        Dim CmdSelect As New OleDbCommand("Select * from table1  where [ID1]=" & TextBox16.Text & "", conn)
        Dim dt As New DataTable
        conn.Open()
        dt.Load(CmdSelect.ExecuteReader())
        If (dt.Rows.Count = 0) Then
            MsgBox("Not found Data")
            Exit Sub
        End If
        ha1.Text = dt.Rows(0)(0).ToString
        na1.Text = dt.Rows(0)(1).ToString
        ph1.Text = dt.Rows(0)(2).ToString
        ha2.Text = dt.Rows(0)(3).ToString
        na2.Text = dt.Rows(0)(4).ToString
        ph2.Text = dt.Rows(0)(5).ToString
        ha3.Text = dt.Rows(0)(6).ToString
        na3.Text = dt.Rows(0)(7).ToString
        ph3.Text = dt.Rows(0)(8).ToString

        conn.Close()
    End Sub