Visual BasicをMS Accessにリンクするためのコーディング

プログラムは、 MicrosoftアクセスデータベースにアクセスするためにVisual Basicで書くことができます。 Microsoft AccessデータベースをMicrosoft Visual Basicコードにリンクさせるプログラムを作成するには、サブルーチンやループ、データベースやSQLに関する知識などのプログラミングの概念が必要になることがあります。 ADODBオブジェクトは、データベースへの接続を作成し、それぞれADODB.connection APIとADODB.recordset APIを使用してレコードにアクセスするために使用されます。 SQLを使用して、サブルーチンにパラメーターとして提供された情報と一致するレコードをデータベースで検索します。レコード内のデータは、Visual Basicプログラムコードでも操作できます。

問題

こんにちは、

ビジュアルベーシックをMS Accessにリンクするためのコーディングを知る必要があります。

溶液

これを試すことができます：

 オプション明示的なDim connとしてADODB.Connection、recとしてADODB.Recordset Dim esqlとして文字列、esql2として文字列、searchvarとして文字列プライベートSub Command1_Click（）Text1 = "" Text2 = "" Command4.Visible = True Command1。 Visible = False Text1.SetFocus End Sub Private Sub Command2_Click（）そうでない場合rec.MoveNext Elc rec.MoveLastがGetText End Subの場合プライベートSub Command3_Click（）そうでない場合rec.MovePreviousその他rec.MoveFirst End GetText End Sub Private Sub Command4_Click（）エラーの場合1 GoTo 1 Text1 = ""またはText2 = ""の場合Command4.Visible = False Command1.Visible = True終了Sub End rec.AddNew rec.Fields（0）= Text1 recの場合.Fields（1）= Text2 rec.Fields（2）= Text3 rec.Updateでない場合rec.EOFその後rec.MoveNext rec.MoveFirst GetText Command4.Visible = False Command1.Visible = True終了Sub 1 MsgBox（ "重複値" ＆Text3 End SubプライベートSub Command5_Click（）Text1 = "" Text2 = "" Text3 = "" searchvar = InputBox（ "検索するアイテムを入力"）rec.Close rec.Open（ "select * from" TestRaviここでFirst = "＆" '"＆searchvar＆"' "）、conn、adOpenStatic、adLockReadOnly Rec.Fields（0）" "の場合Text1 = rec.Fields（0）Text2 = rec.Fields（1）Text3 = rec.Fields（2）それ以外の場合MsgBox（ "一致するレコードが見つかりません"）rec.Close rec.Open（ "select * from testravi"）、conn、adOpenDynamic、adLockOptimistic GetText End Sub '整数の場合は' Dim searchvar2を整数として使用'searchvar2 = InputBox（ "enter number"）' rec.Open（ "Select * from TestRavi）、conn、adOpenStatic、adLockReadOnly Private Sub Form_Load（）set conn = New ADODB.Connection Set rec = New ADODB .Recordset 'conn.Open（ "Provider = Microsoft.Jet.OLEDB 4.0;データソース= C：¥Program Files¥Microsoft Office¥Office¥Samples¥Northwind.mdb; Persist Security Info = False"）conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;データソース= C：¥Program Files¥Microsoft Office¥Office¥Samples¥Northwind.mdb;永続的なセキュリティ情報= False "conn.Open esql =" select * from TestRavi "rec.Open（ esql）、conn、adOpenDynamic、adLockOptimis GetText End SubプライベートSub Form_Unload（整数としてキャンセル）rec.Close conn.Close set conn = Nothing command1.visible = false End SubプライベートSub GetText（）rec.BOF = Trueまたはrec.EOF = Trueの場合Sub Text1を終了します。 = rec.Fields（0）Text2 = rec.Fields（1）Text3 = "" End Sub