ASP.NETな所
TOP
>
MySQL
>
MySQLのデータベースを制御するクラス
TOP
サイトマップ
準備
VWD
標準
データ
検証
ナビゲーション
MySQL
その他
リンク
お問い合わせ
ASP.NET利用準備
IISのインストール
Visual Web Developer 2005 Express Editionのインストール
IISの設定
フォルダのアクセス権の設定
Web Developer 2005 Express Editionのユーザー登録
Hello,world!
クラスの作り方
Label内で改行する
GridViewギャラリー
GridViewの特定のセルのデータを取り出す
RequiredFieldValidator
RangeValidator
RegularExpressionValidator
CompareValidator
CustomValidator
ValidationSummary
Page.IsValid
検証コントロールを無視する
正規表現ひらカナ動作テスト
MenuのEnabledとSelectable
サイトマップの作成
MySQLのインストール
MySQL Server Instance Config Wizard
データベースの作成
MySQL Connector Netのインストール
MySQLのデータベースを制御するクラス
MySQLのデータベースを制御するクラス その2
MySQLのデータベースを制御するクラス 動作テスト
ODBCドライバのインストール
SqlDataSource データソースの設定
SqlDataSource パラメータの設定
SqlDataSource パラメータの設定 その2
ボタンの設定
あいまい検索
MySQL GUI Toolsのインストール
MySQLバックアップスケジュール
コンパイル コマンドライン
リンクについて
リンク集
ThanksgivingSoft
PC設定のコンビニ
MySQLのデータベースを制御するクラス
クラスのサンプルです。
App_Codeフォルダに任意のファイル名で保存してください。
拡張子はvbです。
ご自身の環境にあわせ、接続情報などを変更してください。
■mysql.vb
Imports MySql.Data.MySqlClient Namespace ThanksgivingSoft.Vb.Net '■MySQLの制御に関するクラス '使用するにはBinフォルダにMySql.Data.dllを入れておく必要がある。 'MySql.Data.dllを入手するにはConnector/Net1.0をダウンロードする。 'http://dev.mysql.com/downloads/connector/net/ '[[[ MySQLのDB接続情報 ]]] Public Class MySql 'MySQLのDBへの接続情報 Protected DbConnection = New MySqlConnection("Database=db_sample;" _ & "User ID=root;Password=password;Host=localhost;Port=3306") 'SQL文 Protected strSqlcode As String = "" End Class '[[[ Select Class ]]] Public Class MySelect Inherits MySql '[[ t_user SELECT ]] Public Sub T_Sample_Select(ByRef flgSearch, ByVal Sample1, ByRef Sample2) '** SELECT文 strSqlcode = "SELECT * FROM t_sample WHERE aspdotnet=?p1" '|| パラメータ Dim DbCommand As New MySqlCommand(strSqlcode, DbConnection) Dim p1 As MySqlParameter = DbCommand.Parameters.Add("?p1", _ MySqlDbType.VarChar) p1.Value = Sample1 '|| 検索値がDBにあるかチェック Call CheckHasRows(flgSearch, DbCommand) If flgSearch = True Then 'True = -1 / False = 0 DbConnection.Open() Dim DbRowData As MySqlDataReader = _ DbCommand.ExecuteReader() DbRowData.Read() Sample2 = DbRowData("natokoro") DbRowData.Close() Else Sample2 = "Empty set" End If End Sub '[[ DB検索チェック ]] '検索キーによりDBに検索をかけ、検索にヒットしたかどうかを返す。 'HasRows:検索ありなし。True = -1 / False = 0 Private Sub CheckHasRows(ByRef flgHasRows, ByVal DbCommand) DbConnection.Open() flgHasRows = DbCommand.ExecuteReader.HasRows DbConnection.Close() End Sub End Class '[[[ Insert Class ]]] Public Class MyInsert Inherits MySql '[[[ t_user INSERT ]]] Public Sub T_Sample_Insert(ByRef flgSearch, ByVal Sample1, ByRef Sample2) '** Insert文 strSqlcode = "INSERT INTO t_sample(aspdotnet, natokoro) " _ & "VALUES(?p1, ?p2)" '"INSERT INTO t_tablename(row1,row2) VALUES('row1.value','row2.value')" '|| パラメータの設定 Dim DbCommand As New MySqlCommand(strSqlcode, DbConnection) Dim p1 As MySqlParameter = DbCommand.Parameters.Add("?p1", _ MySqlDbType.VarChar, 50) Dim p2 As MySqlParameter = DbCommand.Parameters.Add("?p2", _ MySqlDbType.VarChar, 50) p1.Value = Sample1 p2.Value = Sample2 '|| SQL文を実行する DbConnection.Open() flgSearch = DbCommand.ExecuteNonQuery() DbConnection.Close() End Sub End Class '[[[ Update Class ]]] Public Class MyUpdate Inherits MySql '[[ t_user UPDATE ]] Public Sub T_Sample_Update(ByRef flgSearch, ByVal Sample1, ByVal Sample2) '** Update文 strSqlcode = "UPDATE t_sample SET natokoro = ?p2 WHERE aspdotnet = ?p1" '"UPDATE t_tablename SET row1 = 'row1.value', row2 = _ 'row2.value' WHERE serchkey = 'serchkey.value' '|| パラメータの設定 Dim DbCommand As New MySqlCommand(strSqlcode, DbConnection) Dim p1 As MySqlParameter = DbCommand.Parameters.Add("?p1", _ MySqlDbType.VarChar, 50) Dim p2 As MySqlParameter = DbCommand.Parameters.Add("?p2", _ MySqlDbType.VarChar, 50) p1.Value = Sample1 p2.Value = Sample2 '|| SQL文を実行する DbConnection.Open() flgSearch = DbCommand.ExecuteNonQuery() DbConnection.Close() End Sub End Class '[[[ Delete Class ]]] Public Class MyDelete Inherits MySql '[[ t_sample DELETE ]] Public Sub T_Sample_Delete(ByRef flgSearch, ByVal Sample1) '** DELETE文 strSqlcode = "DELETE FROM t_sample WHERE aspdotnet=?p1" Dim DbCommand As New MySqlCommand(strSqlcode, DbConnection) Dim p1 As MySqlParameter = DbCommand.Parameters.Add("?p1", _ MySqlDbType.VarChar, 50) p1.Value = Sample1 '|| SQL文を実行する DbConnection.open() flgSearch = DbCommand.ExecuteNonQuery() DbConnection.close() End Sub End Class End Namespace
このクラスの使用方法
■関連情報
MySQLリファレンス Connector/NET の例と使用ガイド
▲UP
<<
MySQL Connector Netのインストール
MySQLのデータベースを制御するクラス その2
>>
TOP
>
MySQL
>
MySQLのデータベースを制御するクラス
Copyright(C)2006
ThanksgivingSoft
All Rights Reserved
検索用語を入力
検索フォームを送信
Web
サイト内