vb如何SQL数据库连接

Question

vb如何SQL数据库如何连接？？

Answer 1

Dim cn As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"

Answer 2

dim conn As New ADODB.Connection 
'定义ADO数据库对象 
conn.ConnectionString = "driver={SQL Server};" & _ 
"server=" & ServerName & ";uid=" & UserName & "; 
pwd=" & Password & ";database=" & DatabaseName & "" 
'连接数据串 
conn.open '连接数据库 ---- 注：ServerName为服务器名；UserName为用户名；Password为用户口令； DatabaseName要登录的数据库名，可以为空。 

Answer 3

建议ADO来操作'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    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 表1", cn, 3, 2
    Set DataGrid1.DataSource=rs '把记录显示到DataGrid1里
End Sub

Answer 4

iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source＝data"
    iDb.Open iConcStr
还可以这样，真的！！
　无用户名和密码的