0

我想打印/调试所有列的名称及其值。

我试过这样的事情:

    Dim nCmd As MySqlCommand
    nCmd = New MySqlCommand("SELECT * FROM payinout WHERE inout_searcher=" & Apo(u), g_CnWebDB)

    Dim r As MySqlDataReader
    r = nCmd.ExecuteReader()
    bExists = r.HasRows

        For Each f As Field In r.fields
            Debug.Print(f.name & ": " & f.value)
        Next

...但是由于这些成员失踪了,我想我没有走在正确的轨道上。有人可以帮忙吗?

4

1 回答 1

2

尝试使用 FieldCount 和 GetName 方法的标准循环,但在尝试从 MySqlDataReader 读取任何内容之前调用 Read

    r.Read()
    For x = 0 To r.FieldCount - 1
        Debug.Print(r.GetName(x) & ": " & r(x).ToString)
    Next

请注意,使用的查询对 Sql Injection 开放。如果这只是测试代码,那么没关系,但在生产中使用参数化查询。

于 2013-06-25T08:51:10.097 回答