解决方案 »

  1.   

    我常用的方式:第一步:在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
        
    ExecuteSQL_Error:
        MsgString = "查询错误:" & _
            Err.Description
        Resume ExecuteSQL_Exit
        
    End Function第四步:添加引用,注意你选的引用,我一般用
      

  2.   

    开始   控制面板  数据源  ODBC  系统DNS  配置一下  看看#17 
      

  3.   

    我的数据源 ODBC 系统DNS  就是报 #17错误,我是本地的SQL SERVER
    服务器:127.0.0.1 
    mysql用户名:root
    密码是空, java连都是好的啊!
      

  4.   

    我要连的是mysql数据库 4楼好像是sql sever数据库
      

  5.   

    "Driver={MySQL ODBC 5.1Driver};Option=1;port=3306;stmt=;Server=localhost;DataBase=base;User=root;Password="