回答編集履歴
1
MySQLを使ったデータ取得・更新を追記
test
CHANGED
@@ -265,3 +265,119 @@
|
|
265
265
|
End Class
|
266
266
|
|
267
267
|
```
|
268
|
+
|
269
|
+
|
270
|
+
|
271
|
+
> MySQL出のデータ取得~更新
|
272
|
+
|
273
|
+
```
|
274
|
+
|
275
|
+
Imports MySql.Data.MySqlClient
|
276
|
+
|
277
|
+
|
278
|
+
|
279
|
+
Public Class Form1
|
280
|
+
|
281
|
+
|
282
|
+
|
283
|
+
Dim dt As DataTable
|
284
|
+
|
285
|
+
Dim da As MySqlDataAdapter
|
286
|
+
|
287
|
+
''' <summary>
|
288
|
+
|
289
|
+
''' 最初の読込
|
290
|
+
|
291
|
+
''' </summary>
|
292
|
+
|
293
|
+
''' <param name="sender"></param>
|
294
|
+
|
295
|
+
''' <param name="e"></param>
|
296
|
+
|
297
|
+
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
298
|
+
|
299
|
+
Dim con As MySqlConnection = createConnection()
|
300
|
+
|
301
|
+
'発行するSQL文を作成する
|
302
|
+
|
303
|
+
Dim SqlStr = "SELECT * FROM store"
|
304
|
+
|
305
|
+
' データ取得のためのアダプタの設定
|
306
|
+
|
307
|
+
da = New MySqlDataAdapter(SqlStr, con)
|
308
|
+
|
309
|
+
Dim cb As New MySqlCommandBuilder(da)
|
310
|
+
|
311
|
+
' データを取得し、セットする
|
312
|
+
|
313
|
+
dt = New DataTable
|
314
|
+
|
315
|
+
da.Fill(Dt)
|
316
|
+
|
317
|
+
testDGV.DataSource = dt
|
318
|
+
|
319
|
+
con.Close()
|
320
|
+
|
321
|
+
End Sub
|
322
|
+
|
323
|
+
|
324
|
+
|
325
|
+
''' <summary>
|
326
|
+
|
327
|
+
''' ボタンを押したらデータベースをアップデートする
|
328
|
+
|
329
|
+
''' </summary>
|
330
|
+
|
331
|
+
''' <param name="sender"></param>
|
332
|
+
|
333
|
+
''' <param name="e"></param>
|
334
|
+
|
335
|
+
Private Sub update_Click(sender As Object, e As EventArgs) Handles update.Click
|
336
|
+
|
337
|
+
da.Update(dt)
|
338
|
+
|
339
|
+
End Sub
|
340
|
+
|
341
|
+
|
342
|
+
|
343
|
+
''' <summary>
|
344
|
+
|
345
|
+
''' MySQLのコネクションを作成する
|
346
|
+
|
347
|
+
''' </summary>
|
348
|
+
|
349
|
+
''' <returns></returns>
|
350
|
+
|
351
|
+
Private Function createConnection() As MySqlConnection
|
352
|
+
|
353
|
+
Dim Builder = New MySqlConnectionStringBuilder()
|
354
|
+
|
355
|
+
' データベースに接続するために必要な情報をBuilderに与える
|
356
|
+
|
357
|
+
Builder.Server = "localhost"
|
358
|
+
|
359
|
+
Builder.Port = 3306
|
360
|
+
|
361
|
+
Builder.UserID = "test"
|
362
|
+
|
363
|
+
Builder.Password = "test"
|
364
|
+
|
365
|
+
Builder.Database = "test"
|
366
|
+
|
367
|
+
Dim ConStr = Builder.ToString()
|
368
|
+
|
369
|
+
' データベースに接続するための準備をして、実際につなぐ
|
370
|
+
|
371
|
+
Dim Con As New MySqlConnection
|
372
|
+
|
373
|
+
Con.ConnectionString = ConStr
|
374
|
+
|
375
|
+
Con.Open()
|
376
|
+
|
377
|
+
Return Con
|
378
|
+
|
379
|
+
End Function
|
380
|
+
|
381
|
+
End Class
|
382
|
+
|
383
|
+
```
|