Je crois que ma requête est OK mais je n'arrive pas à créer la table avec le code que j'utilise. Code qui fonctionne très bien pour supprimer, modifier, créé unbe nouvelle ligne d'info, etc.
Je crois que le bug vient da la valeur "Table" dans ma Fonction et je ne saisi pas comment régler le problème...
Merci d'avance
Voici mon code
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
RequeteSQL = "CREATE TABLE '%" & txtDossier.Text & "%' (Lot Text)"[/
Execute (txtDossier.text)
End Sub
Public Function Execute(ByVal table As String) As DataView
Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Recherche.mdb"
SourceOle = New OleDbConnection(SourceConnect)
Select Case SourceOle.State
Case ConnectionState.Closed
SourceOle.Open()
End Select
DataA = New OleDbDataAdapter(RequeteSQL, SourceOle)
Dim DataS As New DataSet
DataA.Fill(DataS, table)
Dtt = DataS.Tables(table)
....
A voir également:
VB.Net Code pour créé un Table dans un fichier Acces, J'ai la requête mais ca bu