[.NET] Création base de donnée
Sniper_Vgaerr
Messages postés
113
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
14 août 2006
-
18 janv. 2006 à 13:49
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 19 janv. 2006 à 23:09
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 19 janv. 2006 à 23:09
4 réponses
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
18 janv. 2006 à 23:02
18 janv. 2006 à 23:02
Salut
Pour la creation des tables dynamiques en access, il n'y a pas de methode miracle.
Dim cmd3 As OleDb.OleDbCommand = New OleDb.OleDbCommand("Create table test(id int)")
cmd3.Connection = cn
cmd3.ExecuteNonQuery()
Sinon tu as la possibilité de passer par la bibliotheque ADOX,
c'est du COM donc lent.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscadoapireference.asp
voila
Pour la creation des tables dynamiques en access, il n'y a pas de methode miracle.
Dim cmd3 As OleDb.OleDbCommand = New OleDb.OleDbCommand("Create table test(id int)")
cmd3.Connection = cn
cmd3.ExecuteNonQuery()
Sinon tu as la possibilité de passer par la bibliotheque ADOX,
c'est du COM donc lent.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscadoapireference.asp
voila
Sniper_Vgaerr
Messages postés
113
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
14 août 2006
19 janv. 2006 à 13:56
19 janv. 2006 à 13:56
Salut,
J'ai mis ca en code, et ca ne marche pas, aurais tu une idée, merci :
Dim cnx
As OleDb.OleDbConnection
cnx =
New OleDb.OleDbConnection("provider microsoft.jet.oledb.4.0 ; data source " & Application.StartupPath &
"\Clients.mdb;")
Try
Dim Cmd
As OleDb.OleDbCommand =
New OleDb.OleDbCommand(
"CREATE TABLE test(id int)")
Cmd.Connection = cnx
Cmd.ExecuteNonQuery() ' Erreur ICI
Catch ex
As Exception
MsgBox(
"Une erreur est survenue dans la création de la table de la base de donnée Clients.mdb", MsgBoxStyle.Critical,
"Erreur base de donnée.")
Debug.Write(ex.Message)
Debug.Write(ex.StackTrace)
Finally
cnx.Close()
cnx.Dispose()
cnx =
Nothing
End
Try
Merci d'avance
J'ai mis ca en code, et ca ne marche pas, aurais tu une idée, merci :
Dim cnx
As OleDb.OleDbConnection
cnx =
New OleDb.OleDbConnection("provider microsoft.jet.oledb.4.0 ; data source " & Application.StartupPath &
"\Clients.mdb;")
Try
Dim Cmd
As OleDb.OleDbCommand =
New OleDb.OleDbCommand(
"CREATE TABLE test(id int)")
Cmd.Connection = cnx
Cmd.ExecuteNonQuery() ' Erreur ICI
Catch ex
As Exception
MsgBox(
"Une erreur est survenue dans la création de la table de la base de donnée Clients.mdb", MsgBoxStyle.Critical,
"Erreur base de donnée.")
Debug.Write(ex.Message)
Debug.Write(ex.StackTrace)
Finally
cnx.Close()
cnx.Dispose()
cnx =
Nothing
End
Try
Merci d'avance
Dalida
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016
19 janv. 2006 à 19:15
19 janv. 2006 à 19:15
salut
si tu veux essayer avec ADOX :
''' <summary>
''' Ajoute une nouvelle table à la collection de table du catalog interne
''' </summary>
''' <returns>La table créée ou Nothing</returns>
Private Function AppendTable(ByVal name As String, ByVal cnString As String) As ADOX.Table
Dim catalog As New ADOX.Catalog
catalog.let_ActiveConnection(cnString)
Dim newTable As New ADOX.Table
Try
With newTable
.Name = name
.ParentCatalog = catalog
End With
Catalog.Tables.Append(newTable)
Return newTable
Catch
Return Nothing
Finally
newTable = Nothing
Catalog = Nothing
End Try
End Function
[ Dalida ]
si tu veux essayer avec ADOX :
''' <summary>
''' Ajoute une nouvelle table à la collection de table du catalog interne
''' </summary>
''' <returns>La table créée ou Nothing</returns>
Private Function AppendTable(ByVal name As String, ByVal cnString As String) As ADOX.Table
Dim catalog As New ADOX.Catalog
catalog.let_ActiveConnection(cnString)
Dim newTable As New ADOX.Table
Try
With newTable
.Name = name
.ParentCatalog = catalog
End With
Catalog.Tables.Append(newTable)
Return newTable
Catch
Return Nothing
Finally
newTable = Nothing
Catalog = Nothing
End Try
End Function
[ Dalida ]
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
19 janv. 2006 à 23:09
19 janv. 2006 à 23:09
Salut,
Je ne comprends pas d'ou à pu venir l'erreur car chez la methode avec le create table à fonctionner.
Mais je conseille quand meme ADOX.
Je ne comprends pas d'ou à pu venir l'erreur car chez la methode avec le create table à fonctionner.
Mais je conseille quand meme ADOX.
