我常用的方式:第一步:在SQL2008R2中建立数据库;第二步:在odbc数据源中建立链接,使odbc数据源与数据库进行链接;第三步:在VB中建立模块,然后写上代码: Public Function ConnectString() As String ConnectString = "FileDSN=charge.dsn;UID=sa;PWD=123456" ‘链接本地数据源 'ConnectString = "provider=sqloledb;server=WIN7- 20131102BB\MSSQLSEVER;UID=sa;PWD=123456;database=charge_sys" ’链接数据库的,以备远程使用 End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset Dim cnn As New ADODB.Connection ‘定义链接函数
Dim sTokens() 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 'rst.movelast 'get Recordcount Set ExecuteSQL = rst MsgString = "查询到" & rst.RecordCount & "条记录" End If
ExecuteSQL_Exit: Set mrc = Nothing Set cnn = Nothing Exit Function
Public Function ConnectString() As String
ConnectString = "FileDSN=charge.dsn;UID=sa;PWD=123456" ‘链接本地数据源
'ConnectString = "provider=sqloledb;server=WIN7- 20131102BB\MSSQLSEVER;UID=sa;PWD=123456;database=charge_sys" ’链接数据库的,以备远程使用
End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As New ADODB.Connection ‘定义链接函数
Dim sTokens() 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
'rst.movelast 'get Recordcount
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条记录"
End If
ExecuteSQL_Exit:
Set mrc = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误:" & _
Err.Description
Resume ExecuteSQL_Exit
End Function第四步:添加引用,注意你选的引用,我一般用
服务器:127.0.0.1
mysql用户名:root
密码是空, java连都是好的啊!