Case 0 sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Case Else

Size: px

Start display at page:

Download "Case 0 sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Case Else"

ともみこやぎ
5 years ago
Views:

1 Imports MySql.Data.MySqlClient Imports System.IO Public Class Form1 中間省略 Private Sub コマンドテストCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles コマンドテストCToolStripMenuItem.Click Dim sqlcont As New MySql.Data.MySqlClient.MySqlConnection SQL 接続 Dim sqlcmds As MySql.Data.MySqlClient.MySqlCommand コマンド Dim sqlcmdu As MySql.Data.MySqlClient.MySqlCommand コマンド Dim sqlcmdi As MySql.Data.MySqlClient.MySqlCommand コマンド Dim sqldr As MySql.Data.MySqlClient.MySqlDataReader データリーダー Dim MyconString As String = "server=localhost;user id=hanbai;password=password;database=tanpin;" Dim I As Long, J1 As Long, J2 As Long カウンター入力ファイル接続文字列を設定 sqlcont.connectionstring = MyconString MAK Select command sqlcmds = sqlcont.createcommand sqlcmds.commandtext = "select tencode, tenname from tentbl where tencode =?tencode" Dim MySParm = sqlcmds.parameters.addwithvalue("?tencode", MySqlDbType.Int16) Mak Update command sqlcmdu = sqlcont.createcommand sqlcmdu.commandtext = "UPDATE tentbl SET tenname =?tenname " & _ "WHERE tencode =?tencode" sqlcmdu.parameters.add(new MySqlParameter("?tencode", MySqlDbType.Int16)) sqlcmdu.parameters.add(new MySqlParameter("?tenname", MySqlDbType.VarString)) Mak Insert command sqlcmdi = sqlcont.createcommand sqlcmdi.commandtext = "INSERT INTO tentbl ( tencode, tenname) VALUES (?tencode,?tenname)" sqlcmdi.parameters.add(new MySqlParameter("?tencode", MySqlDbType.Int16)) sqlcmdi.parameters.add(new MySqlParameter("?tenname", MySqlDbType.VarString)) ここからデータ読み込み MessageBox.Show(Iidata(0) & " " & Iidata(1)) Exit While 接続を作成してパラメータ値を指定して MySParm.Value = Iidata(0) 検索結果を確認する sqldr = sqlcmds.executereader I = 0 While (sqldr.read()) I = I + 1 接続を作成して Select Case I

2 Case 0 sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Case Else sqlcmdu.parameters("?tencode").value = Iidata(0) sqlcmdu.parameters("?tenname").value = Iidata(1) 内容を更新します sqlcmdu.executenonquery() End Select End データ読み込みここまで End Private Sub 自動生成テストJToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自動生成テストJToolStripMenuItem.Click Dim sqlda As MySql.Data.MySqlClient.MySqlDataAdapter データアダプタ作成 Dim sqlcmdbldr As MySqlCommandBuilder SQLコマンド作成 Dim resultds As DataSet データセットオブジェクト Dim odr As DataRow データオブジェクト Dim MyconString As String MySQL 接続文字列 Dim J1 As Long, J2 As Long カウンター入力ファイル DataAdapterオブジェクトの作成 sqlda = New MySql.Data.MySqlClient.MySqlDataAdapter DataSetオブジェクトの作成 resultds = New DataSet() MySQL 接続文字列 MyconString = "server=localhost;user id=hanbai;password=password;database=tanpin;" 接続を作成します sqlda.selectcommand = New MySqlCommand() sqlda.selectcommand.commandtype = CommandType.Text sqlda.selectcommand.commandtext = "select * from tentbl" sqlda.selectcommand.connection = New MySqlConnection(MyconString) スキーマ情報を Dataset に追加する

3 sqlda.missingschemaaction = MissingSchemaAction.AddWithKey 検索結果を確認する sqlda.fill(resultds, "tentbl") odr = resultds.tables("tentbl").rows.find(iidata(0)) If odr Is Nothing Then odr = resultds.tables("tentbl").newrow() odr("tencode") = Iidata(0) odr("tenname") = Iidata(1) resultds.tables("tentbl").rows.add(odr) Else テーブル "tentbl" の先頭値に対する更新処理 odr("tenname") = Iidata(1) End If End データ処理がおわったら元テーブルを更新 Update 文の自動実行のためにCommandBuilderオブジェクトを作成する sqlcmdbldr = New MySqlCommandBuilder(sqlDA) DataSetに対する更新結果をDBに反映 sqlda.update(resultds, "tentbl") MessageBox.Show(" レコードは更新されました ") End End Private Sub 共用テストOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 共用テストOToolStripMenuItem.Click Dim sqlda As MySql.Data.MySqlClient.MySqlDataAdapter データアダプタ作成 Dim resultds As DataSet データセットオブジェクト Dim sqlcont As New MySql.Data.MySqlClient.MySqlConnection SQL 接続 Dim sqlcmdu As MySql.Data.MySqlClient.MySqlCommand コマンド Dim sqlcmdi As MySql.Data.MySqlClient.MySqlCommand コマンド Dim odr As DataRow データオブジェクト DataAdapterオブジェクトの作成 sqlda = New MySql.Data.MySqlClient.MySqlDataAdapter DataSetオブジェクトの作成 resultds = New DataSet() MySQL 接続文字列

4 Dim MyconString As String = "server=localhost;user id=hanbai;password=password;database=tanpin;" Dim J1 As Long, J2 As Long カウンター入力ファイル接続文字列を設定 sqlcont.connectionstring = MyconString Mak Update command sqlcmdu = sqlcont.createcommand sqlcmdu.commandtext = "UPDATE tentbl SET tenname =?tenname " & _ "WHERE tencode =?tencode" sqlcmdu.parameters.add(new MySqlParameter("?tencode", MySqlDbType.Int16)) sqlcmdu.parameters.add(new MySqlParameter("?tenname", MySqlDbType.VarString)) Mak Insert command sqlcmdi = sqlcont.createcommand sqlcmdi.commandtext = "INSERT INTO tentbl ( tencode, tenname) VALUES (?tencode,?tenname)" sqlcmdi.parameters.add(new MySqlParameter("?tencode", MySqlDbType.Int16)) sqlcmdi.parameters.add(new MySqlParameter("?tenname", MySqlDbType.VarString)) 接続を作成します sqlda.selectcommand = New MySqlCommand() sqlda.selectcommand.commandtype = CommandType.Text sqlda.selectcommand.commandtext = "select * from tentbl" sqlda.selectcommand.connection = New MySqlConnection(MyconString) スキーマ情報をDatasetに追加する sqlda.missingschemaaction = MissingSchemaAction.AddWithKey 検索結果を確認する sqlda.fill(resultds, "tentbl") ここからデータ読み込み odr = resultds.tables("tentbl").rows.find(iidata(0)) If odr Is Nothing Then 接続を作成して sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Else 接続を作成して内容を更新します sqlcmdu.parameters("?tencode").value = Iidata(0) sqlcmdu.parameters("?tenname").value = Iidata(1) sqlcmdu.executenonquery() End If

5 End データ読み込みここまで End End Class

With sqlda sqlda に SelectCommand を追加.SelectCommand = New MySqlCommand() With.SelectCommand.CommandType = CommandType.Text.CommandText = "select * from

With sqlda sqlda に SelectCommand を追加.SelectCommand = New MySqlCommand() With.SelectCommand.CommandType = CommandType.Text.CommandText = select * from Imports MySql.Data.MySqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label3.Text = "MySQL のデータ表示と更新のテストを行いますメニューから行いたい処理を選択して実行してください