3.VisualBasic SQL Tips CODE

　このページでは開発したプログラムコードをチップ化してご紹介しています。後ほどわかり易く分類化して整理する予定です。 (1)SQLServerと接続 次のコードではSqlServerと接続するプログラムコードです。Sqlclientクラスのsqlconnectionを使用します。[ConnectionString ]ではSQLserverと接続するためのデータソースのアドレスとIDとパスワードを指定します。

        Dim sqlcn As SqlClient.SqlConnection = New SqlClient.SqlConnection
        sqlcn.ConnectionString = "Data Source=FRONTIER\SQLEXPRESS;Initial Catalog=Info_DB ;User ID=sa;password=*******;"
        sqlcn.Open()

(2)SQLServerのデータを読み込み(SqlDataReader) 次のコードではSQLServerの[CATALOG]テーブルのデータをSqlClientクラスのSqlCommandでデータを指定してXDDataとして読み込みプログラムコードです。

    Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT * FROM CATALOG WHERE ID=" & L & "", sqlcn)
            Dim XDDATA As SqlClient.SqlDataReader
            XDDATA = sqlcmd.ExecuteReader

(3)SQLServerのデータをデータセットに読み込む 次のコードではSQLServerの[CATALOG]テーブルのデータをSqlClientクラスのSqlCommandでデータを指定して[Catalog]データセットに読みこむプログラムコードです。

    Dim sql_adap As SqlClient.SqlDataAdapter
        sql_adap = New SqlClient.SqlDataAdapter("SELECT * FROM CATALOG", sqlcn)
        sql_adap.Fill(dset, "Catalog")

(4)SQLSeverにテーブルを作成 次のコードではSQLServerにTEST_TABLEを作成するコードです。IDをプライマリーキーとした[ID,title,Url]のカラムを持つテーブルを作成しています。 sqlcmdを実行するには[ExecuteNonQuery]メソッドを使用します。

    Try
            Dim sqlcmd As New SqlClient.SqlCommand
            sqlcmd = New SqlClient.SqlCommand("CREATE TABLE TEST_TABLE (ID int not null primary key IDENTITY,title varchar(255),Url varchar(255))", sqlcn)
            sqlcmd.ExecuteNonQuery()
            MsgBox("テーブルを追加しました")
        Catch ex As SqlException
            MsgBox("Table Create Error")
        End Try

(5)SQLServerのテーブルのデータ数をカウント 次のコードではSQLServerのTEST_TABLEのデータ数をカウントするコードです。 [ExecuteScalar]メソッドを使用します。

     Dim sqlscl As SqlClient.SqlCommand
        Dim num As Integer
        sqlscl = New SqlClient.SqlCommand("SELECT COUNT(*) FROM TEST_TABLE", sqlcn)
        num = CInt(sqlscl.ExecuteScalar())

(6)SQLServerのデータを読み込む 次のコードではTEST_TABLEのID=変数[num]のデータを読み込んでいます。[ExecuteReader]メソッドを使用します。

    Dim sqlcmd As SqlClient.SqlCommand
        sqlcmd = New SqlClient.SqlCommand("SELECT * FROM TEST_TABLE where ID='" & num & "'", sqlcn)
        Try
            Dim RDDATA As SqlClient.SqlDataReader
            RDDATA = sqlcmd.ExecuteReader
            While RDDATA.Read
                ID.Text = RDDATA(0)
                title.Text = RDDATA(1)
                link.Text = RDDATA(2)
                category.Text = RDDATA(3)
                subcategory.Text = RDDATA(4)
                description.Text = RDDATA(6)
                day.Text = RDDATA(7)
                foreignkey.Text = RDDATA(8)
            End While
            RDDATA.Close()
            sqlcn.Close()
        Catch ex As Exception
            message.Text = "Not Read Data"
        End Try