自动创建ODBC链接表

lshstruc

我作的ODBC链接表自动创建，刷新程序，如果服务器连接不同的情况下，会出现
1.报错，ODBC调用失败。
2.如下登陆框自动跳出。
我想让自己的对话框提示“无法连接服务器”代替出错信息，用onerror goto 语句 ,但是无效，登陆框还是自动跳出，请问能否将其屏蔽掉？我的代码：On Error GoTo errorc
Dim tdf As Object    'DAO.TableDef
'创建之前先清空
For Each tdf In CurrentDb.TableDefs
  If Len(tdf.Connect) > 0 Then
   DoCmd.DeleteObject acTable, tdf.Name
  End If
Next tdf
CurrentDb.Close

'开始创建
Set tdf = CurrentDb.CreateTableDef("预算表")
  tdf.Connect = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=127.0.0.1,7788;" & _
                "DATABASE=wzk;" & _
                "UID=sa;" & _
                "PWD=admin"

    tdf.SourceTableName = "dbo.预算表"   
    CurrentDb.TableDefs.Append tdf
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功，请查看表"
    Exit Sub

errorc:
   MsgBox "网络状况不通"

请问如何解决？

lshstruc

试用了一下站长的”自动创建ODBC数据源“做个测试，情况是一样的，无法阻止ODBC登录失败后系统给出的登陆框，站长的代码：
Function gt_TestOdbc() As Boolean
On Error GoTo err_c
DoCmd.SetWarnings False

Dim Response As Integer
Dim connstr As String, mydb As DAO.Database
      connstr = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=127.0.0.1,7788;" & _
                "DATABASE=wzk;" & _
                "UID=sa;" & _
                "PWD=admin"

Set mydb = DBEngine.Workspaces(0).OpenDatabase("", False, False, connstr)

gt_TestOdbc = True
Exit Function
err_c:

gt_TestOdbc = False
MsgBox "数据库用户,口令错误,重新登录!", , "文具"
Exit Function
End Function

tmtony

1.刷新链接这个系统窗口无法禁止的
2.在使用之先先判断一个表是否可连接 ,或先判断服务器IP是否可PING通.如果不通,基本上就判断连不到,采取措施

sxgaobo

tmtony 发表于 2014-10-18 23:36
1.刷新链接这个系统窗口无法禁止的
2.在使用之先先判断一个表是否可连接 ,或先判断服务器IP是否可PING通. ...

站长：能把您的例子传上来学学吗？

lshstruc

已解决，在创建之前先用ADO试连接，能连接成功，直接创建链接表，否则，捕获ado连接错误信息，判断是否服务器不通，并直接提示连接不通，退出

sxgaobo

能把例子传上来看看吗？

九月九的酒

没有设置属性保存密码.