vb.net中的数据库连接

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

在项目中选择左边“工具盒”中的数据库适配器,本例子用的是ODBC数据源,所以选择OdbcDataAdapter.

选中OdbcDataAdapter,在属性窗口中选择SelectCommand,展开,选择Connection,在下拉框中选择“新建”,在弹出的窗口中选择Computer database页,选中想要得OdbcDataSource.选择Command Text,点击旁边的“省略号按钮”,在弹出的窗口中输入sql语句。如果sql语句中有条件参数,要用“问号?”代替。如:select user,name from table where user = ? .并且需要选择Parameters,点击旁边的“省略号按钮”,在弹出的窗口中选择“增加”,就增加了一个参数。在旁边的属性框中修改参数的属性。OdbcType 为参数对应字段的类型,SourceColumn为参数对应字段名。ParameterName为参数名,这里为PARAM1。

下面进入代码页,手工修改代码。

在配置OdbcDataAdapter的时候,新建连接后,有一个连接控件生成显示,名字是OdbcConnection,在数据库连接的时候先要把它打开。用语句Me.OdbcConnection1.Open(),用完要关掉,Me.OdbcConnection1.Close()。

数据查询出来,可以放到一个相当于记录集的地方,这里用语句

Dim odr1 As System.Data.Odbc.OdbcDataReader 定义变量odr1来存放。

刚才说了,查询有参数的话,现在要把从界面上获取的实际的值传给参数,用语句

Me.OdbcSelectCommand2.Parameters("PARAM1").Value = Me.TextBox1.Text

注意,这里是OdbcSelectCommand,而不是OdbcDataAdapter2.SelectCommand。

然后执行下面的语句得到记录集

odr1 = Me.OdbcDataAdapter2.SelectCommand.ExecuteReader()

判断记录集是不是为空,不为空就通过odr1("字段名")读取记录集中的数据

If odr1.HasRows Then

While odr1.Read()

name = odr1("name")

user = odr1("user")

End While

odr1.Close()

End If

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航