各位大虾帮忙看看,我这是什么原因呢,谢谢!
Dim connection1 As Adodb.Connection
Dim statestring As String
Set connection1 = New Adodb.Connection
connection1.ConnectionString = "dsn =wwalmdb;uid = sa ; pwd =;"
connection1.Provider = "Microsoft.Jet.OLEDB.4.0"
connection1.ConnectionTimeout = 30
connection1.Open "WWAlmdb", "sa", ""
Select Case connection1.State
Case adstateclose
statestring = "adstateclose"
Case adStateOpen
statestring = "adstateopen"
End Select
MsgBox "connection1.state:", statestring
End Sub执行后出现:"无法启动工作程序,工作组信息文件丢失,或是以被其他用户以独占方式打开."对于您的提点不胜感激!
Dim connection1 As Adodb.Connection
Dim statestring As String
Set connection1 = New Adodb.Connection
connection1.ConnectionString = "dsn =wwalmdb;uid = sa ; pwd =;"
connection1.Provider = "Microsoft.Jet.OLEDB.4.0"
connection1.ConnectionTimeout = 30
connection1.Open "WWAlmdb", "sa", ""
Select Case connection1.State
Case adstateclose
statestring = "adstateclose"
Case adStateOpen
statestring = "adstateopen"
End Select
MsgBox "connection1.state:", statestring
End Sub执行后出现:"无法启动工作程序,工作组信息文件丢失,或是以被其他用户以独占方式打开."对于您的提点不胜感激!
解决方案 »
- 请问在VB6如何调用VB.NET的函数?
- webbrowser怎么运行网页的javascript程序
- 问高手(在线等!):如何数据库操作时使用事物回衮机制?
- VB如何判断win2k已经安装了sp3补丁?
- 怎样去做啊
- ████████请问如何在DOS中禁用FTP账号?████████
- 如何抓取用MCI(mciSendString函数)播放的影音文件中的图片
- 3343错误如何解决, msdn 死活找不到, 看来msdn也不是万能的啊!!
- 怎么样可以让Explorer.exe停止运行?
- VB真的不知1、2、3 .....谁大???奇怪!
- POSTMESSAGE被屏蔽问题
- 如何用循环取得vb的DataGrid中一列的值
当该成:connection1.Open 时出现:无法找到可插入的ISAM组件.