vb.net 读取数据库多个列值到多个textbox中
数据库表ygxx:编号01,02,03;对应姓名何二,张三,李四,对应年龄22,23,23。有三个textbox:textbox1,textbox2,textbox3。我...
数据库表ygxx:编号01,02,03;对应姓名何二,张三,李四,对应年龄22,23,23。
有三个textbox:textbox1,textbox2,textbox3。
我要根据输入的编号,将对应的编号、姓名和年龄分别显示到textbox1,textbox2,textbox3中。
请问该怎样写代码啊?对了我再赏20分!
我用的是sql2005啊!麻烦你把那个连接数据库的代码写一下,我试了一下,说不能转换什么的。麻烦了! 展开
有三个textbox:textbox1,textbox2,textbox3。
我要根据输入的编号,将对应的编号、姓名和年龄分别显示到textbox1,textbox2,textbox3中。
请问该怎样写代码啊?对了我再赏20分!
我用的是sql2005啊!麻烦你把那个连接数据库的代码写一下,我试了一下,说不能转换什么的。麻烦了! 展开
1个回答
展开全部
这里假定你用access数据库,如果不是那么请使用相应的命名空间。
表ygxx(字段就用 f1 、f2、f3 来表示把表如下)
f1 f2 f3
01 何二 22
02 张三 23
03 李四 23
sub getmsg(byval number as int32)
'这里省去数据库连接conn代码
dim sql as string="select * from ygxx where f1=" & f1
dim cmd as new oledbcommand(sql,conn)
dim read as oledbdataread=cmd.executedataread
read.read
textbox1.text=read("f1")
textbox2.text=read("f2")
textbox3.text=read("f3")
read.close
cmd=nothing
conn.close
end sub
调用getmsg(x)就行了
表ygxx(字段就用 f1 、f2、f3 来表示把表如下)
f1 f2 f3
01 何二 22
02 张三 23
03 李四 23
sub getmsg(byval number as int32)
'这里省去数据库连接conn代码
dim sql as string="select * from ygxx where f1=" & f1
dim cmd as new oledbcommand(sql,conn)
dim read as oledbdataread=cmd.executedataread
read.read
textbox1.text=read("f1")
textbox2.text=read("f2")
textbox3.text=read("f3")
read.close
cmd=nothing
conn.close
end sub
调用getmsg(x)就行了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询