그물. 내 질문은 vb.net을 사용하여 Access에서 텍스트 파일로 데이터를 내보내는 방법입니다. 내 데이터베이스에는 FirstName과 LastName으로 구성된 Table1이 있으므로이 데이터를 텍스트 파일로 내보내고 싶습니다.
이 코드를 우연히 발견하고 실행하고 컴파일했을 때 텍스트 파일로 내보내지는 것은 없습니다. 누군가 이것을 도와 줄 수 있습니까?
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Scripts\db.mdb;"
cnn = New OleDbConnection(connetionString)
cnn.Open()
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT * INTO [Text;HDR=No;DATABASE=C:\Scripts\TextFiles].[Result.txt] FROM Table1", cnn)
cnn.Close()
미리 감사드립니다!
이 질문은 실제로 웹 사이트에서 많은 예제를 찾을 수 있기 때문에 반대 투표입니다.
검색 할 키워드가 무엇인지 모르십니까? "텍스트 상자에 데이터 세트"와 같은 것을 시도 하시겠습니까? 아니면 여기 뭔가? C # DataSet을 텍스트 파일로 내보내기 업데이트 됨 vb를 처음 사용하시는 것으로 알고 있습니다. 정확한 코드를 알려주지 않고 무엇을 할 수 있는지 알려 드리겠습니다.
먼저 DB에서 쿼리 결과를 보관할 dataTable / dataset (DataTable 선호)을 선언합니다.
Dim dtresult As DataTable = 'Result from DB
그런 다음 데이터 테이블 행을 반복하고 데이터를 문자열 작성기 (또는 문자열을 작성하려는 다른 방법)에 추가 한 다음 문자열을 txt 파일에 추가합니다. 이것은 당신이 할 수있는 일입니다.
업데이트 2 좋아, 이런 것.
Private Sub DataTableToTXT()
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Scripts\db.mdb;"
cnn = New OleDbConnection(connetionString)
Dim dtResult As New DataTable
cnn.Open()
'Change the query
Dim dataAdap As New OleDbDataAdapter("SELECT * FROM TABLE1", cnn)
dataAdap.Fill(dtResult)
cnn.Close()
'Change the path to your desired path
Dim exportPath As String = "C:\Export\"
Dim exportFileName As String = "data.txt"
If Not Directory.Exists(exportPath) Then
Directory.CreateDirectory(exportPath)
End If
Dim writer As New StreamWriter(exportPath + exportFileName)
Try
Dim sb As New StringBuilder
For Each row As DataRow In dtResult.Rows
sb = New StringBuilder
For Each col As DataColumn In dtResult.Columns
sb.Append(row(col.ColumnName))
Next
writer.WriteLine(sb.ToString())
Next
Catch ex As Exception
Throw ex
Finally
If Not writer Is Nothing Then writer.Close()
End Try
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다