taiyuのVBプログラム

　チップ集（Tips）－③

チップ集（Tips 集）｜ＣＧＩ｜ダウンロード｜よくある質問（サポート）｜ソース提供｜相互リンク集　

Ｈｏｍｅ

チップ集（Tips 集）

○○システム

　　　★印の項目をクリックしてください。

Tips　　　　　1　　2　　③

★データベース、テーブルが開いているか調べる

　　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 Ａテーブル SELECT * FROM Ｂテーブル"
　　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

便利で楽しいボタンが続々登場！Yahoo!ツールバー

taiyuのVBプログラム

Tips 1 2 ③

Tips　　　　　1　　2　　③