DAO and Delphi -> Update MS Access database structure
Hi,
When I open a table in MS Access (in designview) and add a boolean field, it will have as it's property:
Fieldname = 'Test1'
Fieldtype = 'Yes/No'
Format = 'Yes/No' (= automatically filled)
Format can be changed into Yes/No, True/False and On/Off
The statement below is not adding the Format-property of the boolean field.
ALTER TABLE FracturenUIT ADD COLUMN IsCorrect YesNo
Fieldname = 'Test1'
Fieldtype = 'Yes/No'
Format = <empty>
I seems that DAO has access to the format-property. I already imported the DAO 3.6 Objects library into my project, but I don't know how to use DAO to:
1. Open MS Access database that is password protected
2. Add or alter a table
3. Alter fieldname properties (especially property: FORMAT)
Bye the way: I just need DAO to make changes to the database structure (including the fieldproperties). (For accessing my data I use ADO).
Please give me some samples on different fieldtypes (f.e. Boolean, Text, Float, Memo)
Thanks in advance for your help,
Regards, Stef
When I open a table in MS Access (in designview) and add a boolean field, it will have as it's property:
Fieldname = 'Test1'
Fieldtype = 'Yes/No'
Format = 'Yes/No' (= automatically filled)
Format can be changed into Yes/No, True/False and On/Off
The statement below is not adding the Format-property of the boolean field.
ALTER TABLE FracturenUIT ADD COLUMN IsCorrect YesNo
Fieldname = 'Test1'
Fieldtype = 'Yes/No'
Format = <empty>
I seems that DAO has access to the format-property. I already imported the DAO 3.6 Objects library into my project, but I don't know how to use DAO to:
1. Open MS Access database that is password protected
2. Add or alter a table
3. Alter fieldname properties (especially property: FORMAT)
Bye the way: I just need DAO to make changes to the database structure (including the fieldproperties). (For accessing my data I use ADO).
Please give me some samples on different fieldtypes (f.e. Boolean, Text, Float, Memo)
Thanks in advance for your help,
Regards, Stef
ASKER
Thank you Capricorn1:
I looks as if your code is Visual Basic and I'm using Delphi.
Also I don't see anything about the Format-property?
I looks as if your code is Visual Basic and I'm using Delphi.
Also I don't see anything about the Format-property?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Delphiwizard,
sorry, thoght you want to do it in Access VBA
sorry, thoght you want to do it in Access VBA
i think that it doesn't matter if you choose yes/no, true/false, on/off access stores value in the same way
you just choose how access application will interpret value of boolean field
ziolko.
you just choose how access application will interpret value of boolean field
ziolko.
See this article on using ADOX to create your database/tables:
http://delphi.about.com/od/database/l/aa072401a.htm
http://delphi.about.com/od/database/l/aa072401a.htm
ASKER
ADOX doesn't support changing the field's Format-property.
Therefor I need to do the database updates with DAO.
Therefor I need to do the database updates with DAO.
ASKER
Thank you all for your help.
I have bought the DAO componentsuite of Scalabium. This is giving me all the stuff I need.
I have bought the DAO componentsuite of Scalabium. This is giving me all the stuff I need.
Function CreateTableDDL()
Dim sql As String
sql = "CREATE TABLE TestAllTypes "
sql = sql & "( "
sql = sql & " MyText TEXT(50), "
sql = sql & " MyMemo MEMO, "
sql = sql & " MyByte BYTE, "
sql = sql & " MyInteger INTEGER, "
sql = sql & " MyLong LONG, "
sql = sql & " MyAutoNumber COUNTER, "
sql = sql & " MySingle SINGLE, "
sql = sql & " MyDouble DOUBLE, "
sql = sql & " MyCurrency CURRENCY, "
sql = sql & " MyReplicaID GUID, "
sql = sql & " MyDateTime DATETIME, "
sql = sql & " MyYesNo YESNO, "
sql = sql & " MyOleObject LONGBINARY, "
sql = sql & " MyBinary BINARY(50) "
sql = sql & ")"
CurrentDb.Execute sql
End Function