ADO连接SQL SERVER 怎样设置connectionstring ？？

Question

con.connectionstring="driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
sql server:是只用写着几个字，还是要把sql server的目录写出来啊？比如E:\sql server\
uid=sa;pwd=:我装SQL SERVER2000的时候用的是windows身分验证，所以进入sql server的时候根本不用用户名和密码，那这两项应该怎么填呢

Answer 1

如果是windows验证的话加入：Trusted_Connection=True。参考：
http://www.connectionstrings.com

Answer 2

"Provider=sqloledb;Data Source=服务器IP;Initial Catalog=" & "数据库名" & ";User Id=sa;Password="""""

Answer 3

Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "driver={SQL Server};server=0110;database=管理;Persist Security Info=False;UserId="
db.Open
rs.Open "select 用户名 from 密码表", db, adOpenStatic, adLockReadO
rs.Close为什么我运行的时候，会报参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突？

Answer 4

给你一个实际用例：Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=test;Initial Catalog=public;Data Source=COMM;Extended Properties="Network=DBMSSOCN;Address=10.168.188.100";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FANGHONG;Use Encryption for Data=False;Tag with column collation when possible=False这个连接字符串中的一些元素可以根据客户设定动态拼装形成，比如说IP啊、用户阿、密码啊之类的东西

Answer 5

db.ConnectionString = "Driver={SQL Server};Server=0110;Database=管理;Trusted_Connection=yes;"

Answer 6

db.ConnectionString = "Driver={SQL Server};Server=0110;Database=管理;Trusted_Connection=yes;"
db.Open
rs.Open "select 用户名 from 密码表", db, adOpenStatic, adLockReadO我是这样设置的，为什么还有报参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突的问题呢？

Answer 7

conn.ConnectionString = "Driver={sql server};server=127.0.0.1;uid=xiaoxi;pwd=xiaoxi;database=k9"
        conn.ConnectionTimeout = 30
        conn.Open下面是我写的一个图书管理系统的连接部分原码（如你要全的原吗 请留下油箱）'********************************************************************************************************
'************************** SQL SERVER LOGING *****************************************************
'********************************************************************************************************
Option ExplicitPublic cu As Integer
Public uname As String
Public upass As String
Public estring As String
Private Sub Command2_Click()
    End
End SubPrivate Sub Log_Click()
    Login.Visible = False
    shv.Show
    If conn.State = 0 Then
        conn.ConnectionString = "Driver={sql server};server=127.0.0.1;uid=xiaoxi;pwd=xiaoxi;database=k9"
        conn.ConnectionTimeout = 30
        conn.Open
    End If
    uname = Replace(Trim(Text1.Text), "'", "")
    upass = Replace(Trim(Text2.Text), "'", "")
    rest.Open "select 用户名,密码,权限 from menber where 用户名='" & uname _
    & "' And  密码='" & upass & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
    If rest.EOF = True And rest.BOF Then
        Unload shv
        Login.Visible = True
        mgg "LError", "密码错误 请重新登录", Login
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        cu = cu + 1
        rest.Close
        Login.BorderStyle = 1
    Else
        co.nam = rest.Fields("用户名")
        co.pow = rest.Fields("权限")
        Unload Login
        estring = "update menber set 状态 = '上线'  where 用户名 ='" & co.nam & "'"
        conn.Execute estring
        'shv.show
        Load Mian
    End If
    If cu = 3 Then
        mgg "LError", "密码错误 3次程序退出", Login
        End
    End If
End Sub

Answer 8

rs.Open "select 用户名 from 密码表", db, adOpenStatic, adLockReadO改为rs.Open "select 用户名 from 密码表", db, adOpenStatic,adLockReadOnly

Answer 9

Chiyer(星羽) :
    谢谢,我想看一下.
    [email protected]