请给我一个用VB连接SQL的例子好吗？

Question

为什么我在recordset里定义完了，电脑说用户名登陆失败，请指点！

Answer 1

SqlConnectString = "Driver=SQL Server;" & _
                   "Server=(local);" & _
                   "UID=sa;" & _
                   "PWD=;" & _
                   "DataBase=abc;" & _
                   "Trusted_Connection=No"  & ";" & _
                   "App=" & App.ProductName
dim cn as New ADODB.Connectiond
dim rs as ADODB.Recordset
cn.Open SqlConnectString
szSql="Select * From bb"
set rs=cn.Execute(szSql)

Answer 2

Public cn  As New ADODB.Connection
cn.ConnectionString = "provider=SQLOLEDB;server=机器名;uid=sa;pwd="
cn.CursorLocation = adUseClient
cn.Open
Dim sn1 As New ADODB.Recordse
sn1.open "select * from 数据库中的表名",cn

Answer 3

查询分析器中用sa能连接上吗?如果不能,就说明你的SQL验证方式设置成了windws,要改成windows和sql server

Answer 4

验证方式要改成windows和sql server

Answer 5

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 6

参考下面网页，对你肯定有帮助http://www.able-consulting.com/ADO_Conn.htm