Question

集团，原谅我可能是一个非常简单的解释和答案。但是，我自学了Visual Basic，并且完全是新手。所以你知道，我正在使用Visual Studio 2010 Express。

我创建了一个包含客户记录表的数据库。通过我正在处理的订单输入模块，我想允许用户键入客户帐号。但是，在继续执行其余程序例程之前，我需要验证此条目。我认为我知道如何连接到数据库，但我不知道如何让用户输入的数字与表格进行比较以验证客户编号。这是我写的：

            Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection
            Dim dbSource As String = "Data Source = DataDesign.mdf"
            Dim dbProvider As String = "PROVIDER=SQL Server 10.0.5500;"
            Dim ds As New DataSet
            Dim sql As String = "SELECT * FROM AR_CUSTOMERS"
            Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(sql, conn)
            conn.ConnectionString = dbProvider & dbSource 
            Dim search1 As Integer = Integer.Parse(txbCustomerNo.Text)
            Dim cmd1 As SqlCommand = New SqlCommand
            conn.Open()

我现在卡住了。我已经定义了我的“搜索”（search1），但是我现在如何告诉程序查看表格以查看是否有匹配的客户编号？

我不想请你帮我写代码。但我在这里一无所知，我找不到一个很好的例子来帮助我理解这个过程并自己编写代码。

如果您发现任何语法错误，请不要犹豫!!

根据您的一些答案和进一步的研究，我修改了我的代码。它现在写着：

  Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection
  Dim dbSource As String = "Data Source=.;AttachDbFilename=C:\Users\Don\Documents\DataDesign.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
  Dim dbProvider As String = "PROVIDER=System.Data.SqlClient;"
  Dim ds As New DataSet
  Dim sql As String = "SELECT FROM AR_CUSTOMER"
  Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(sql, conn)
  conn.ConnectionString = dbProvider & dbSource
  Dim search1 As String = "%" & txbCustName & "%"
  Dim sqlQ1 As String = sql & " WHERE ARC-CUSTOMER-NAME LIKE search1"
  Dim cmd1 As New SqlCommand(sqlQ1, conn)
  conn.Open()

希望这种语法（搜索）看起来更好，更准确。如果没有，请帮我纠正。

假设这是正确的，我需要什么命令代码才能获得完整的ARC-CUSTOMER-NAME（并且可能有多个查找）以及相应的ARC-CUSTOMER-NUMBER？我假设这个数据会分成两个字符串（我需要“Dim”这些数据来接收数据吗？）这样就可以将它放入表单上的复选框和文本框中。

对不起，我不明白这一点。我希望通过这个，我头脑中的灯泡终于会亮相!!

Answer 1

如果您只是想知道客户是否存在于数据库中，您可以编写这样的代码

Using conn = new SqlConnection(connectionString)
    conn.Open()
    Dim cmd1 = new SqlCommand("SELECT COUNT(*) FROM AR_CUSTOMERS WHERE customerNo = @custNo")
    cmd1.Parameters.AddWithValue("@custNo", Convert.ToInt32(txbCustomerNo.Text))
    Dim result = cmd1.ExecuteScalar()
    if Convert.ToInt32(result) > 0 then
        MessageBox.Show("Customer Found")
    End If
End Using

如果您只想查找具有单个结果的单行，则可以使用SqlCommand对象的ExecuteScalar方法，并且在这种情况下通常非常快。

除此之外，我对你的连接字符串感到非常困惑。它似乎不是一个有效的在这里，您可以找到许多对Sql Server有效的连接字符串示例：http://www.connectionstrings.com/sql-server-2012

修改根据你的评论，现在很清楚，一个简单的ExecuteScalar是不够的。我们应该使用SqlDataReader并使用ExecuteReader。当然查询完全不同

Using conn = new SqlConnection(connectionString) conn.Open() Dim cmd1 = new SqlCommand("SELECT CustomerNo, CustomerName FROM AR_CUSTOMERS " + "WHERE customerName LIKE= @custName") cmd1.Parameters.AddWithValue("@custName", "%" + txtSearchText.Text.Trim() + "%") Dim reader As SqlDataReader = cmd1.ExecuteReader() If Not reader.HasRows Then txbCustName.Text = "No customer found!" Else While reader.Read() txbCustName.Text = reader(0).ToString cbxCustNo.Text = reader(1).ToString Loop End If End Using

然而，这种方法存在问题。如果使用LIKE的搜索返回多行，该怎么办？在这种情况下，您的文本框将填充最新客户的值也许最好使用DataTable，如果有多个客户要求用户从可用的客户中进行选择

Using conn = new SqlConnection(connectionString) conn.Open() Dim cmd1 = new SqlCommand("SELECT CustomerNo, CustomerName FROM AR_CUSTOMERS " + "WHERE customerName LIKE= @custName") cmd1.Parameters.AddWithValue("@custName", "%" + txtSearchText.Text.Trim() + "%") Dim adapter As SqlDataAdapter = new SqlDataAdapter(cmd1) Dim table As DataTable = new DataTable() adapter.Fill(table) If table.Rows.Count = 0 Then txbCustName.Text = "No customer found!" Else if table.Rows.Count = 1 Then Dim row as DataRow = table.Rows(0) txbCustName.Text = row("CustomerName").ToString cbxCustNo.Text = row("CustomerNo").ToString Else MessageBox.Show("More than one customer found!") ..... code to show the table in a datagridview .... End If End Using

Answer 2

最简单的方法应该是编写已经按客户编号过滤的SQL查询... SELECT * FROM AR_CUSTOMERS WHERE costumerNo = txbCosumerNo.Text，然后您可以使用DataSet存储从DataBase中检索的数据...（按照您的代码。。）

DataSet data = new DataSet();
da.fill(data);

...你可以从数据中获取DataTable ..（DataSet是DataTables的集合），可以很容易地使用。

vb.net搜索sql数据库以验证客户帐号

2 个答案: