VB连接SQL SERVER的问题!

Question

Option Explicit
    Public conn As New ADODB.Connection
    Public strConn As StringPublic Function Make_Connection() As Boolean    On Error GoTo err:    'strConn = "driver={SQL Server}; server=david; uid=sa; pwd=sa; database=pub"    'strConn = "Provider=SQLOLEDB.1;Persist Security Info=true;Uid=sa;Initial Catalog=pub;Data Source=david"    'strConn = "Driver={SQL Server}; Server=david; Address=192.107.2.13,1433; Network=dbmssocn; Database=pub; Uid=sa; Pwd=sa;"    'strConn = "Driver=SQLOLEDB.1;Server=david;Address=192.107.2.13;Network=domain4-4;Database=pub; Uid=sa;Pwd=sa;"
   
    strConn = "Driver={SQL Server}; Server=david; Uid=sa; Pwd=sa; Database=pub"
   
    'strConn = "Provider=SQLOLEDB.1; Server=david; Uid=sa; Pwd=sa; Database=pub;"      'strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=david"   
    
    
    conn.Open strConn
    Make_Connection = Trueerr:
    Make_Connection = False
    err.Clear
End Function
以上的每个连接都尝试过了,但是就是不能连接上去.请问还需要那里设置还是语句本身有问题呢?分数不多，敬请赐教!

Answer 1

On Error GoTo err:他把错误都清除掉了 怎么看阿

Answer 2

strConn = "Driver={SQL Server}; Server=david; Uid=sa; Pwd=; Database=pub"
你把SQL的密码设为空在试试看，万一不行用ADODC用鼠标界面连接一下看，看自动生成的代码，复制过来就OK

Answer 3

是的 用Adodc控件事個是個好方法

Answer 4

这个问题主要在你的客户端有没有启用连接SQL的TCP/IP协议，可以这样做：
控制面板－管理工具－数据源（ODBC）－系统DSN－添加－选“Sql Server”-按“完成”－输入“名称”和“服务器”，下一步－选“使用用户输入登录ID...”，然后单击“客户端配置”－“网络库”选“TCP/IP”，按“确定”，然后一路下一步就好了。

Answer 5

在 err  标签的前面不要忘记加个退出语句  Exit Function
不然每次都执行err了，当然错了

Answer 6

Option Explicit
    Public conn As New ADODB.Connection
    Public strConn As StringPublic Function Make_Connection() As Boolean    On Error GoTo err:    'strConn = "driver={SQL Server}; server=david; uid=sa; pwd=sa; database=pub"    'strConn = "Provider=SQLOLEDB.1;Persist Security Info=true;Uid=sa;Initial Catalog=pub;Data Source=david"    'strConn = "Driver={SQL Server}; Server=david; Address=192.107.2.13,1433; Network=dbmssocn; Database=pub; Uid=sa; Pwd=sa;"    'strConn = "Driver=SQLOLEDB.1;Server=david;Address=192.107.2.13;Network=domain4-4;Database=pub; Uid=sa;Pwd=sa;"
   
    strConn = "Driver={SQL Server}; Server=david; Uid=sa; Pwd=sa; Database=pub"
   
    'strConn = "Provider=SQLOLEDB.1; Server=david; Uid=sa; Pwd=sa; Database=pub;"      'strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=david"   
    
    
    conn.Open strConn
    Make_Connection = True
    Exit Function    ' -------------------------->加在这里哦
err:
    Make_Connection = False
    err.Clear
End Function

Answer 7

首先你要保障网络等其他问题，再去调试代码的问题。
你可以先在控制面板里创建一个ODBC数据源，里面有测试连接，看看能否能正常连接。╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 8

谢谢大家的帮忙,已经根据"icbcnbxs(我来灌水) "的提示完成连接了!多谢!特此结题