VB连接SQL方法

Question

VB连接SQL的方法！以MASTER数据库中的sysfiles表为例！写详细点！用DATA及ADODATA及直接用字符串或别的方法都可以！

Answer 1

添加一个数据环境 DataEnvironment1,两个文本框,分别写服务器名和sa的登录密码,然后:
Private Sub cmdConnect_Click()
On Error GoTo ErrorHandler    Set myConn = New ADODB.Connection
    
    '设置连接
    myConn.ConnectionString = "driver={SQL Server};" & _
    "server=" & txtServer.Text & ";uid=sa;pwd=" & txtPassword.Text & ";database=master"
    myConn.Open
    '连接成功，调用主窗口
    Unload Me
    frmTest.Show
    Exit SubErrorHandler:
    MsgBox "连接出错，请检查服务器名及密码是否正确。", vbOKOnly, "连接错误"End Sub

Answer 2

    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=MASTER;UID=sa;PWD=123"
    Cnn.CursorLocation = adUseClient
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open    Dim Rs As ADODB.Recordset
    Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Cnn
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .open "select * from sysfiles "
        if not .eof then

Answer 3

'在菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library
'在窗体的Form_Load事件里面写如下代码：
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=SQLOLEDB.1;Password=qdccaucma;Persist Security Info=True;User ID=sa;Initial Catalog=MASTER;Data Source=sql"
    SqlStr = "Select * From sysfiles"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源