• ベストアンサー

テーブル定義書の出力

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

質問者が選んだベストアンサー

  • ベストアンサー
  • fortranxp
  • ベストアンサー率26% (181/684)
回答No.2

#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:\text.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

BOX_File
質問者

お礼

ありがとうございます。 まだ、作らせていなかったのですが、明日には早速参考にさせていただきます。ご親切にありがとうございました。

BOX_File
質問者

補足

折角、教えていただいたのに申し訳ありません… 私の説明不足なのですが… VB.NETではなく、VisualBasic6.0でしたm(__)m すみません。

その他の回答 (1)

  • fortranxp
  • ベストアンサー率26% (181/684)
回答No.1

条件 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:\text.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

BOX_File
質問者

お礼

こんにちは☆ ありがとうございます!!もの凄く助かりました!! 早速やってみます!! 本当にありがとうございます!!

関連するQ&A

専門家に質問してみよう