如何在VB中执行mysql命令

用如下语句即可

dim con

set con=createobject("ADODB.Connection")

con.open "driver={sql server}Driver={sql server}uid=用户名pwd=用户密码database=数据库名称server=(local)"

con.execute("你想执行的SQL语句")

Private Sub Command1_Click()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strCn As String

Dim SHA1 As String

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

Dim sql As String

db_host = "localhost"

db_user = "root"

db_pass = "2009"

db_data = "realmd"

strCn = "DRIVER={MySQL ODBC 3.51 Driver}" &_

"SERVER=" &db_host &"" &_

"DATABASE=" &db_data &"" &_

"UID=" &db_user &"PWD=" &db_pass &"" &_

"OPTION=3stmt=SET NAMES GB2312"

cn.Open strCn

cn.CursorLocation = adUseClient

'写入之前加判断，如果存在就退出

Name = Trim(Text1.Text)

sql = "select username from Account where username='" &Name &"'"

rs.Open sql, cn, 1, 1

If rs.RecordCount >0 Then

Label5.Caption = "账号已存在"

rs.close

response.end

Else

Label5.Caption = "帐号可以使用"

End If

rs.Close

'判断结束

sql = "INSERT INTO account (username, sha_pass_hash, email, expansion) VALUES ( '" &Text1.Text &" ', SHA1('Text2.Text') , '" &Text4.Text &" ','" &2 &" ') "

rs.Open sql, cn, 1, 3

MsgBox "注册成功"

rs.Close

End Sub

---