vb数据库的问题
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim l As String
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =F:\scores.mdb; pwd=q1"
sql = "select * from 成绩"
conn.Execute sql
'DataGrid1.DataSource = conn
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub
‘我的数据库的密码是q1
'可是出现“找不到可安装的ISAM”的错误
还有,我想请教一下各位高手,有没有学习vb数据库好的教材,或地址
也可发到我的邮箱you19890723@126.com 谢谢了
[解决办法]
- VB code
with conn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=f:\scores.mdb;Jet OLEDB:Database Password=q1" .Open .CommandTimeout = 0End With
[解决办法]
- VB code
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\scores.mdb;User Id=admin;Password=q1;"