Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 654

Permalink

Jul 5th, 2009

initial value

Expand Post »

what will be the initial value of the fields created in a new table(dao)?
how to change it?

Similar Threads

Initial Load Time issue in Web Application in ASP.NET
Initial Values in PHP
check initial charecters of a text... in Visual Basic 4 / 5 / 6
error: initial value of reference to non-const must be an lvalue in C++
Machine dies after initial boot up in Windows NT / 2000 / XP

shiv0013

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

27 posts
since Jul 2009

Permalink

Jul 5th, 2009

Re: initial value

That all depends upon if you allow those fields to default to their default values or not. As for changing those default values lets see your table creation code...

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Jul 5th, 2009

Re: initial value

Set login = OpenDatabase("database path")
Set newtable = login.CreateTableDef("table_name")
With newtable
.Fields.Append .CreateField("name", dbText, 30)
end with
now wat is the default initial value and how can i change it?

shiv0013

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

27 posts
since Jul 2009

Permalink

Jul 6th, 2009

Re: initial value

Okay, this example works with both 2.5/3.51 and 3.6...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim daoDb As DAO.Database
Dim daoTd As DAO.TableDef
 
Set daoDb = DBEngine.CreateDatabase("C:\z\MyDB.mdb", dbLangGeneral, dbVersion30)
 
Set daoTd = daoDb.CreateTableDef("MyTable")
 
daoTd.Fields.Append daoTd.CreateField("iID", dbLong)
daoTd.Fields("iID").Attributes = dbAutoIncrField
 
daoTd.Fields.Append daoTd.CreateField("vFName", dbText, 30)
daoTd.Fields("vFName").AllowZeroLength = True
daoTd.Fields("vFName").DefaultValue = "Enter First Name Here"
 
daoDb.TableDefs.Append daoTd
 
Set daoTd = Nothing
daoDb.Close
Set daoTd = Nothing
Dim daoDb As DAO.Database
Dim daoTd As DAO.TableDef

Set daoDb = DBEngine.CreateDatabase("C:\z\MyDB.mdb", dbLangGeneral, dbVersion30)

Set daoTd = daoDb.CreateTableDef("MyTable")

daoTd.Fields.Append daoTd.CreateField("iID", dbLong)
daoTd.Fields("iID").Attributes = dbAutoIncrField

daoTd.Fields.Append daoTd.CreateField("vFName", dbText, 30)
daoTd.Fields("vFName").AllowZeroLength = True
daoTd.Fields("vFName").DefaultValue = "Enter First Name Here"

daoDb.TableDefs.Append daoTd

Set daoTd = Nothing
daoDb.Close
Set daoTd = Nothing

Good Luck

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: can two ms sql table display information on one vb datagrid???

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Easy for you complicate for me

DaniWeb Message

Cancel Changes

User Name
Password