Create Table

[nagasrikanth]

Wasn't the fallowing code creates a phisically visible table...???

Set d = w.OpenDatabase("C:\Documents and Settings\Administrator\Desktop\db11.mdb")
Set rst = d.OpenRecordset("query1")
    rst.MoveFirst
    While Not rst.EOF
        Set t = d.CreateTableDef(rst(0))
        With t
            .Fields.Append .CreateField("srikanth", dbText) 
        End With
        rst.MoveNext
        Set t = Nothing
    Wend

then y iam uanble to see how is my tables looks like...the code was running with out any error....please help in this issue.....its a bit urgent..pleasee..

[pnish]

I think you need to append the TableDef to the database:

Set d = w.OpenDatabase("C:\Documents and Settings\Administrator\Desktop\db11.mdb")
Set rst = d.OpenRecordset("query1")
    rst.MoveFirst
    While Not rst.EOF
        Set t = d.CreateTableDef(rst(0))
        With t
            .Fields.Append .CreateField("srikanth", dbText) 
        End With
        rst.MoveNext
        [color=red]d.TableDefs.Append t[/color]
        Set t = Nothing
    Wend

[nagasrikanth]

yes...

that is what the mistake i made...ny how...thanx for u r quick reply pnish

[randem]

nagasrikanth,

For a good example look in my signature for Free VB Source Code and download the Import DBase IV files into an Access 2000 Database project.

This will help you with creating a database along with tables and fields.