在Vb.net中使用sql提取查询

这是我的代码，然后问题是它不会显示网格列表中的信息。我想使我的两个表的内部连接，但它不符合我的代码。这将是什么样的替代方式？非常感谢你回答。在Vb.net中使用sql提取查询

Dim sqlQuery As String = "SELECT Persons.pr_id, Persons.pr_fname, Persons.pr_mname, Persons.pr_lname, Persons.pr_address, Users.UserName, Users.phone_num FROM Persons" & _ 
          "INNER JOIN Users ON Persons.pr_id = Users.pr_id" & _ 
          " WHERE pr_id='" & TextBox1.Text & "'" 
    Dim table As New DataTable 
    cn.Close() 
    cn.Open() 
    With cmd 
     .CommandText = sqlQuery 
     .Connection = cn 
    End With 
    With cmd 
     .CommandText = sqlQueryUser 
     .Connection = cn 
    End With 

    With sqla 
     .SelectCommand = cmd 
     .Fill(table) 
    End With 

    If ListView1.SelectedItems.Count > 0 Then 
     'Button20.Visible = True 
     'Button10.Visible = True 
     'RichTextBox2.Enabled = False 
     'senbyCombo.Enabled = False 
     'group_sendCombo.Enabled = False 
     'title.Enabled = False 
     'ListView3.Enabled = True 


     id = ListView1.SelectedItems(0).Text 
     TextBox1.Text = ListView1.SelectedItems(0).SubItems(0).Text 
     TextBox2.Text = ListView1.SelectedItems(0).SubItems(1).Text 
     TextBox3.Text = ListView1.SelectedItems(0).SubItems(2).Text 
     TextBox4.Text = ListView1.SelectedItems(0).SubItems(3).Text 
     TextBox5.Text = ListView1.SelectedItems(0).SubItems(4).Text 
     TextBox7.Text = ListView1.SelectedItems(0).SubItems(6).Text 


    End If 
    cn.Close()

来源

2014-01-14 RealJayzie

你的问题是关于SQL查询。您应该发布有关您的表格的信息，查询以及您试图达到的最终结果。其他的vb代码并不能帮助你。 – FeliceM

你有什么错误吗？ – Naveen

对不起FeliceM ..下次我会按照你的帖子.. :) – RealJayzie

您pr_id是ambiguous改变你的查询是这样的：

Dim sqlQuery As String = "SELECT Persons.pr_id, Persons.pr_fname, Persons.pr_mname, Persons.pr_lname, Persons.pr_address, Users.UserName, Users.phone_num FROM Persons" & _ 
         "INNER JOIN Users ON Persons.pr_id = Users.pr_id" & _ 
         " WHERE Persons.pr_id='" & TextBox1.Text & "'"

来源

2014-01-14 07:01:10

在Vb.net中使用sql提取查询

回答

相关问题