プログラミング: 2014年6月アーカイブ

サーバ CHIBIKURO2-PC\SQLEXPRESS

DB testdb

ID dbtest

PW testpasswd

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