最简单的问题，如何连接数据库

Question

我现在连接的是acess，我想更改为SQL Server我现在的代码Public Sub CreateConnection()
'创建一个连接
    On Error GoTo errFind
    sDBNAME = "BMReport.mdb"
    '打开指定的数据库文件，若没找到，则弹出“打开对话框”
    
    If cnndb.State = 0 Then     '判断Connection是否打开
    
        cnndb.Provider = "Microsoft.Jet.OLEDB.4.0"
        cnndb.Open "Data Source=" & App.Path & "\" & sDBNAME & ";Jet OLEDB:Database Password="
'        cnndb.Open "Data Source=" & App.Path & "\" & sDBNAME & ";Jet OLEDB:Database Password=1234567890200203157"
        cnndb.CursorLocation = adUseClient
        Exit Sub
    End If
  
errFind:    '弹出“打开对话框”
    If Err = -2147467259 Then
        Dim strFileName As String
        strFileName = FindDatabase  '函数FindDatabase()返回所选中的数据库文件的路径
        If cnndb.State = 0 Then     '判断Connection是否打开
            cnndb.Provider = "Microsoft.Jet.OLEDB.4.0"
            cnndb.Open "Data Source=" & strFileName & ";Jet OLEDB:Database Password=1234567890200203157"
            cnndb.CursorLocation = adUseClient
        End If
        Resume Next
    ElseIf Err <> 0 Then ' 其他的错误
        MsgBox "不期望的错误: " & Err.Description
        End
    End If
End Sub请问如何改呀

Answer 1

使用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

Answer 2

ODBC 
 Standard Security:"Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"  Trusted connection:"Driver={SQL Server};Server=Aron1;Database=pubs;Trusted_Connection=yes;"  Prompt for username and password:oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;" 
3种不同的连接方式

Answer 3

http://www.connectionstrings.com/
这个网站很不错 可以去看 所有的数据库连接都有了

Answer 4

1、加入部件ADO  就是叫 A。 D。。 O。。 2、创建个模块 在里面写：Public Conn As New Connection3、在form1里写这些：Private Sub Form_Load()
    Conn.CursorLocation = adUseClient
    Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=book;Data Source=."'Catalog=“表名”
End Sub

Answer 5

首先谢谢楼上的各位，我的数据库已经连接成功了，但有很多原来好使的语句，到现在出现了问题，请问是因为我改数据库造成的吗，
还有rs.Open strSQL, cnndb, adOpenDynamic, adLockOptimistic
    rs.Open strSQL, cnndb, adOpenStatic, adLockOptimistic
有什么区别吗