VBでMDBテーブルのKEYを指定した参照をしたい

質問

こんにちわ
マスタデータのメンテナンス処理をVBで作ろうと思ってます。
MDBの顧客テーブルがあります。検索画面で顧客コードを入力して顧客テーブルより情報を表示して変更入力し、結果を顧客テーブルに反映更新する処理です。
検索画面で指定されたコードでテーブルを読むにはどのように書いたらよいのでしょうか。
皆様よろしくお願いいたします。

回答No.1

noname#140971 · ベストアンサー

盆休みに、VB6.0 でネットワーク上のDBにアクセスして検索し表示する「検索君」なるものを作りました。
私が、真っ先に作ったのは、接続テストする以下の関数。

Public Function CNNTest(ByVal strCNNString As String) As Boolean
On Error GoTo Err_CNNTest
　　Dim isNotOK As Boolean
　　Dim cnn　　 As ADODB.Connection

　　Set cnn = New ADODB.Connection
　　With cnn
　　　　.ConnectionString = strCNNString
　　　　.Open
　　End With
Exit_CNNTest:
　　CNNTest = Not isNotOK
　　Exit Function
Err_CNNTest:
　　isNotOK = True
　　Resume Exit_CNNTest
End Function

まず、一切合切を　ADODB と SQL文だけで済ます方向性か否かです。
そして、その方向性として、DisplayRecord（）、UpdateRecord() の開発をテーマとするか否かです。

' -----------------------------------------------------------------------------------------
' フォームに読み込んだ列情報を表示します。
'
' 【要件】 ファームのフィールド名が、＜"field_" ＋ 列名＞であること。
' -----------------------------------------------------------------------------------------
Public Function DisplayRecord(ByVal frm As Form, ByVal strQuerySQL As String) As Boolean

例えば、こういう事も可能であって、非連結フォームの開発者ならば誰もが採用している手法でしょう。

それに、VBと言っても VB6.0とも限らないでしょう。

チクット、質問が大雑把すぎます。

お礼

書き方不足申し訳ありません、VB6.0です。

どうもありがとうございました。