how to bind data with textbox after executing search query thru code?
-
can anybody please tell me how to bind data with textbox after executing search query thru code? here is what i did to execute select query thru code and now i dont know how to display those results ( how to bind them to textbox) Dim str, str2 As String str = "SELECT completelist.* FROM completelist, shortlist WHERE (@keycode=completelist.keycode) And (@startframe=completelist.frame) And (@stoffset=completelist.offset)" str2 = str & "UNION SELECT completelist.* FROM completelist, shortlist WHERE(@keycode=completelist.keycode) And (@endframe=completelist.frame) And (@enoffset=completelist.offset)" Dim selcom As New OleDbCommand(str2, OleDbConnection1) OleDbDataAdapter1.SelectCommand = selcom OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@keycode", OleDbType.Char, 10)) OleDbDataAdapter1.SelectCommand.Parameters("@keycode").Value = keycode.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@startframe", OleDbType.Integer, 4)) OleDbDataAdapter1.SelectCommand.Parameters("@startframe").Value = startframe.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@stoffset", OleDbType.Integer, 2)) OleDbDataAdapter1.SelectCommand.Parameters("@stoffset").Value = stoffset.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@endframe", OleDbType.Integer, 4)) OleDbDataAdapter1.SelectCommand.Parameters("@endframe").Value = endframe.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@enoffset", OleDbType.Integer, 2)) OleDbDataAdapter1.SelectCommand.Parameters("@enoffset").Value = enoffset.Text OleDbConnection1.Open() OleDbDataAdapter1.SelectCommand.ExecuteNonQuery() OleDbConnection1.Close() OleDbDataAdapter1.Fill(DataSet1) please help me getting the results from the query ..!!
-
can anybody please tell me how to bind data with textbox after executing search query thru code? here is what i did to execute select query thru code and now i dont know how to display those results ( how to bind them to textbox) Dim str, str2 As String str = "SELECT completelist.* FROM completelist, shortlist WHERE (@keycode=completelist.keycode) And (@startframe=completelist.frame) And (@stoffset=completelist.offset)" str2 = str & "UNION SELECT completelist.* FROM completelist, shortlist WHERE(@keycode=completelist.keycode) And (@endframe=completelist.frame) And (@enoffset=completelist.offset)" Dim selcom As New OleDbCommand(str2, OleDbConnection1) OleDbDataAdapter1.SelectCommand = selcom OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@keycode", OleDbType.Char, 10)) OleDbDataAdapter1.SelectCommand.Parameters("@keycode").Value = keycode.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@startframe", OleDbType.Integer, 4)) OleDbDataAdapter1.SelectCommand.Parameters("@startframe").Value = startframe.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@stoffset", OleDbType.Integer, 2)) OleDbDataAdapter1.SelectCommand.Parameters("@stoffset").Value = stoffset.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@endframe", OleDbType.Integer, 4)) OleDbDataAdapter1.SelectCommand.Parameters("@endframe").Value = endframe.Text OleDbDataAdapter1.SelectCommand.Parameters.Add(New OleDbParameter("@enoffset", OleDbType.Integer, 2)) OleDbDataAdapter1.SelectCommand.Parameters("@enoffset").Value = enoffset.Text OleDbConnection1.Open() OleDbDataAdapter1.SelectCommand.ExecuteNonQuery() OleDbConnection1.Close() OleDbDataAdapter1.Fill(DataSet1) please help me getting the results from the query ..!!
Hi There If you are going to use the resultset for display purpose only, it is better to use the datareader to retrieve the data as in the following piece of code. The code shows how to read the sql results into a combo box, but you would do the same for a text box (given that you only return one row from the db) I think it would also be easier to read the parameters from the input text boxes as you build up the sql string, ie: sSQl = "select * from publishers where name = " + txtName.text + " and date ........" etc Private Sub LoadInitData() Dim sConnect As String Dim sCategory As String Dim sType As String Dim sPrinter As String Dim odrCategory As OleDb.OleDbDataReader Dim odrType As OleDb.OleDbDataReader Dim odrPrinter As OleDb.OleDbDataReader Dim oConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection() Dim oCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand() Dim sDBPath As String sDBPath = Application.StartupPath sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath & "\Inks.MDB" sCategory = "SELECT CATEGORY.CATEGORY FROM CATEGORY ORDER BY CATEGORY.CATEGORY" Try oConnection.ConnectionString = sConnect oConnection.Open() 'get categories oCommand.CommandText = sCategory oCommand.Connection = oConnection odrCategory = oCommand.ExecuteReader While odrCategory.Read Me.cmbCategory.Items.Add(odrCategory.GetString(0)) End While If cmbCategory.Items.Count > 0 Then cmbCategory.SelectedIndex = 0 End If odrCategory.Close() oConnection.Close() Catch o As System.Exception MsgBox(o.Message) Exit Sub End Try End Sub YASP