MySQLのデータベースを制御するクラス

ASP.NETな所

TOP > MySQL > MySQLのデータベースを制御するクラス

TOP

サイトマップ

クラスのサンプルです。
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のデータベースを制御するクラス

Web

サイト内