一个查看网络连接是否正常的问题?(测试OK,放在上面供我一样的新手用)

真主

以前MDB(后台)-->MDB(前端)时我是用找网络是的一个文件是否有效
If Dir("\\ntserver\Mdb\WinSun\144.mdb") = "" Or IsNull(Dir("\\ntserver\Mdb\WinSun\144.mdb")) Then
可现在我改为SQL(后台)-->MDB(前端),请问如何查看网络连接是否正常

[此贴子已经被作者于2006-4-17 9:55:28编辑过]

zhengjialon

用个错误陷井试试.链不上就是网络连接不正常

真主

能写一个例子吗?

真主

能帮我写个范本吗?我试了几天,没成功

fan0217

思路就是你设法链接后台,如果链接不上,系统会报错误,你拦截它报错的错误码就可以了.

真主

我真的不太明白,如何在VBA中连接SQL

真主

On Error GoTo 1:
''查看SQL后台文件是否存在======================================================================================================
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strConn = "rovider=SQLOledb;Data Source=192.168.0.1;Uid=sawd=sa;DataBase=abc"
conn.Open strConn
2:
DoCmd.OpenForm "A207"
    Exit Sub
1:
    DoCmd.Quit
测试OK,放在上面供我一样的新手用

[此贴子已经被作者于2006-4-17 9:55:05编辑过]

真主

另请问这样为什么不行?

    Dim SqlServer As String
    Dim Sqluserid As String
    Dim SqlPassWord As String
    Dim SqlCatalog As String
    SqlServer = "192.168.0.1"
    Sqluserid = "sa"
    SqlPassWord = "sa"
    SqlCatalog = "abc"
On Error GoTo 1:
''查看SQL后台文件是否存在======================================================================================================
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strConn = "rovider=SQLOledb;Data Source=SqlServer;Uid=Sqluseridwd=SqlPassWord;DataBase=SqlCatalog"
conn.Open strConn
2:
DoCmd.OpenForm "A207"
    Exit Sub
1:
    DoCmd.Quit

zhangbin

strConn = "rovider=SQLOledb;Data Source=" & SqlServer & ";Uid=" & Sqluserid & "wd=" &SqlPassWord & ";DataBase=" & SqlCatalog

真主

谢谢你,strConn = "rovider=SQLOledb;Data Source=" & SqlServer & ";Uid=" & Sqluserid & "wd=" &SqlPassWord & ";DataBase=" & SqlCatalog & "",完全OK!