Hallo,
ich habe eine CSV Datei in ein DataGridView geschrieben. Funktionierte alles wunderbar.
Jetzt liefert mir diese Funktion ja ein Dataset. Und wenn ich alles richtig verstanden habe, dann ist dieses DateSet eigentlich ein virtuelles DataGridView. Damit meine ich, dass alles was in meinem DateGridView angezeigt wird ja in Wirklichkeit in diesem Dataset steht. Wenn nicht bin ich absolut auf dem Holzweg.
Jedenfalls möchte ich jetzt dieses Dataset in meine SQL Server 2000 DB schreiben.
Mein Problem ist leider, dass ich keine Ahnung habe wie ich das anstellen soll. Vielleicht liegt es an der Uhrzeit aber ich finde im Moment nichtmal einen Ansatz.
Ich bitte um nützliche Ratschläge.
lg und gn8
MIK
ich habe eine CSV Datei in ein DataGridView geschrieben. Funktionierte alles wunderbar.
Code:
Private Function ImportCSV2Grid(ByVal Filename As String, ByVal Filepath As String, ByVal DestinationGrid As DataGridView, ByVal dt As String) As DataSet Dim Dataset As New DataSet CreateSchemaFile(Filepath) Try Dim selectConnection As New OdbcConnection(("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & Filepath & ";Extensions=asc,csv,tab,txt;Persist Security Info=False").Trim) selectConnection.Open() Dim selectCommandText As String = "select * from [" & Filename & "]" Me.obj_oledb_da = New OdbcDataAdapter(selectCommandText, selectConnection) Me.obj_oledb_da.Fill(Dataset, dt) DestinationGrid.DataSource = Dataset DestinationGrid.DataMember = dt selectConnection.Close() Catch exception As Exception MessageBox.Show(exception.Message) End Try Return Dataset DeleteSchemaFile(Filepath) End Function
Jedenfalls möchte ich jetzt dieses Dataset in meine SQL Server 2000 DB schreiben.
Code:
Private Sub Write2DB() Dim conn As New SqlClient.SqlConnection conn.ConnectionString = "integrated security=SSPI;data source=<My SQL Server>;persist security info=False;initial catalog=northwind" Try conn.Open() < H I E R W O L L T E I C H I M P O R T I E R E N > Catch ex As Exception MessageBox.Show("Failed to connect to data source") Finally conn.Close() End Try End Sub
Ich bitte um nützliche Ratschläge.
lg und gn8
MIK
Comment