Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset dim conn_string as string conn_string = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & mdb_path & ";pwd=" & mdb_password conn.Open conn_string rs.Open "SELECT * FROM yourtablename", conn
dim Cn1 as New Connection dim Rs1 as new Recordset dim StrTmp as string StrTmp ="DRIVE={Microsoft Access Driver(*.mdb)};DBQ="+mdb_pathname+";pwd"+mdb_Password Cn1.open StrTmp Rs1.open "select * from 表名",Cn1,参数1,参数2参数1,参数2表明连接光标状态
能写详细些吗?谢谢!
Dim rs As New ADODB.Recordset
dim conn_string as string
conn_string = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & mdb_path & ";pwd=" & mdb_password
conn.Open conn_string
rs.Open "SELECT * FROM yourtablename", conn
dim Rs1 as new Recordset
dim StrTmp as string
StrTmp ="DRIVE={Microsoft Access Driver(*.mdb)};DBQ="+mdb_pathname+";pwd"+mdb_Password
Cn1.open StrTmp
Rs1.open "select * from 表名",Cn1,参数1,参数2参数1,参数2表明连接光标状态
odbc 数据源就可以了!