Question

vb中access数据库查询

vb中access数据库查询如图 在流量框和扬程框中输入两个数据，要求command1 点击后第三个text框显示出型号
已建好access表格名为【表1】
请给出vb代码，谢谢

Answer 1

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"
sql = "Select * From “ & ”表名" & where ID=20"

Rs.Open sql, Conn, 1, 3

If NOT rs.eof then

m_date= rs("日期型字段的名字")
m_data= rs("数值型字段的名字")
end if
end sub

Answer 2

Access的数据透视功能比Excel还要强悍一些。值得学习掌握～