Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 574 fois - Téléchargée 42 fois
'création de la base 'frmParamTable est le nom du formulaire de création de tables Private Sub cmdCreate_Click() Dim Ctl As New Catalog Dim tbl As New Table If txtBase = "" Then MsgBox ("Chemin de la base obligatoire"), vbInformation txtBase.SetFocus Exit Sub End If If txtNomBase = "" Then MsgBox ("Nom de la base obligatoire"), vbInformation txtNomBase.SetFocus Exit Sub End If If Dir(txtBase & "\" & txtNomBase) <> "" Then Kill txtBase & "\" & txtNomBase End If Ctl.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\projet\new.mdb " frmParamTable.Show 1 End Sub Private Sub Dir1_Change() txtBase = Dir1.Path End Sub Private Sub Drive1_Change() On Error Resume Next Dir1.Path = Drive1 End Sub 'création de tables Dim tbl As New Table Dim cat As New adox.Catalog ' Ouvre le catalogue. cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\projet\new.mdb" tbl.Name = "Table1" tbl.Columns.Append "NomChamps","type","size" cat.Tables.Append tbl
Le type de données, on a
TEXT
DATETIME
NUMERIQUE
Etc...
Que met-on lorsqu'il s'agit d'un
OBJET OLE
MERCI
Mon data source étant A:\Mabase.mdb
Ce serait super de bien vouloir nous indiquer la raison de cette erreur
Merci
Léa
ew.mdb"
Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans WindowsApplication1.exe
Informations supplémentaires : Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
merci pour ton aide
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.