codice:
Public Sub EliminaTabella(ByVal NomeTabella As String)
Dim Com As New OleDb.OleDbCommand("drop table " & NomeTabella, conn)
Com.ExecuteNonQuery()
End Sub
qui elimino la tabella
codice:
Public Sub CreaTabella(ByVal NomeTabella As String, ByVal Campipar As String)
Dim strsql As String
Dim Campi() As String = Split(Campipar, ",")
Dim i As Integer
strsql = "CREATE TABLE " & NomeTabella & " ( "
For i = 0 To Campi.Length - 1
strsql = strsql & " " & Campi(i) & " varchar(100),"
Next
strsql = Mid(strsql, 1, Len(strsql) - 1) 'tolgo l'ultima virgola
strsql = strsql & " )" 'chiudo la parentesi
Dim Com As New OleDb.OleDbCommand(strsql, conn)
Com.ExecuteNonQuery()
End Sub
qui la ricreo
codice:
Try
Strsql = "insert into " & Nometabella & " (" & Tabelle & ") values (" & Campi & ") "
Dim Com As New OleDb.OleDbCommand(Strsql, conn)
Com.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & "---" & ex.ToString)
End Try
e qui faccio le insert
sono 3 sub
che vengono richiamate in successione
il punto è che si ferma proprio al momento di fare la insert
ma se aproaccess va tutto bene
grazie