[2005] Using a textbox for a WHERE condition

[spnz]

Hi there


Ok so I managed to get rid of the error message but now no data is been displayed on the datagridviews...

Can anyone suggest what I need to add to my code to get the datagrids displaying the information that I want?

My updated code.

Imports System.Data
Imports System.Data.SqlClient
 
Public Class frmCustomers
    Inherits System.Windows.Forms.Form
 
    
 
 
 
 
    Dim objConnection As SqlConnection = New _
        SqlConnection("server= nx6130;database=actionglass;user id=sa;Trusted_Connection=True;")
    Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter( _
        "SELECT tblCustomers.CustomerName,ContactName,PhoneNumber,FaxNumber,MobNumber,EmailAddress,Address1,Address2,Address3,Address4,DAddress1,DAddress2,DAddress3,DAddress4,Comments,CustomerID " & _
        "FROM tblCustomers " & _
        "ORDER BY CustomerName", objConnection)
 
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
 
 
Private Sub frmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.WindowState = FormWindowState.Maximized
 
        FillDataSetAndView()
        BindFields()
        Dim conn As New SqlClient.SqlConnection("Server = " & "nx6130" & _
                "; Database = ActionGlass; " & _
                "Integrated Security  = sspi;")
 
        Dim ds As New DataSet
 
        Dim daQuotes As New SqlClient.SqlDataAdapter("SELECT * FROM tblQuotes WHERE tblquotes.CustomerID = '" & txtCustomerID.Text & "'", conn)
        Dim daOrders As New SqlClient.SqlDataAdapter("SELECT * FROM tblOrders WHERE tblOrders.CustomerID = '" & txtCustomerID.Text & "'", conn)
        Dim daPayments As New SqlClient.SqlDataAdapter("SELECT * FROM tblPayments WHERE tblPayments.CustomerID = '" & txtCustomerID.Text & "'", conn)
        'Dim daOrders As New SqlClient.SqlDataAdapter("SELECT * from tblOrders", conn)
 
        daOrders.Fill(ds, "tblOrders")
        daQuotes.Fill(ds, "tblQuotes")
        daPayments.Fill(ds, "tblPayments")
 
        grdInvoices.ReadOnly = True
        grdQuotes.ReadOnly = True
        grdPayments.ReadOnly = True
        grdInvoices.AllowUserToAddRows = False
        grdInvoices.DataSource = ds
        grdQuotes.DataSource = ds
        grdPayments.DataSource = ds
        grdInvoices.DataMember = "tblOrders"
        grdQuotes.DataMember = "tblQuotes"
        grdPayments.DataMember = "tblPayments"
 
 
 
 
        With grdQuotes
 
            '  .Columns("QuoteID").HeaderText = "Quote ID"
            ' .Columns("DateOfQuote").HeaderText = "Date Of Quote"
 
        End With
 
    End Sub

Thanks for the advise on entering data directly into a query. I was not aware of that. (Yes im fresh from over from access)

Thanks