|
分類:[VB.NET/VB2005 以降]
PostgreSQLにVB2005で接続しようとしています。
以下のプログラムを実行すると、「OLE DB プロバイダが ConnectionString で指定されませんでした。たとえば 'Provider=SQLOLEDB;' などの場合です。」というエラーになります。
何が問題なのでしょうか？
Private Sub btnCompCSV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompCSV.Click
Dim sr As IO.StreamWriter
Dim exfolder As String
Dim linetext As String
Me.Cursor = Cursors.WaitCursor
exfolder = Application.StartupPath & "\データ出力\"
If IO.Directory.Exists(exfolder) = False Then
IO.Directory.CreateDirectory(exfolder)
End If
sr = New IO.StreamWriter(exfolder & "タグデータ.csv", False, System.Text.Encoding.GetEncoding("Shift_JIS"))
Using connection As New OleDb.OleDbConnection(My.Settings.iodbConnectionString)
Dim command As New OleDb.OleDbCommand("Select * from tbl_tag", connection)
connection.Open()
Dim dr As OleDb.OleDbDataReader = command.ExecuteReader()
Do While dr.Read
linetext = dr("tag") & ","
linetext &= dr("tag_type") & ","
linetext &= dr("station") & ","
linetext &= dr("name1") & ","
linetext &= dr("name2")
sr.WriteLine(linetext)
Loop
dr.Close()
connection.Close()
End Using
Me.Cursor = Cursors.Default
MsgBox("タグデータを以下のフォルダにエクスポートしました" & vbCrLf & vbCrLf & exfolder)
End Sub
|