在项目中选择左边“工具盒”中的数据库适配器，本例子用的是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
本文地址：http://com.8s8s.com/it/it42752.htm