vb.net中的数据库连接

80酷酷网    80kuku.com

  数据|数据库|数据库连接在项目中选择左边“工具盒”中的数据库适配器,本例子用的是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


分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: