如何在Visual Basic 6.0中连接MySQL数据库及读取服务器文本文件

嘿，我来帮你搞定VB6里这两个常见需求——连接远程MySQL数据库和读取服务器文本文件，一步步来，都是实操性的步骤：

要让VB6连上远程MySQL，核心是用ODBC或者OLE DB驱动，这里推荐ODBC驱动，兼容性更好。

步骤1：安装MySQL ODBC驱动 #

VB6是32位程序，所以必须安装32位版本的MySQL ODBC Connector（别装64位的，不然VB6识别不了）。安装完成后，我们可以直接用无DSN的连接字符串，不用在系统里配置数据源，更灵活。

步骤2：编写连接代码 #

用ADO来实现连接和数据操作，记得先在VB6工程里引用Microsoft ActiveX Data Objects 2.8 Library（或更高版本）：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

' 替换成你的远程服务器信息
Dim connStr As String
connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
          "SERVER=你的远程MySQL服务器IP/域名;" & _
          "DATABASE=目标数据库名;" & _
          "UID=数据库用户名;" & _
          "PWD=数据库密码;" & _
          "PORT=3306;" & _
          "OPTION=3" ' 可选参数，用于设置连接特性

' 尝试连接
On Error Resume Next
conn.Open connStr
If Err.Number <> 0 Then
    MsgBox "连接失败：" & Err.Description
    Set conn = Nothing
    Exit Sub
End If
On Error GoTo 0

' 连接成功后，执行一个查询示例
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM 你的表名", conn, adOpenStatic, adLockReadOnly

' 遍历输出记录
Do While Not rs.EOF
    Debug.Print rs.Fields("你的字段名").Value
    rs.MoveNext
Loop

' 记得关闭资源，避免内存泄漏
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

关键注意事项 #

• 远程MySQL服务器要允许外部访问：登录MySQL执行授权命令：

  GRANT ALL PRIVILEGES ON 你的数据库名.* TO '用户名'@'%' IDENTIFIED BY '密码';
  FLUSH PRIVILEGES;
  

• 服务器防火墙必须开放3306端口，否则VB6连不上
• 驱动名称要和你安装的版本匹配，比如装的是5.3版本，就把{MySQL ODBC 8.0 Unicode Driver}改成{MySQL ODBC 5.3 Unicode Driver}

分三种常见场景，根据你的服务器类型选对应的方法：

场景1：Windows服务器（有共享文件夹权限） #

如果服务器是Windows，且你有共享目录的访问权限，可以直接用FileSystemObject读取：

' 先引用Microsoft Scripting Runtime
Dim fs As FileSystemObject
Dim ts As TextStream
Dim fileContent As String

Set fs = New FileSystemObject

' 替换成服务器共享路径，比如\\192.168.1.100\SharedFiles\test.txt
If fs.FileExists("\\远程服务器IP\共享目录\目标文件.txt") Then
    Set ts = fs.OpenTextFile("\\远程服务器IP\共享目录\目标文件.txt", ForReading)
    fileContent = ts.ReadAll ' 一次性读取全部内容
    ts.Close
    MsgBox "文件内容：" & vbCrLf & fileContent
Else
    MsgBox "文件不存在或无访问权限"
End If

Set ts = Nothing
Set fs = Nothing

注意： 如果共享需要用户名密码，可以用WNetAddConnection2API映射网络驱动器，解决权限问题。

场景2：通过HTTP读取（文件可通过URL访问） #

如果服务器上的文本文件可以通过HTTP地址访问（比如http://你的服务器地址/docs/note.txt），用XMLHTTP读取更方便：

' 引用Microsoft XML, v6.0（或对应版本）
Dim xmlHttp As MSXML2.XMLHTTP
Set xmlHttp = New MSXML2.XMLHTTP

xmlHttp.Open "GET", "http://你的服务器地址/文本文件路径.txt", False
xmlHttp.Send

If xmlHttp.Status = 200 Then ' 200代表请求成功
    MsgBox "文件内容：" & vbCrLf & xmlHttp.ResponseText
Else
    MsgBox "读取失败，状态码：" & xmlHttp.Status
End If

Set xmlHttp = Nothing

场景3：Linux服务器（用FTP下载后读取） #

如果是Linux服务器，没有共享，可通过FTP下载文件到本地临时目录，再读取：

' 先添加Microsoft Internet Transfer Control控件到工程
Inet1.Protocol = icFTP
Inet1.URL = "ftp://你的FTP服务器地址"
Inet1.UserName = "FTP用户名"
Inet1.Password = "FTP密码"

' 下载服务器文件到本地临时路径
Inet1.Execute , "GET /服务器上的文件路径.txt C:\Temp\local_copy.txt"

' 等待下载完成
Do While Inet1.StillExecuting
    DoEvents
Loop

' 读取本地临时文件
Dim fs As FileSystemObject
Dim ts As TextStream
Set fs = New FileSystemObject
Set ts = fs.OpenTextFile("C:\Temp\local_copy.txt", ForReading)
MsgBox "文件内容：" & vbCrLf & ts.ReadAll
ts.Close

' 可选：删除临时文件
fs.DeleteFile "C:\Temp\local_copy.txt"

Set ts = Nothing
Set fs = Nothing

内容的提问来源于stack exchange，提问作者user8555033