Ms Access

cs_colby 111 Messages postés mardi 10 mai 2005Date d'inscription 23 mars 2018 Dernière intervention - 14 mars 2018 à 11:39
Public Function CreateDatabase(DatabaseFullPath As String) As Boolean
Dim BAns As Boolean
Dim Cat As New ADOX.Catalog()
Try
Dim sCreateString As String
sCreateString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & DatabaseFullPath
Cat.Create(sCreateString)
BAns = True

Dim Conx As New OleDb.OleDbConnection
Dim Cmd As New OleDb.OleDbCommand
Conx.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = " _
+ "C:\Users\Documents\cardbase.mdf"
Conx.Open()
Cmd.Connection() = Conx

Cmd.CommandText = "CREATE TABLE Cars(ID AUTOINCREMENT CONSTRAINT PKEY Primary Key," & _
" Réf TEXT(20)," & _
" Date_ DATETIME," & _
" Doc TEXT(20)," & _
" TC TEXT(20)," & _
" Mark TEXT(20)," & _
" Typ TEXT(20)," & _
" Ann TEXT(10)," & _
" Img1 XXXXXXXXXXXXXXXX," & _
" Img2 XXXXXXXXXXXXXXXX," & _
" Info MEMO)"
Cmd.ExecuteNonQuery()

Conx.Close()

Catch Excep As System.Runtime.InteropServices.COMException
BAns = False
End Try
Return BAns
End Function

Ma question
comment écrire et remplacer les XXXXX, lorsque je voudrais insérer dans les colonnes Img1 et Img2 des données de types OBJET OLE
--
Afficher la suite 

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.