Voila mon probleme, je voudrai créer une base de donnée foxpro a partir de VB6, en remplissant des textbox pour definir le nom des table, des champs, et leur valeur, voila ou j'en suis:
Option Explicit
Dim dbworkspace As Workspace
Dim dbdatabase As Database
Dim dbtabledef As TableDef
Dim dbtable As Recordset
Dim dbname As Field
Dim dbnumber As Field
Dim File As String
__________________________________________________________
Private Sub Creer_Click()
ComdSave.Action = 2
File = ComdSave.FileName
If File <> "" Then
Set dbworkspace=DBEngine.Workspaces(0)
Set dbdatabase=dbworkspace.CreateDatabas(File,dbLangGeneral)
Set dbtabledef = dbdatabase.CreateTableDef(Text1.Text)
If Text2.Text <> " " Then
Set dbname = dbtabledef.CreateField(Text2.Text, dbText)
Else
End If
If Text3.Text <> " " Then
Set dbnumber = dbtabledef.CreateField(Text3.Text, dbText)
Else
End If
dbname.Size = 30
dbnumber.Size = 10
dbdatabase.Close
MsgBox ("Base de données crée dans " & File, , "Creation de " & File)
Else
End If
Le probleme c'est que ça me créé un truc qui n'est pas une base de données reconnue????
