现在用VB和Sql Server开发一个学生管理系统,数据库是student,连接数据库的语句如何编写?总共几种写法?谢谢!

解决方案 »

  1.   

    '最简单可以用OLEDB的方法
    Public Function C_LianJie() As Boolean
    On Error GoTo ine
    If conn Is Nothing Then     '如果conn没有初始化
       Set conn = New ADODB.Connection
       With conn
            .Provider = "SQLOLEDB"     '设置成OLEDB连接
            .CommandTimeout = 10
            .ConnectionTimeout = 10
            .IsolationLevel = adXactReadCommitted
       End With
    End If
    If conn.State = adStateClosed Then       '如果连接关闭。重新建立连接
       conn.Open "server=服务器名称;database=数据库名称;", "sa", ""
       'MsgBox "连接成功", , "提示信息"
    End If
    GoTo inerr
    ine:
       MsgBox Err.Description, , "错误信息"
    inerr:
    End Function
      

  2.   

    connect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=student;Data Source=服务器名"
    还可以用ado控件生成上面的字符串dim con as adodb.connection
    set con = new adodb.connection
    con.open connect
      

  3.   

    我的连接如下:
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim sql As String
           
         cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=dbname"
        
         Set rs = New ADODB.Recordset
        
         sql = "select * from yourtable"
        
         rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
        
         MsgBox rs.Fields(0).Value
      
    在引用中加ADO2.6
      

  4.   

    另一种ADO连接方法:'**********************************************************************
    ' 过程名称:OpenADODatabase
    ' 功能描述:打开全局的数据库连接
    ' 参数说明:(无)
    ' 返 回 值:(无)
    '**********************************************************************
    Public Sub OpenADODatabase()
        Dim strConnStr As String
        
        On Error GoTo ErrHandle
        
        strConnStr = "Provider=SQLOLEDB.1;Password=" _
            & gdbPassWD & ";Persist Security Info=True;User ID=" _
            & gdbUserID & ";Initial Catalog=" _
            & gdbDBName & ";Data Source=" _
            & gdbServer
            
        Set gDBConnection = New ADODB.Connection
        gDBConnection.Open strConnStr
        
        Exit Sub
        
    ErrHandle:
      '  Call msgbox("请检查输入是否正确,再重新启动该程序")
    End Sub
    附:Global gdbServer As String
    Global gdbDBName As String
    Global gdbUserID As String
    Global gdbPassWD As String
        gdbServer = "127.0.0.1"
        gdbDBName = "name"
        gdbUserID = "sa"
        gdbPassWD = ""
      

  5.   

    cnnConnection.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=wxy;Data Source=YXW"
        cnnConnection.CursorLocation = adUseClient
        cnnConnection.Mode = adModeReadWrite + adModeShareDenyNone
        cnnConnection.Open