连接串问题,答者有分

Question

各位给个好的易上手连接串(ADO)的

Answer 1

"Provider=SQLOLEDB.1;Password=****;Persist Security Info=True;User ID=sa;Initial Catalog=proamd;Data Source=proamd"

Answer 2

连接本地SQL Server的user数据库，用WIndows登录
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial 
Catalog=user;Data Source=(local)

Answer 3

Option Explicit
Public SqlConn As New ADODB.Connection'功能简介：建立SQL数据库公共链接
'参数一：服务器名或IP
'参数二：数据库名称
'参数三：登陆用户名称
'参数四：登陆用户密码
'参数五：延时
'返回值："ok"--成功, 否则返回错误信息
Function PulbicSQLConn(StrServerName As String, StrDataName As String, StrUserName As String, StrPassword As String, IntOutTime As Integer) As String
    On Error GoTo SQLConnErr
    Dim StrSql As String
    StrSql = "Provider=sqloledb;Data Source=" & StrServerName & ",1433;Initial Catalog=" & StrDataName & ";User ID=" & StrUserName & ";Password=" & StrPassword & ";"
    If SqlConn.State <> 0 Then SqlConn.Close
    SqlConn.ConnectionTimeout = IntOutTime
    SqlConn.Open StrSql
    PulbicSQLConn = "ok"
    Exit Function
SQLConnErr:
    PulbicSQLConn = Err.Description
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function'功能简介：关闭SOL数据库公共链接
Function PublicMdbClose()
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function

Answer 4

sql server的有了,那VB6+ACCESS2000的能给吗(ado)

Answer 5

VB6+ACCESS2000的能给吗(ado)
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\mobile.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****"

Answer 6

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****"