テーブル定義書の出力

Question

こんにちは。

プログラムに慣れなくてどうしたらいいのかわかりませんが…どなたか教えてください。

ＶＢから、ＯＤＢＣでデータベースに接続することができました。追加機能としてテーブル定義書の出力をエクセル出力することになったのですが…やり方がわかりません。
わかりづらい説明だと思いますが、どなたかわかる方…教えてください

fortranxp · Accepted Answer

#1です。
このままですと全てA列に表示されてしまいますので
項目ごとに表示するように手直ししました。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim i As Integer
        Dim filenum As Integer
        Const savefile As String = "c:	ext.csv"

        Cn = New ADODB.Connection
        rs = New ADODB.Recordset

        Cn.ConnectionString = "DSN=MySQL;UID=sunohara;PWD=2510;"
        Cn.Open()
        rs.Open("describe shomas", Cn)
       
        Do Until rs.EOF
            For i = 0 To rs.Fields.Count - 1
                If i < rs.Fields.Count - 1 Then
                    TextBox1().Text = TextBox1.Text & rs(i).Value & ","
                Else
                    TextBox1().Text = TextBox1.Text & rs(i).Value & vbCrLf
                End If
            Next

            rs.MoveNext()
        Loop

        filenum = FreeFile()
        FileOpen(filenum, savefile, OpenMode.Output)
        Print(filenum, TextBox1.Text)
        FileClose(filenum)


        rs.Close()
        Cn.Close()
        MsgBox("終了しました。")

    End Sub

fortranxp · Answer

条件
1.データベースはMySQLを使用。
2.ODBCはMySQL ODBC3.51 Driver
3.VBはVB.NET2003Standard
4.出力はエクセルで開けるCSV形式にする。
5.一度TEXTBOXに表示してからCSVファイルを作成。

答え
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim i As Integer
        Dim filenum As Integer
        Const savefile As String = "c:	ext.csv"

        Cn = New ADODB.Connection
        rs = New ADODB.Recordset

        Cn.ConnectionString= "DSN=MySQL;UID=fortranxp;PW=password;"
        Cn.Open()
        rs.Open("describe test", Cn)
     
        Do Until rs.EOF
        For i = 0 To rs.Fields.Count - 1
        TextBox1().Text = TextBox1.Text & rs(i).Value & vbCrLf
       Next
            rs.MoveNext()
        Loop

        filenum = FreeFile()
        FileOpen(filenum, savefile, OpenMode.Output)
        Print(filenum, TextBox1.Text)
        FileClose(filenum)

        rs.Close()
        Cn.Close()
        MsgBox("終了しました。")

    End Sub

テーブル定義書の出力

#1です。

この回答への補足

条件

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング