我是这么连接远程数据库的
Sub Main()
If Not ServerConnect Then
MsgBox "数据库联接错误,请查看联机帮助文件 !!! ", vbCritical
End
End If
ic_form.Show
End Sub
Public Function ServerConnect() As Boolean
ServerConnect = False
Dim a, b, c As Variant
Dim database As String
Dim SQLstatus As String
On Error GoTo ErrHandle
SQLstatus = "SQL"
Select Case UCase(SQLstatus)
Case "SQL"
strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=code;Data Source=sss"
End Select
conn.ConnectionString = strconn
conn.ConnectionTimeout = 100
conn.Open strconn
Set Cmd.ActiveConnection = conn
Cmd.CommandTimeout = 1
ServerConnect = True
Exit Function
ErrHandle:
Dim adoErr As ADODB.Error
If conn.Errors.Count > 0 Then
For Each adoErr In conn.Errors
MsgBox "[Error Code] " & adoErr.Number & Chr(13) & adoErr.Description, vbCritical + vbOKOnly, "Error"
Next adoErr
End If
End Function
我检查了语句没有什么问题,但是程序运行时总是提示
运行时错误‘-2147467259(80004005)’
DBNETLIB[ConnectionRead(recv())]一般性网络错误,请检查网络文档。
这是什么原因,郁闷ING~~~~~~~
我把连接数据库的语句放到了模块中了,是和这个有关系吗?还是因为网络不稳定?连接本地数据库就没有这个问题。怎么才能解决?
Sub Main()
If Not ServerConnect Then
MsgBox "数据库联接错误,请查看联机帮助文件 !!! ", vbCritical
End
End If
ic_form.Show
End Sub
Public Function ServerConnect() As Boolean
ServerConnect = False
Dim a, b, c As Variant
Dim database As String
Dim SQLstatus As String
On Error GoTo ErrHandle
SQLstatus = "SQL"
Select Case UCase(SQLstatus)
Case "SQL"
strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=code;Data Source=sss"
End Select
conn.ConnectionString = strconn
conn.ConnectionTimeout = 100
conn.Open strconn
Set Cmd.ActiveConnection = conn
Cmd.CommandTimeout = 1
ServerConnect = True
Exit Function
ErrHandle:
Dim adoErr As ADODB.Error
If conn.Errors.Count > 0 Then
For Each adoErr In conn.Errors
MsgBox "[Error Code] " & adoErr.Number & Chr(13) & adoErr.Description, vbCritical + vbOKOnly, "Error"
Next adoErr
End If
End Function
我检查了语句没有什么问题,但是程序运行时总是提示
运行时错误‘-2147467259(80004005)’
DBNETLIB[ConnectionRead(recv())]一般性网络错误,请检查网络文档。
这是什么原因,郁闷ING~~~~~~~
我把连接数据库的语句放到了模块中了,是和这个有关系吗?还是因为网络不稳定?连接本地数据库就没有这个问题。怎么才能解决?
解决方案 »
- 如何判断两个日期是否在同一周呢?
- 标准正态分布函数曲线怎么画不出来?
- 如何获得控件的滚动条发生滚动的事件,根据此事件再让另外一个控件的滚动条也发生同步的滚动
- 如何用VB读取多个文本文件下的内容
- 怎么在picture框中添加一个命令按钮数组
- mshflexgrid控件的使用
- 哈哈我又有问题了。如何在代码里添加DataEnvironment1的connection
- 为何字段的值跟变量的值不一样?求各位高手解答
- 朋友们,请问用代码怎样对数据库的字段进行操作!(急!)
- 求教高手帮我看看 我用VB做的一个系统怎么让他的普通用户没有权限登陆这个 下面是代码 改那个才可以让他只能管理员才能有下面的权限
- 一个头疼的问题,怎么才能在表格控件(如vsflex)里画条趋势曲线图,并且随着表格移动而移动?
- VB 怎样才能开发互联网程序
还有您说的远程是广域网上的吗?
帮你顶顶……呵呵
1.身份验证模式;
2.登录用户名称和密码;
3.数据库名称;
4.数据库服务器名称;
5.登录用户是否具有访问权限;
6.SQL SERVER服务是否存在.