我现在有一个数据库是加了密码的,
我的连接函数如下所示;
'**************************************************
'函数名:main
'作 用:程序初始化时所用的信息
'关键字:conn.string
'创建日期:2004-10-10
'创建作者:GKK1984
'**************************************************
Public Sub Main()
If App.PrevInstance Then Exit Sub
Dim str As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error GoTo OpenErr
If Dir(str) <> Empty Then
conn.ConnectionString = ConnectString
conn.Open
Else
MsgBox "找不到数据库!请您检查一下您的数据库路径!!", , gTitle
End
End If
Exit Sub
OpenErr:
MsgBox err.Description, , gTitle
err.Clear
'EndSystem
End SubPublic Function ConnectString() As String
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\Employ1.mdb;Persist Security Info=False;Database Password=123456"
End Function这是我连接数据库的程序,但是系统提示说找不到可安装的ISAM还请诸位帮我解决一下一下了啊!
我的连接函数如下所示;
'**************************************************
'函数名:main
'作 用:程序初始化时所用的信息
'关键字:conn.string
'创建日期:2004-10-10
'创建作者:GKK1984
'**************************************************
Public Sub Main()
If App.PrevInstance Then Exit Sub
Dim str As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error GoTo OpenErr
If Dir(str) <> Empty Then
conn.ConnectionString = ConnectString
conn.Open
Else
MsgBox "找不到数据库!请您检查一下您的数据库路径!!", , gTitle
End
End If
Exit Sub
OpenErr:
MsgBox err.Description, , gTitle
err.Clear
'EndSystem
End SubPublic Function ConnectString() As String
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\Employ1.mdb;Persist Security Info=False;Database Password=123456"
End Function这是我连接数据库的程序,但是系统提示说找不到可安装的ISAM还请诸位帮我解决一下一下了啊!
解决方案 »
- 【请求推荐】在CSDN上别的朋友请你“断帖”是什么意思?
- VB中,else是不是也是和最近一个没匹配的if匹配?
- 个人代码的编写速度,快慢的标准怎样界定?
- 提取汉字第一个拼音字母或五笔第一个字根问题
- VB的QQ群号6537626。希望大家加入。现在有部分人了。但人气不足。谢谢
- LISTBOX的DRAGMODE,OLEDRAGMODE 怎么用?谢谢
- 增分!PowerDesigner
- VB6.0 data 控件可以连接 access XP 的数据库吗?
- 急急!!ASP上传图片问题
- 急!里面应该有高手吧,关于VB6的打印问题。
- 往datagrid添加数据,能不能一行一行添加?
- 再开一帖加分,希望能认真搞清楚我下面这个问题
要不你帮我试试,然后给我一段代码吧!你看行不
试下在连接字符中加入user id 或将Persist Security Info=True
http://www.connectionstrings.com/