Create Access table using VB6 code

[MarkTingson]

Hello guys,

im having trouble with this line of code. I'm trying to create a table in access using this piece of code but it says 'Object is no longer valid.' and it points to ocat.Tables.Append otbl. How can I solve this error guys?

Heres the code:

Dim otbl As New ADOX.Table
Dim ocat As New ADOX.Catalog

otbl.Name = "Table1"
otbl.Columns.Append "strItemCode", adChar
otbl.Columns.Append "strItemName", adChar
otbl.Columns.Append "intTotalQty", adInteger
otbl.Columns.Append "intPullOut", adInteger
otbl.Columns.Append "intTotalAmt", adInteger '
ocat.Tables.Append otbl

[debasisdas]

try using this

ocat.ActiveConnection = con   ''your connection object
otbl.ParentCatalog = ocat
 

might help you.

[MarkTingson]

try using this

ocat.ActiveConnection = con   ''your connection object
otbl.ParentCatalog = ocat
 

might help you.

I already put the code but it says ''Type is invalid" and points to ocat.Tables.Append otbl...

I think I have put otbl.Type=?????

What kind of type is that? And what does otbl.ParentCatalog means?

[MarkTingson]

Okay.. I have solved my problem.. i just put set otbl = new ADOX.Catalog and it works! Now my problem is, how to set its Default Value=0?? Any suggestions sir?

[debasisdas]

Default Value Of What ?

[MarkTingson]

Default Value Of What ?

Hehe.. i already solve my problem :

otbl.Columns("intTotalQty").Properties("Default") = 0
otbl.Columns("intPullOut").Properties("Default") = 0
otbl.Columns("intTotalAmt").Properties("Default") = 0
 

Thanks for giving a little idea sir.. :)