vb如何访问access(紧在线等待)
解决方案 »
- 请教WithEvents事件
- Ado数据集,能实现SQL-distinct功能?
- vb中如何调用Acdsee看图程序啊?急~~~
- 欢迎大家讨论一下“sock5”的事情啊!
- 请大家帮帮忙!!!!!!!!!!!!
- 续:我现在需要将一些字符串写进(注意是追加,原先这个文本文件有内容)一个文本文件
- 关于记录集,这个问题我不清楚,还望高手指点!!!!!!!
- P166的机子连俄罗斯方块都不能玩?
- VB是“ _&”可VBS是什么呢?
- datareport.printreport 为何只打印一页?
- ~{8wN;4sO@0o0oC&~},~{NR5D~}VB ~{VP~}SQL~{2iQ/N*J2C4;aSPUbQy5D4mNs~}
- 刚才洒了200分,现在要问问题了,谁能给我一个比较完整的treeview操作的代码,实现N层
然后就可以使用它的强大数据库功能了
Microsoft ActiveX Data Objects 2.X Library联接/断开数据库
Public gConn As ADODB.ConnectionPublic Function ConnDB() As Integer
On Error GoTo ConnDB_Error ConnDB = STS_NORMAL Set gConn = New ADODB.Connection
gConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & MDBFile & ";Persist Security Info=False" GoTo WayOut
ConnDB_Error:
gsErrModule = "ConnDB"
Call ErrorProc
ErrOut:
ConnDB = STS_ERROR
WayOut:
End FunctionPublic Function DisConnDB() As Integer
Set gConn = Nothing
End Function
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码,就把Jet OLEDB:Database Password=1234;这段去掉 Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh
'添加事件
adoRS.AddNew
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll'删除
adoRS.Delete
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh