Vb access輸入字段的內容來查詢其他信息。

添加三個文本和壹個命令。

方法1:

私有子命令1_Click()

暗淡Cnn作為新的ADODB。關系

Dim Rs作為新ADODB。記錄集

將s作為字符串變暗

s = "Provider=Microsoft。ACE . oledb . 12.0；數據源= c:\ documents and settings \ ballsky \ desktop \ receipt。用妳自己的AC連接字符串替換它。

Cnn。打開s

盧比CursorLocation = adUseClient

盧比打開“這是妳的數據庫表名”，Cnn，3，3。

做而不做。文件結束

如果Text1。Text = Rs。字段(0)然後

文本2。Text = Rs。字段(1)

短信3。Text = Rs。字段(2)

如果…就會結束

盧比下壹步

環

盧比關閉

Cnn。關閉

末端接頭

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

方法二:

私有子命令1_Click()

暗淡Cnn作為新的ADODB。關系

Dim Rs作為新ADODB。記錄集

變暗為弦，歌唱為弦

S = "Provider=Microsoft。ACE . oledb . 12.0；數據源= c:\ documents and settings \ ballsky \ desktop \ receipt。用妳自己的AC連接字符串替換它。

Cnn。打開S

盧比CursorLocation = adUseClient

sing = " select * from your table name where uname = ' " &；Text1。文本&"

盧比美國有線電視新聞網，3，3

出錯時繼續下壹步

Text1。Text = Rs。字段(0)

文本2。Text = Rs。字段(1)

短信3。Text = Rs。字段(2)

盧比關閉

Cnn。關閉

末端接頭