0

VB6 プログラムを作成しており、DB から情報を取得したいと考えています。

しかし、テーブルの 1 行の情報だけが必要です

現在、これをクエリとして持っています

SELECT CertNo FROM STICKER

これにより、リストボックスにCertNoのすべてのアイテムが入力されます。変数に依存する情報を取得する方法はありますか?

SELECT CertNo FROM STICKER WHERE CertNo = 10000

CertNo = 10000 の行からすべての列を取得します。

データを取得するコード:

Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long

Datalist.Clear

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=C:\Users\User\Desktop\test\dbAdd.mdb;"

Set rs = New ADODB.Recordset

rs.Open "SELECT CertNo FROM STICKER WHERE CertNo = '10303';", cn, adOpenStatic, adLockOptimistic

rs.MoveFirst

While Not rs.EOF
    Datalist.AddItem rs.Fields(0)
    rs.MoveNext
Wend

Set rs = Nothing
Set cn = Nothing
4

1 に答える 1

2

次のようなフィールドの結果を取得する必要がある場合Data1 

rs.Open "SELECT CertNo FROM STICKER WHERE CertNo = '"& Data1 &"';", cn, adOpenStatic, adLockOptimistic

SQLから複数の列を返したい場合は、以下のようにします

rs.Open "SELECT CertNo, IssueDate FROM STICKER WHERE CertNo = '"& Data1 &"';", cn, adOpenStatic, adLockOptimistic

そしてループで

While Not rs.EOF
    Datalist.AddItem rs.Fields(0) & rs.Fields(1)
    rs.MoveNext
Wend
于 2013-08-15T10:10:57.943 に答える