やっと VB.NET から SQL Server に接続できたわ[ﾃﾞｰﾀﾍﾞｰｽ]
(2014-06-28 17:05:57) by shinoda

Visual Basic 2013 から SQL Server を扱うﾌﾟﾛｸﾞﾗﾑのお勉強をしようと思ってたのに､結局､Visual Studio と SQL Server のｾｯﾄｱｯﾌﾟで時間を取られ､やっと今日､ﾌﾟﾛｸﾞﾗﾑにとりかかることが出来たよ｡

ｻｰﾊﾞ CHIBIKURO2-PC\SQLEXPRESS
DB testdb
ID dbtest
PW testpasswd

という環境で､meigen ﾃｰﾌﾞﾙの中身を読んでｸﾞﾘｯﾄﾞ･ｺﾝﾄﾛｰﾙにはめ込むだけの処理｡

ﾃｰﾌﾞﾙの中身はこんな感じで｡

<画像：20140628_VB2.jpg>

Visual Basic のｿｰｽｺｰﾄﾞは､とりあえず試しに動かしたかったので､例外処理もまったく書いてないけど(^^;､こんな感じ｡

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim strConnectSQL As String
        Dim strSQL As String
        Dim SQLDA As SqlClient.SqlDataAdapter
        Dim SQLDS As New DataSet()

        strConnectSQL = _
          "Server=CHIBIKURO2-PC\SQLEXPRESS;" & _
          "Initial Catalog=testdb;" & _
          "User ID=dbtest;" & _
          "Password=testpasswd;"

        'SQL文
        strSQL = "SELECT * FROM meigen ORDER BY sn"

        SQLDA = New SqlClient.SqlDataAdapter(strSQL, strConnectSQL)

        'ﾃﾞｰﾀｾｯﾄに格納
        SQLDA.Fill(SQLDS, "TEST")

        Me.DataGridView1.DataSource = SQLDS.Tables("TEST")

    End Sub

End Class

これで､

<画像：20140628_VB0.jpg>

この画面の｢ﾃﾞｰﾀ取得｣ﾎﾞﾀﾝ(Button1)をｸﾘｯｸすれば､

<画像：20140628_VB1.jpg>

こんな風に testdb DB の meigen ﾃｰﾌﾞﾙの中身がｸﾞﾘｯﾄﾞ･ｺﾝﾄﾛｰﾙ(DataGridView1)に表示されると｡

さて､これでﾃｽﾄ環境もしっかり出来たので､あれこれお勉強しましょう｡
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.0.8