Top > VisualBasicあれこれ > Connector/Netを使用したMySQLへのアクセス(VisualBasic2010)

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
Imports MySql.Data.MySqlClient
Imports System.Windows.Forms
 
Module Module1
 
    Sub Main()
 
        Dim conn As New MySqlConnection
 
        'Server:サーバーIP or FQDN、 UserID:ユーザー名、 Password:パスワード、 Catalog:データベース名
        Dim myConnectionString As String = "Server= localhost;UserID=vbnet;Password=vbnet;Initial Catalog=vbnet"
 
        Try
            conn.ConnectionString = myConnectionString
            conn.Open()
 
            Dim myInsertQuery As String = "INSERT INTO DEPARTMENT VALUES(?val1, ?val2)"
            Dim myCommand As New MySqlCommand(myInsertQuery, conn)
 
            'プレースホルダーにバインドします。
            myCommand.Parameters.AddWithValue("?val1", 5)
            myCommand.Parameters.AddWithValue("?val2", "DUMMY")
 
            'SQLを実行します
            myCommand.ExecuteNonQuery()
 
            MessageBox.Show("接続!!")
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conn.Close()
        End Try
 
    End Sub
 
End Module
  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
Imports MySql.Data.MySqlClient
Imports System.Windows.Forms
 
Module Module1
 
    Sub Main()
 
        Dim conn As New MySqlConnection
        Dim trans As MySqlTransaction = Nothing
 
        'Server:サーバーIP or FQDN、 UserID:ユーザー名、 Password:パスワード、 Catalog:データベース名
        Dim myConnectionString As String = "Server= localhost;UserID=vbnet;Password=vbnet;Initial Catalog=vbnet"
 
        Try
            conn.ConnectionString = myConnectionString
            conn.Open()
 
            'トランザクション開始
            trans = conn.BeginTransaction
 
            Dim myInsertQuery As String = "INSERT INTO DEPARTMENT VALUES(?val1, ?val2)"
            Dim myCommand As New MySqlCommand(myInsertQuery, conn)
 
            'プレースホルダーにバインドします。
            myCommand.Parameters.AddWithValue("?val1", 6)
            myCommand.Parameters.AddWithValue("?val2", "DUMMY1")
 
            'SQLを実行します
            myCommand.ExecuteNonQuery()
 
            'プレースホルダーへのバインドをクリアしてから改めてバインドします。
            myCommand.Parameters.Clear()
            myCommand.Parameters.AddWithValue("?val1", 5)
            myCommand.Parameters.AddWithValue("?val2", "DUMMY2")
 
            'SQLを実行します(ここで一意制約違反発生!と思いねえ)
            myCommand.ExecuteNonQuery()
 
            'コミット
            trans.Commit()
 
            MessageBox.Show("接続!!")
        Catch ex As MySqlException
            If (trans IsNot Nothing) Then
                'トランザクションが開始していればロールバックします。
                trans.Rollback()
            End If
            MessageBox.Show(ex.Message)
        Finally
            conn.Close()
        End Try
 
    End Sub
 
End Module

添付ファイル: filevb2010_connectornet03.jpg 655件 [詳細] filevb2010_connectornet02.jpg 632件 [詳細] filevb2010_connectornet01.jpg 668件 [詳細]

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2012-08-08 (水) 23:26:22 (2921d)