vb.net2005,一个简单的获取数据库数据问题

2010-01-14 10:41:50 240 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

hbhuo2008 墨衍会员 · AI 创作全网分发关注 + 加入社区

如何使用VS2005的VB.net开发WinCE应用程序 Visual Basic .NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言.Visual Basic .NET的应用范围包括windows桌面、web以及当阅读详情

登陆窗体设计

用户代号 textbox1
用户名 combox1
密码 textbox2

1、在窗体的load事件中写
连接数据库以及把所有用户名都添加到combox1里这步ok，

2、在combox的SelectedIndexChanged事件里写
选择一个用户名并把相应用户代号显示在textbox1中，

问题是：查询选择的用户名代号后怎么显示到textbox1？

小弟对vb编程还不熟，希望得到各位的帮助，谢谢！

...全文

001-基础入门-Web演示源码&资源&工具箱等小迪安全2023笔记阅读详情

hbhuo2008

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

wtnu200 2010-01-14

打赏
举报

当combobox修改选择时(双击combobox控件后显示的那个事件里面),
执行下面的
dim ds as new dataset
dim ad as new sqldataadpter("select 代号 from table where 用户名='"& combobox.selectitem &"'",sqlconn)
ad.fill(ds)
textbox1.text=ds.table(0).row(0).item(0).tostring

sqlconn为数据连接,自己写.

zhujiazhi 2010-01-14

打赏
举报

C#
SqlConnection conn = new SqlConnection("连接字符串");
SqlCommand cmd = conn.CreateCommand();
cmd.CommandText = "查询语句";
conn.Open();
try
{
SqlDataReader reader = cmd.ExecuteReader();
if(reader.Read())
{
textbox1.Text = reader.GetString(0);
}
reader.Close();
}
catch (Exception)
{

throw;
}
cmd.Dispose();
conn.Close();
conn.Dispose();

下面的VB代码是转的
Dim conn As New SqlConnection("连接字符串")
Dim cmd As SqlCommand = conn.CreateCommand()
cmd.CommandText = "查询语句"
conn.Open()
Try
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.Read() Then
textbox1.Text = reader.GetString(0)
End If
reader.Close()
Catch generatedExceptionName As Exception

Throw
End Try
cmd.Dispose()
conn.Close()
conn.Dispose()

zishanyan 2010-01-14

打赏
举报

在SelectedIndexChanged事件里获取选中的用户名，然后连接数据库查询用户名的用户代码，得到后赋值给textbox1.text

the_else 2010-01-14

打赏
举报

tostring?

hbhuo2008 2010-01-14

打赏
举报

[Quote=引用 4 楼 wtnu200 的回复:]
当combobox修改选择时(双击combobox控件后显示的那个事件里面),
执行下面的
dim ds as new dataset
dim ad as new sqldataadpter("select 代号 from table where 用户名='"& combobox.selectitem &"'",sqlconn)
ad.fill(ds)
textbox1.text=ds.table(0).row(0).item(0).tostring

sqlconn为数据连接,自己写.

[/Quote]

textbox1.text=ds.table(0).row(0).item(0).tostring 这样写如果再选择其他用户名时，textbox1的用户代号没有跟着变化。

vb.net2005,一个简单的获取数据库数据问题

相关推荐