100分学习VB与数据库的连接方法

Question

本人对数据库连接弄不大懂。
为能知彻底弄清楚这个问题，希望有知道的朋友通过QQ视频方式来讲解。听懂后即给100分（包括两个案例连接，指VB6.0与ACCESS和SQL SERVER连接,主要讲解ADO方式）
我ＱＱ：404191887（请注明：数据库讲解）先谢过！

Answer 1

你可以去MS的MSDN上面看 包括WebCast上看 雖然現在都是.net的 但是也能學到
或者是看書

Answer 2

使用ADO操作 SQL 的简单例子：'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '混合验证方式的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    '集成验证的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource=rs '把记录显示到DataGrid1里
    whlie not rs.eof
        Debug.Print rs.Fields("某个列名").value  '把某列的所有值打印到立即窗口
        rs.MoveNext
    wend
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

视频没有必要了吧使用ADO访问sql数据库的简单例子：'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '混合验证方式的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    '集成验证的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表名称", cn, 3, 2
    Set DataGrid1.DataSource=rs '把记录显示到DataGrid1里
    Exit Sub
err:
    MsgBox err.Description
End Sub
--------------------------------------------------------------------
连接accessOption ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
 ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开Access的连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 4

With Connect
       .ConnectionTimeout = 10
       
        If DeEncode(CnndbFile.DataBaseType1) = "ACC" Then
            ''ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DeEncode(CnndbFile.ServerName2) & ";Persist Security Info=False"
            ConnString = "Provider=SQLOLEDB.1;Password='" & DeEncode(CnndbFile.Pwd4) & "';Persist Security Info=True;User ID='" & DeEncode(CnndbFile.User3) & "';Initial Catalog='" & DeEncode(CnndbFile.DbName5) & "';Data Source='" & DeEncode(CnndbFile.ServerName2) & "'"
       
       .Open ConnString
       .CursorLocation = adUseClient
       Screen.MousePointer = 1
       
    End With