我是初级程序员。实际上,我使用了两个名为“类别”和“位置”的组合框。当我将点击提交,然后它应该显示的化学品类别和位置分别从数据库中的标签本身。
发布于 2017-12-06 16:00:55
我想你可能在找这样的东西吧?
Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As SqlDataAdapter
Dim ds As New DataSet
connetionString = "ConnetionString;"
connection = New SqlConnection(connetionString)
Try
connection.Open()
adapter = New SqlDataAdapter("Select column1, column2, column3, column4 from Table1 where Id='" & TextBox9.Text & "'", connection)
adapter.Fill(ds)
connection.Close()
If ds.Tables(0).Rows.Count > 0 Then
label1.Text = "blablabla" & ds.Tables(0).Rows(0)("column1").ToString()
label2.Text = "blablabla" & ds.Tables(0).Rows(0)("column2").ToString()
label3.Text = "blablabla" & ds.Tables(0).Rows(0)("column3").ToString()
label4.Text = "blablabla" & ds.Tables(0).Rows(0)("column4").ToString()
End If
Catch ex As Exception
Form4.TextBox1.Text = "Failed to connect to database"
Form4.Show()
End Try
Return Falsehttps://stackoverflow.com/questions/47668978
复制相似问题