问一个有关VB 与SQL的问题，谢谢

Question

打开VB6，选 外接程序--外接程序管理器--VB6数据窗体向导

Answer 1

ado应该就是用于远程数据访问的吧

Answer 2

在菜单“工程”-》引用 Microsoft Activex Data Object 2.x Library
dim Conn as connection
Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=要数据库名;Data Source=服务器名"
定义好连接后就可以访问数据库了，如查询：
dim rs as recordset
set rs=new recordset
rs.open "select * form biao",Conn,adOpenDynamic, adLockReadOnly

Answer 3

在窗体上放一个ADO控件,利用向导生成连接串,然后复制到程序中用.    Dim adoCN As New ADODB.Connection
    adoCN.Open "ConnectString"引用最新版本的ADO对象库

Answer 4

Dim cn As New ADODB.Connection
    With cn
        .CursorLocation = adUseClient
        .Open "Provider=SQLOLEDB;Server=" + ServerName + ";Database=myinvoice;Uid=" + ServerID + ";Pwd=" + ServerPassword + ";"
     end with

Answer 5

在菜单“工程”-》引用 Microsoft Activex Data Object 2.x Library
dim Cnn as New connection
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器名"
定义好连接后就可以访问数据库了，如查询：
dim rs as New recordset
rs.open "select * form 表名",Cnn,adOpenDynamic, adLockReadOnly

Answer 6

1、引用引用 Microsoft Activex Data Object 2.x Library
2、定义 adoconnection As New ADODB.Connection然后：
Dim servername As String, dataname As String, user As String, password As String,sql as string     '设置服务器参数
    servername = "HongBin"
    dataname = "jdxt"
    user = "sa"
    password = "123456"
    sql = "Provider=SQLOLEDB.1;User ID=" + user + ";Initial catalog=" + dataname + ";Data Source=" + servername + ";PWD=" + password    With adoconnection
        .ConnectionString = sql
        .Open
    End With

Answer 7

补充：如果要访问数据可：dim  adorecordset As New ADODB.Recordsetsql="select * from jdxt..spk"
    With adorecordset
        .ActiveConnection = adoconnection
        .CursorType = adOpenKeyset '根据需要自已选
        .LockType = adLockReadOnly '根据需要自已选
        .Source = sql
        .Open
    End With
这样就可以把jdxt中的spk表打开。