Ciao a tutti,
ho nuovamente bisogno di voi perche' vorrei esportare un dataset in un file dbf che poi mi servira' ad importare su un sito web. con vb6 riuscivo a fare cio' ma in .net sono nei pasticci. Ho provato ma non so come fare ad aggiungere i dati nella tabellla che riesco a creare con questo codice

codice:
Sql = "CREATE TABLE " & fileDBF & " (codArch integer, tipoPos char(5), ndg char(9), percorso char(254),batch double,progr double, documento char(5),img char(100), tipoimg char(6),codOpe double, data timestamp, codMov integer, ramo integer, froret integer)"
Dim CMDUP As New OleDb.OleDbCommand(Sql, dbfConnExp)
CMDUP.ExecuteNonQuery()
il codice completo e questo
codice:
Public Sub ExportDatasetToDBF(ByVal dtsDaExp As DataSet, ByVal fileDBF As String)
        'Declaration of Variables
        Dim dt As DataTable

        Dim myString As String = ""

        Dim bFirstRecord As Boolean = True

        Dim Sql As String
        Dim dbfConnExp As New OleDbConnection

        dbfConnExp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase IV;Data Source =" & PercorsoEsportazioneDbf
        dbfConnExp.Open()

        Sql = "CREATE TABLE " & fileDBF & " (codArch integer, tipoPos char(5), ndg char(9), percorso char(254),batch double,progr double, documento char(5),img char(100), tipoimg char(6),codOpe double, data timestamp, codMov integer, ramo integer, froret integer)"
        Dim CMDUP As New OleDb.OleDbCommand(Sql, dbfConnExp)
        CMDUP.ExecuteNonQuery()

        Dim dtsDBF As DataSet = dtsDaExp

        Sql = "SELECT * FROM " & fileDBF
        Dim daDBF As OleDbDataAdapter = New OleDbDataAdapter(Sql, dbfConnExp)
        daDBF.Fill(dtsDBF, fileDBF)

        Dim drSalvare As DataRow = dtsDBF.Tables(Batch.ToString).NewRow

        For Each dr As DataRow In dtsDaExp.Tables(0).Rows
            drSalvare("codarch") = dr("codarch")
            drSalvare("tipopos") = dr("tipopos")


            daDBF.MissingSchemaAction = MissingSchemaAction.AddWithKey
            ' aggiungo la riga al dataset 
            dtsDBF.Tables(0).Rows.Add(drSalvare)
            Dim cmdBuilder As New OleDbCommandBuilder(daDBF)
            daDBF.Update(dtsDBF, fileDBF)
            dtsDBF.AcceptChanges()
        Next


    End Sub
mi potete aiutare