关于SQL 语句 CREATE TABLE 赋初始值

[nbcc]

我在vb中 用sql 语句 CREATE TABLE在一个ACCESS数据库中建立一个表，怎样给用CREATE TABLE 在建立表的同时给表中的字段赋初始值。

[Richard2001]

Default 'abc'

[dbcontrols]

http://www.wzjcw.net/vbgood/taishan/index.html【迷你数据库浏览器】源代码。添加、删除表、列，点击列标头排序,ADO对象，DataGrid操作

[leonnet]

CREATE TABLE TEST([FIELD1] TEXT(10))

[sha_boy]

Dim db As Database
Dim strstr As String
Dim sql As Recordset

Set db = DBEngine(0).OpenDatabase(App.Path & "\dnl.mdb", dbOpenSnapshot)
strstr = "Create Table [321]([ID]integer,[学号]Text(10),[年龄]Integer,[成绩]integer)"
db.Execute strstr
Set sql = db.OpenRecordset("321", dbOpenDynaset)
sql.AddNew
sql!ID = 123
sql!学号 = "321"
sql!年龄 = 12
sql!成绩 = 33
sql.Update
End Sub