vb只用代码如何连接数据库？

显示全部楼层 · 2008-7-18 17:13:05

Private Sub Form_Load()
Dim jfy As New ADODB.Connection
Dim jfy1 As New ADODB.Recordset
End Sub
Private Sub Command1_Click()
jfy.Provider = "Microsoft.Jet.OLEDB.4.0"
jfy.ConnectionString = "e:\jfy.mdbb"
jfy.Open
End Sub
这个不对吗？
就在我的计算机运行就可以，那个路径我暂时不考虑。

千问 · 2008-7-18 17:13:05

把Dim jfy As New ADODB.Connection Dim jfy1 As New ADODB.Recordset 放到最外面，不要放到Form_Load里-----当然不对罗jfy 在Form_Load里声明Form_Load结束后jfy 也就没了Command1_Click里怎么能再访问jyf呢

千问 · 2008-7-18 17:13:05

Dim strapp As String
strapp = "e:\"If Right(strapp, 1)
"\" Then
strapp = strapp + "\"
end if
cn.open = "Provider=Mi