VB连接数据库的方法1

[快捷功能]： | | |

散步

密码生成器

[

2007年1月27日星期日 20:11 | by 九天狼 | 出处：本站原创 ]

大 | 中 | 小

↓看看这下面↓

↑诱惑你自己↑

Public connSTR As String '定义一个公用变量

Public Function CData() '连接数据库,
On Error GoTo errEnd
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "Data.mdb"
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Exit Sub
errEnd:
MsgBox err.Description, vbOKOnly + vbExclamation, "打开数据库出错"
End Function

使用方法:
dbName为数据库路径
在需要连接数据库的地方直接调用本代码,然后使用Adodc组件进行连接数据库操作:如下:

Call CData
Adodc1.ConnectionString = connSTR
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 两代一换"
Adodc1.Refresh

最后编辑：九天狼编辑于2007年2月5日星期二 22:09