VB如何查询一个ACCESS数据库中的相应字段内容 40
数据库中有一个进货表想要在TEXT控件内输入一串字符查询表中相同序列号所对应的型号并显示在另一个TEXT控件中麻烦把每句的注释告诉我一下表明为进货字段名是序列号型号我的序...
数据库中有一个进货表 想要在TEXT控件内输入一串字符查询表中相同序列号所对应的型号并显示在另一个TEXT控件中
麻烦把每句的注释告诉我一下
表明为 进货 字段名是 序列号 型号
我的序列号空间的标识是txt_In(0) 显示的是TEXT1 想点一下COMMANDBUTTON 然后显示在TEXT1里面commandButton 的名称是cmdML标识号是2 展开
麻烦把每句的注释告诉我一下
表明为 进货 字段名是 序列号 型号
我的序列号空间的标识是txt_In(0) 显示的是TEXT1 想点一下COMMANDBUTTON 然后显示在TEXT1里面commandButton 的名称是cmdML标识号是2 展开
1个回答
展开全部
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim conn As SqlConnection = New SqlConnection("server=(local);uid=sa;pwd=sa;database=进货表")
Dim sql As String = "select u_id,u_name from 进货表 where (u_id='" & Me.tb_name1.Text.Trim & "')"
Dim cmd As SqlCommand
Dim myreader As SqlDataReader
conn.Open()
cmd = New SqlCommand(sql, conn)
myreader = cmd.ExecuteReader
While myreader.Read
a = myreader.GetInt32(0)
b = myreader.GetString(1)
End While
conn.Close()
Me.tb_name2.Text = b
End Sub
Dim conn As SqlConnection = New SqlConnection("server=(local);uid=sa;pwd=sa;database=进货表")
Dim sql As String = "select u_id,u_name from 进货表 where (u_id='" & Me.tb_name1.Text.Trim & "')"
Dim cmd As SqlCommand
Dim myreader As SqlDataReader
conn.Open()
cmd = New SqlCommand(sql, conn)
myreader = cmd.ExecuteReader
While myreader.Read
a = myreader.GetInt32(0)
b = myreader.GetString(1)
End While
conn.Close()
Me.tb_name2.Text = b
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询