请问如何用VB.NET调用ACCESS数据库的查询？？？
Dim a As Double
Dim b As Double
Dim custDS As DataSet = New DataSet
Dim adoConn As ADODB.Connection = New ADODB.Connection
Dim RST As ADODB.Recordset = New ADODB.Recordset
a = CDbl(TextBox1.Text)
b = Format(a, "##.#")
adoConn.Open("Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Environment.CurrentDirectory & "\pump.mdb;")
RST.Open("SELECT * FROM QDX型单相潜水泵", adoConn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, 1)
OleDbDataAdapter1.Fill(custDS, RST, "QDX型单相潜水泵")
RST = adoConn.Execute("exec 查询2 " & b) '***********这里怎么设置把查询条件b送到查询2
pumpcounting = RST("sn").Value
adoConn.Close()
'以上把RST中的对象填充到dataset(-custDS中了, 然后datagrid.datasource = custDS.Tables(0))
DataGrid1.DataSource = custDS.Tables(0)
问题点数：0、回复次数：1Top
1 楼LaoDai_Net（『老代』）回复于 2005-06-04 02:00:19 得分 0
Dim connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径;"
Dim a, b As Double
Dim myConnection As OleDbConnection = New OleDbConnection(connectionString)
Dim selectStringA = "select * from db1 where id=" + a
Dim selectStringB = "select * from db2 where id=" + b
myConnection.Open()
Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(selectStringA, myConnection)
Dim ds1 As New DataSet
da1.Fill(ds1, "tablea")
DataGrid1.DataSource = ds1.Tables(0).DefaultView
DataGrid1.DataBind()
Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(selectStringB, myConnection)
Dim ds2 As New DataSet
da1.Fill(ds2, "tablea")
DataGrid2.DataSource = ds2.Tables(0).DefaultView
DataGrid2.DataBind()
myConnection.Close()
Top
