我在网上找了3个小时都没有得到解决!!!!!

Question

怎样用vb6 动态的创建sql server 表,字段
   最好详细解释的一下代码,为了更好的理解  谢谢

Answer 1

使用SQL语句就可以完成了动态的创建表：
CREATE TABLE 
DROP TABLE动态的创建字段：
ALTER TABLE
具体内容，在这里贴出来也没什么用，你还是找一下相关的书籍吧

Answer 2

dim field as string
field="name varchar(10),num numeric(10),item varchar(10),dt datetime.........."
這一句就相當於動態字段sql="create table tb(" & field & ")"rs.optn sql ,conn

Answer 3

http://www.china-askpro.com/msg36/qa94.shtml
http://www.china-askpro.com/msg19/qa02.shtml在VB程序中用ADO对象动态创建数据库和表
http://www.ahetc.gov.cn/cit/200203/14.doc

Answer 4

先建连接
驱程接着SQLCreate table就行了

Answer 5

用ADO连接对象(cn)连接到SLQ中的master数据库，用cn.Execute方法执行下面的SQL语言即可：
　　创建一个名为Try的数据库：
　　CREATE DATABASE Try
　　ON 
  　PRIMARY
  　(NAME=Try_data,
  　FILENAME='d:\data\Try.mdf',
  　SIZE=30M,
  　MAXSIZE=70M,
  　FILEGROWTH=15%)
　　LOG ON
  　(NAME=Try_log,
  　FILENAME='d:\data\Try.ldf',
  　SIZE=2M,
  　MAXSIZE=10M,
  　FILEGROWTH=1M)　　创建了一个名为Try_info的表：
　　CREATE TABLE Try_info
　　(
　　user_name varchar(10) NOT NULL,
　　age int,
　　RMB money
　　)

Answer 6

一般常用的有两种方法，
一种是在vb中运行sql语句，就像在查询分析器里运行建表的sql语句一样，一种是使用adox，这个你可以在ado的帮忙里见到。

Answer 7

建表：create table tablename (field1 fieldtype,......)删除表：drop table tablename 新增字段：alter table tablename add fieldname fieldtype,.......删除字段：alter table tablename drop column fieldname

Answer 8

cn.open .... 
cn.BeginTrans
  Dim ds As New ADODB.Recordset
  '判断是否有mm字段
   ds.Open "select name from syscolumns where id=object_id('yourtablename') and name='MM'", cn, adOpenForwardOnly, adLockReadOnly
  '无则加mm字段
        If ds.EOF Then ds.Close: cn.Execute "ALTER TABLE yourtablename ADD MM VARCHAR(10) NULL" Else ds.Close
......
If Err.Number = 0 Then cn.CommitTrans Else cn.RollbackTrans

Answer 9

执行SQL语句比较方便，在SQLServer企业管理器中，可以鼠标右键点击某个数据库，选 所有任务-生成SQL脚本，即可生成建库脚本，所有对象，当然包括表，都可以生成