table created dynamically

[palsonjj]

haai,
how to create MS Access Table dynamically in VB? any idea........... ...............

[SanjuMtr]

haai,
how to create MS Access Table dynamically in VB? any idea........... ...............

 cnn.Execute "create table BX (CNT_NO NUMBER,RG TEXT(2),BRN TEXT(3),DOC TEXT(1),BDSRL NUMBER)"

[palsonjj]

 cnn.Execute "create table BX (CNT_NO NUMBER,RG TEXT(2),BRN TEXT(3),DOC TEXT(1),BDSRL NUMBER)"

Haaai, thnks 4 ur replyin... i've 1 more doubt.. wher shud tat table stored ? can v giv any default path?

[palsonjj]

Haaai, thnks 4 ur replyin... i've 1 more doubt.. wher shud tat table stored ? can v giv any default path?

Yeeeeeeeeeeeeee eaaaaaaaaaaaaaa aaah , it's workin........ ;) ..thnku vry much .......

[debasisdas]

The table will be created in the .MDB file (access database) specified in the connection string.

[palsonjj]

thnku...

The table will be created in the .MDB file (access database) specified in the connection string.

haaai, thnku .... it's workin....... thn, can v create query table using dis same method?

[debasisdas]

if u r still using DAO then u can go for the following method


Dim W As Workspace
Dim D As Database
Dim T As TableDef
Dim F(5) As Field

Private Sub Command1_Click( )
Set W = DBEngine.Worksp aces(0)
Set D = W.CreateDatabas e("D:\EMP.MDB ", dbLangGeneral)
Set T = D.CreateTableDe f("EMPLOYEE")
Set F(0) = T.CreateField(" EMPNO", dbInteger)
Set F(1) = T.CreateField(" ENAME", dbText, 20)
Set F(2) = T.CreateField(" DEPTNO", dbInteger)
Set F(3) = T.CreateField(" SALARY", dbSingle)
Set F(4) = T.CreateField(" JOINDATE", dbDate)
T.Fields.Append F(0)
T.Fields.Append F(1)
T.Fields.Append F(2)
T.Fields.Append F(3)
T.Fields.Append F(4)
D.TableDefs.App end T
MsgBox ("DATABASE CREATED")
End Sub

[palsonjj]

if u r still using DAO then u can go for the following method


Dim W As Workspace
Dim D As Database
Dim T As TableDef
Dim F(5) As Field

Private Sub Command1_Click( )
Set W = DBEngine.Worksp aces(0)
Set D = W.CreateDatabas e("D:\EMP.MDB ", dbLangGeneral)
Set T = D.CreateTableDe f("EMPLOYEE")
Set F(0) = T.CreateField(" EMPNO", dbInteger)
Set F(1) = T.CreateField(" ENAME", dbText, 20)
Set F(2) = T.CreateField(" DEPTNO", dbInteger)
Set F(3) = T.CreateField(" SALARY", dbSingle)
Set F(4) = T.CreateField(" JOINDATE", dbDate)
T.Fields.Append F(0)
T.Fields.Append F(1)
T.Fields.Append F(2)
T.Fields.Append F(3)
T.Fields.Append F(4)
D.TableDefs.App end T
MsgBox ("DATABASE CREATED")
End Sub

Haaai, Database s created . but, "Set F(0) = T.CreateField(" EMPNO", dbInteger)" dis line has error --- Type mismatch... ??????

[debasisdas]

have u referred to DAO LIBRARY in project---references
dao 3.51
or
dao 3.6

[palsonjj]

have u referred to DAO LIBRARY in project---references
dao 3.51
or
dao 3.6

yes..... i've already added tat...