VB6 ado远程连接数据库 sql2005

最新推荐文章于 2021-01-25 08:12:22 发布

阿强的一亩三分地

最新推荐文章于 2021-01-25 08:12:22 发布

阅读量5.2k

点赞数

分类专栏： VB SQL连接文章标签：远程连接数据库 vb sql database string

本文链接：https://blog.youkuaiyun.com/eqiang8271/article/details/2300714

版权

VB SQL连接专栏收录该内容

3 篇文章

订阅专栏

本文介绍如何在VB6中通过ADO组件实现与远程SQL Server数据库的连接，并提供了一个具体的示例代码，包括连接字符串配置及简单查询操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先在vb6添加引用，微软的ado的dll

然后在工程里就可以进行数据库的连接，远程连接字符串有多种。

Private Sub Command1_Click()


     Dim AdoConnTool As New ADODB.Connection
     Dim AdoRsTool As New ADODB.Recordset
     Dim strAdoConnTool As String
     strAdoConnTool = ""

'以下三种都可以
' strAdoConnTool = "provider=SQLOLEDB.1;Data Source=202.202.172.59;Database=new ;UID=sa;PWD=ok xz;"
strAdoConnTool = "provider=SQLOLEDB;Data Source=202.202.172.59;Database=new ;UID=sa;PWD=ok xz;"

'     strAdoConnTool = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=ok xz;Initial Catalog=new ;Data Source=202.202.172.59;"



    strSQL1 = "SELECT id,username,password FROM tUser where id=1"

     AdoConnTool.Open strAdoConnTool
'     AdoRsTool.Open strSQL1, AdoConnTool, adOpenStatic, adLockReadOnly
     AdoRsTool.Open strSQL1, AdoConnTool, adOpenForwardOnly


'     adorstool!username
     Dim strTotal As String
     strTotal = ""

    If AdoRsTool.RecordCount <> 0 Then

        MsgBox "测试成功"
    End If

    AdoRsTool.Close
    AdoConnTool.Close




End Sub