使用vb6从表中获取列值

时间:2016-02-05 09:36:01

标签: sql-server vb6

我正在尝试从SQL结果表中读取特定的列值。我知道我们在c#中使用RowCount。但我不知道它是如何在vb6.0中完成的 例如c#程序代码:

hxxp://yourdomain/test2/1 will return the string "You requested number 1"

hxxp://yourdomain/test2/2 will return the string "You requested number 2"

1 个答案:

答案 0 :(得分:1)

在VB6中,您可以选择ADO, DAO or RDOADO是三种技术中较新的一种,而MS建议使用这种技术。

ADO示例

Sub Example()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    ' Ready objects for use.
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' Connect.
    cn.Open "Driver={SQL Server};Server=My_Server_Name;Database=Master;Trusted_Connection=yes;"

    ' Fetch a recordset.
    rs.Open "SELECT TOP 10 Name FROM sys.Objects", cn, adOpenStatic, adLockReadOnly

    ' Display value, and total recordcount.
    MsgBox rs.Fields(0).Value
    MsgBox rs.RecordCount


    ' Close and release objects.
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

ADO Recordset对象有一个RecordCount property。小心!某些游标类型不会填充此属性。有关详细信息,请参阅链接。

ConnectionStrings.com是一个很好的资源,可以为您找到合适的连接字符串。

要使此示例正常工作,您需要add a reference Microsoft ActiveX数据对象库。