★データベース、テーブルが開いているか調べる
xxxx.State = ADODB.ObjectStateEnum.adStateOpen
★データベースのテーブルを削除
Const strDeleteTable1 As String = "DELETE ほげマスタ.* FROM ほげマスタB"
Dim kmkCmd As OleDbCommand
kmkCmd = oConn.CreateCommand()
kmkCmd.CommandText = strDeleteTable1
kmkCmd.ExecuteNonQuery()
★データベースのテーブルをコピー
Const strCopyTable1 As String = "INSERT INTO Aテーブル SELECT * FROM
Bテーブル"
Dim kmkCmd As OleDbCommand
kmkCmd = oConn.CreateCommand()
kmkCmd.CommandText = strCopyTable1
kmkCmd.ExecuteNonQuery()
★テーブル内の検索(コードが'003'のレコードが存在するか)
Const strFindRec1 As String = _
"SELECT COUNT(*) FROM ほげテーブル WHERE 検索コード = @keycode"
Dim fCmd As OleDbCommand
Dim recCount As Integer
fCmd = oConn.CreateCommand()
fCmd.CommandText = strFindRec1
fCmd.Parameters.Add(New OleDbParameter("@keycode", OleDbType.Char, 3))
fCmd.Parameters("@keycode").Value = "003"
recCount = CInt(fCmd.ExecuteScalar())
If recCount > 0 Then
'レコードあり
End If
★テーブルのソートとレコードの処理
Dim mstCmd As OleDbCommand
Dim oDataAdapter As New OleDbDataAdapter()
Dim mstRs1 As New DataTable()
mstCmd = oConn.CreateCommand()
mstCmd.CommandText = "SELECT * FROM ほげテーブル ORDER BY ほげテーブル.検索コード"
oDataAdapter.SelectCommand = mstCmd
oDataAdapter.Fill(mstRs1)
If mstRs1.Rows.Count > 0 Then
'ほげテーブルの処理
Else
'ほげテーブル レコードなし
End If