駆け足でMySQLを使ってみる。
|
ユーザー関数に次のプログラムを追記します。
01:Public Const CELL_END As Long = 65535
02:Public row_count As Long
03:
04:Function Table_load(table_name As String, cell_number As String) As Long
05: Dim Sql As String
06: On Error GoTo ERR_statements
07: Set record_set = New ADODB.Recordset
08: Sql = "SELECT * FROM " & table_name
09: record_set.Open Sql, connect
10: If ( record_set.EOF = False ) Then
11: record_set.MoveFirst
12: Range(cell_number).CopyFromRecordset record_set
13: Table_load = Range(cell_number).End(xlDown).Row - 1
14: If ( Table_load = CELL_END ) Then
15: Table_load = 1
16: End If
17: Else
18: Table_load = 0
19: End If
20: record_set.Close
21:ERR_statements:
22: If (Err.Number <> 0) Then
23: Call MsgBox("レコード読込みエラー｡")
24: End If
25: Set record_set = Nothing
26:End Function
| |
ワークシートにボタンを一つ追加し
オブジェクト名を「btn読出」、Captionを「読出し」にします。
「読出し」ボタンをダブルクリックしてコードを記述します。
01:Private Sub btn読出_Click()
02: Dim statements As Integer
03: statements = Database_open
04: If ( statements <> 0 ) Then
05: Exit Sub
06: End If
07: Worksheets("sheet2").Activate
08: row_count = Table_load("addresstb2", "b3")
09: Worksheets("sheet3").Activate
10: row_count = Table_load("k_addresstb", "b3")
11: statements = Database_close
12:End Sub
|
ワークシートの「sheet3」に次のような表枠を作成します。
ワークシートの「sheet1」から「読出し」ボタンをクリックすると MySQLに作成したレコードが読み込まれます。
© AstroHeart. All Rights Reserved.