我想通过VB 6.0实现与ACCESS 2000数据库的连接,但是通过DATA控件连接运行后,
提示无法识别的数据库。怎么办呀?谁有代码贡献一点!先谢了!
提示无法识别的数据库。怎么办呀?谁有代码贡献一点!先谢了!
解决方案 »
- 杨振宁向新闻媒体证实 翁帆小姐已怀孕3个月
- 这个语句是什么意思呢?
- postmessage问题
- 延时问题
- 求一个用ado把access数据库代入listview的例子
- 恳求大家帮助:1 vsflexGrid 如何只能让某些特定列可编辑?2:一个Ado 的记录集Update, 如果记录集是关联出来的,只想更新其中的一个表
- 自动更新问题,比较难!
- 关于ado的Parameters的疑问。
- 关于编写一个时间输入程序问题
- 请教高手!如何将两个表的数据进行比较后。将不同的数据,发送到第三个表!!!!!紧急!!求助!!
- 在vb中怎样连接mysql数据库(新手)求救!
- 关于动态建立数据库时的一个问题,请大家帮帮忙
ADODC
添加 microsoft ADO Data Controls
或者用ADO直接连不用控件,这样更灵活
引用Microsoft ActiveX Data Object 2.5 LibraryPrivate Function GetDatabase(cnDatName As ADODB.Connection, ByVal strDataSource As String) As Long
If cnDatName.State = adStateOpen Then cnDatName.Close
cnDatName.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; " & _
"Data Source=" & strDataSource
cnDatName.Mode = adModeReadWrite
cnDatName.Open
GetDatabase = 0
End Function==天下本无事,庸人自扰之==
得意淡然,失意泰然
[email protected]
上面的函数写错了
应该是:
Private Function GetDatabase(cnDatName As ADODB.Connection, ByVal strDataSource As String) As Long
If cnDatName.State = adStateOpen Then cnDatName.Close
cnDatName.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & strDataSource
cnDatName.Mode = adModeReadWrite
cnDatName.Open
GetDatabase = 0
End Function
Microsoft.Jet.OLEDB.3.51;适用Access97,2000后要用Microsoft.Jet.OLEDB.4.0;==天下本无事,庸人自扰之==
得意淡然,失意泰然
[email protected]
Public MdbConn As New ADODB.Connection'功能简介:建立本地数据库公共链接
'参数一:MDB数据库地址路径
'参数二:密码 为空时表示没有密码
'返回值:"ok"--成功
Function PulbicMdbConn(ByVal StrPath As String, Optional StrPassword As String) As String
On Error GoTo MdbConnErr
Dim StrSql As String
If StrPassword = "" Then '无密码
StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
Else '有密码
StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=True;Jet OLEDB:Database Password='" & StrPassword & "'"
End If
If MdbConn.State <> 0 Then MdbConn.Close
MdbConn.Open StrSql
PulbicMdbConn = "ok"
Exit Function
MdbConnErr:
PulbicMdbConn = Err.Description
If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function'功能简介:关闭本地数据库公共链接
Function PublicMdbClose()
If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function