请教在VB编写的程序运行过程中如何操作SQL的问题？

[Hoee_cn]

后学目前遇到以下一个问题，请各位朋友帮助？
1、在程序运行过程中在一个数据库里新创建1个表？
2、如何在程序运行中检查数据库中以某名字命名的数据表是否存在？
由于时间关系暂时不能去书店，所以在这里请教有经验的高手，环境是VB+SQL7.0，以上2个问题如何编写代码？请赐教。谢谢！

[wynbfqny]

http://expert.csdn.net/Expert/topic/1876/1876180.xml?temp=.2484705

别浪费分了

[huayuxing]

1
adocnCase为你的ADOCONNECTION连接
Ssql="Create Table Users(ID int IDEntity(1,1) not Null Primary Key,UserName Varchar(20) not Null,Pwd Varchar(20) Null,Purview TinyInt default 0)"
adocnCase.Execute(ssql)
2
Ssql="Select * from SysDataBases Where Name='Cases'"

[pengdali]

1、在程序运行过程中在一个数据库里新创建1个表？
create table 表名(a int,b int)
或
select * into 新表 from 旧表

2、如何在程序运行中检查数据库中以某名字命名的数据表是否存在？
if objects_id('你的表名') is not null
select '在'
else
select '不在'

[fling_boy]

大家都说了

[dafu71]

1
adocnCase为你的ADOCONNECTION连接
Ssql="Create Table Users(ID int IDEntity(1,1) not Null Primary Key,UserName Varchar(20) not Null,Pwd Varchar(20) Null,Purview TinyInt default 0)"
or
Ssql="select * into newtable from oldtable where 1=2"
adocnCase.Execute(ssql)
2
Ssql="Select 1 from sysobjects Where Name='yourtable' and xtype='u'"
rst.open sql
if rst.eof then
msgbox "不在"
else
msgbox "在"
end if