VB调用SQL server 数据库的连接语句怎么写

Question

VB调用SQL server 数据库的连接语句怎么写!谢谢

Answer 1

Set Cn = New ADODB.Connection
    Cn.ConnectionString = "Provider=SQLOLEDB;Data Source=etam_Whouse;Initial Catalog=Transp;User Id=etam_trans;Password=373H995; "

Answer 2

Cn.ConnectionString = "Provider=SQLOLEDB;Data Source=etam_Whouse;Initial Catalog=Transp;User Id=etam_trans;Password=373H995; "etam_Whouse-服务器名字
Transp--数据库名字

Answer 3

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
我有一些这方面的资料，有兴趣的话，联系我： h_321#126.com

Answer 4

Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase\Data.mdb;"
    db.Open
        Sql = str
    rs.Open Sql, db, adOpenKeyset, adLockOptimistic

Answer 5

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=你的SQL数据库"
cnn.Open
...
...
...
End Sub