vb中怎样创建数据表?

在vb中用create table创建数据表

热心网友

建议用dao完成Dim tdfnewtable As TableDefDim fldnewfield As Field'创建数据表Set tdfnewtable = dbs。CreateTableDef(tabname)'创建表中字段With tdfnewtable。Fields。Append 。CreateField("名称", dbText, 50)。Fields。Append 。CreateField("数量", dbLong)End Withdbs。TableDefs。Append tdfnewtabledbs。TableDefs。Refresh或者：Dim connstr As StringDim dbconn As New ADODB。ConnectionDim Ctb As StringCtb = "create table tempjian(userlist varchar(30))"connstr = "Provider=Microsoft。Jet。OLEDB。4。0;Password=NewPassword;Data Source=NewDB。mdb;Persist Security Info=True"dbconn。Open connstrdbconn。Execute Ctb。