Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\db1.mdb;Persist Security Info=False" conn.Open(connectionstring) rs.Open("select * from table1 where Name='" & snm.Text & "'") ' If rs.EOF Then 'rs.AddNew() 'End If conn = New ADODB.Command If Not rs.EOF Then sid.Text = rs.Fields(0) snm.Text = rs.Fields("Name") sadd.Text = rs.Fields("Address") scno.Text = rs.Fields("Contact_Number") svat.Text = rs.Fields("Vat") 'rs.Fields(0) = sid.Text 'rs.Fields(1) = snm.Text 'rs.Fields(2) = sadd.Text 'rs.Fields(3) = scno.Text 'rs.Fields(4) = svat.Text Else sid.Text = "" snm.Text = "" sadd.Text = "" scno.Text = "" svat.Text = "" End If 'rs.Close() rs = Nothing MsgBox("done") End Sub
rs.Fields(0).ToString()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)