客户端连接远程数据库是如何做的

我是在连接字符串中直接写了服务器的IP地址  
  Gconstr   =   "Provider="   &   Provider   &   ";Data   Source="   &   ServerName   &   ";Initial   Catalog=sms;User   Id="   &   uid   &   ";pwd="   &   upass   &   ""  
   
  Gcon.open   Gconstr  
   
  然后对服务器的操作就是用了Gcon来执行  
  这样可以么？  
  还有大家说的心跳程序是怎么样的啊  
  问题点数：100、回复次数：6Top

1 楼summerICEREDTEA（从基础学起）回复于 2005-11-02 09:55:42 得分 0

因为我只是在局域网中测试，没有真正的连接到公网中，所以不知道怎么写  
  我看有的程序是用TCP或者HTTP连接的，用个WINSOCK控件连接？这样该怎么写啊Top

2 楼cuilei197979（风）回复于 2005-11-02 10:01:29 得分 50

你说的没有错  
  给你个连接数据库及查询数据的函数，要引用ado的  
  Dim   msgtext   As   String  
  Dim   mrc   As   ADODB.Recordset  
   
  Public   Function   ExecuteSQL(ByVal   sql   As   String,   MsgString   As   String)   As   ADODB.Recordset  
          Dim   cnn   As   ADODB.Connection  
          Dim   rst   As   ADODB.Recordset  
          Dim   sTokens()   As   String  
          'Dim   SQL   As   String  
          On   Error   GoTo   ExecuteSQL_Error  
          sTokens   =   Split(sql)  
          Set   cnn   =   New   ADODB.Connection  
          cnn.Open   ConnectString  
          If   InStr("INSERT,DELETE,UPDATE",   UCase$(sTokens(0)))   Then  
                cnn.Execute   sql  
                MsgString   =   sTokens(0)   &   "query   successful"  
          Else  
                Set   rst   =   New   ADODB.Recordset  
                rst.Open   Trim$(sql),   cnn,   adOpenKeyset,   adLockOptimistic  
               
                 
                Set   ExecuteSQL   =   rst  
                   
                MsgString   =   "查询到"   &   rst.RecordCount   &   "条纪录"  
          End   If  
  ExecuteSQL_Exit:  
          Set   rst   =   Nothing  
          Exit   Function  
          Set   cnn   =   Nothing  
  ExecuteSQL_Error:  
          MsgString   =   "查询错误:"   &   Err.Description  
          Resume   ExecuteSQL_Exit  
  End   Function  
   
  Public   Function   ConnectString()   As   String  
          'ConnectString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\计划管理系统.mdb;Persist   Security   Info=False"  
          ConnectString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=aa;Data   Source=13.1.1.52"  
  End   Function  
  Top

3 楼tembo（小宝）回复于 2005-11-02 10:09:15 得分 50

可以这样写连接：  
  Public   Gconstr   As   String  
          Gconstr   =   "Provider=SQLOLEDB.1;Persist   Security   Info=False;"   &   _  
                          "User   ID="   &   mSQLServerUsername   &   ";Password="   &   mSQLServerPassword   &   ";"   &   _  
                          "Data   Source="   &   mSQLServerName   &   ";Initial   Catalog="   &   mSQLDataName  
           
          Set   mAdoCnn   =   New   ADODB.Connection  
          mAdoCnn.ConnectionString   =   Gconstr    
          mAdoCnn.CursorLocation   =   adUseClient  
          mAdoCnn.Open  
   
  mSQLServerUsername         Sqlserver的用户名  
  mSQLServerPassword         用户密码  
  mSQLServerName                 主机名或IP地址  
  mSQLDataName                     数据库名  
   
   
  Top

4 楼summerICEREDTEA（从基础学起）回复于 2005-11-02 10:12:53 得分 0

就是说可以直接用ADO连接不用什么HTTP   TCP方式是了吧？  
  在公网也不会出问题？Top

5 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-02 10:17:25 得分 0

可以的  
  心跳程序是什么？Top

6 楼summerICEREDTEA（从基础学起）回复于 2005-11-02 10:27:56 得分 0

好象是用个winsock控件+个timer   定时发特定的信息给服务器接受返回Top

相关问题

• 连接
• 服务器
• sql
• msgstring
• stokens
• cnn
• rst
• executesql
• adodb
• 程序

• 帖主：summerICEREDTEA
• cuilei197979
• tembo

• Visual Basic类图书
• Visual Basic类源码下载