适用于Visual Basic 6.0的MySQL示例-读/写 [英] MySQL Sample for Visual Basic 6.0 - read/write

问题描述

我想找到一个使用远程MySQL基础的简单示例.我知道，互联网上有一些教程，介绍了如何设置ADODB.Connection和connectionstrings，但我无法使其正常工作.感谢您的帮助！

I'd like to find a simple example of working with remote MySQL base. I know, there are some tutorial over the internet, explaining how to set up ADODB.Connection and connectionstrings, but I couldnt make it work. Thanks for any help!

推荐答案

从在此处上查找正确的connectionstring.

在您的VB6项目中选择对Microsoft ActiveX Data Objects 2.8 Library的引用.如果您使用的是Windows Vista或Windows 7，则可能也有一个6.0库.如果您希望程序也可以在Windows XP客户端上运行，而不是使用2.8库则更好.如果您使用的是Windows 7 SP 1，则由于SP1中的兼容性错误，您的程序将永远无法在任何其他规格较低的系统上运行.您可以在 KB2517589 中了解有关此错误的更多信息.

In your VB6 project select the reference to Microsoft ActiveX Data Objects 2.8 Library. It's possible that you have a 6.0 library too if you have Windows Vista or Windows 7. If you want your program to run on Windows XP clients too than your better off with the 2.8 library. If you have Windows 7 with SP 1 than your program will never run on any other system with lower specs due to a compatibility bug in SP1. You can read more about this bug in KB2517589.

此代码应为您提供足够的信息，以开始使用ODBC连接器.

This code should give you enough information to get started with the ODBC connector.

Private Sub RunQuery()
    Dim DBCon As adodb.connection
    Dim Cmd As adodb.Command
    Dim Rs As adodb.recordset
    Dim strName As String

    'Create a connection to the database
    Set DBCon = New adodb.connection
    DBCon.CursorLocation = adUseClient
    'This is a connectionstring to a local MySQL server
    DBCon.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;"

    'Create a new command that will execute the query
    Set Cmd = New adodb.Command
    Cmd.ActiveConnection = DBCon
    Cmd.CommandType = adCmdText
    'This is your actual MySQL query
    Cmd.CommandText = "SELECT Name from Customer WHERE ID = 1"

    'Executes the query-command and puts the result into Rs (recordset)
    Set Rs = Cmd.Execute

    'Loop through the results of your recordset until there are no more records
    Do While Not Rs.eof
        'Put the value of field 'Name' into string variable 'Name'
        strName = Rs("Name")

        'Move to the next record in your resultset
        Rs.MoveNext
    Loop

    'Close your database connection
    DBCon.Close

    'Delete all references
    Set Rs = Nothing
    Set Cmd = Nothing
    Set DBCon = Nothing
End Sub

这篇关于适用于Visual Basic 6.0的MySQL示例-读/写的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！