请各位老师帮助解决动态建表的问题

zzh49

各位老师好！

       请帮助解决动态新建数据表的问题。

    我要用vb6.0对sql2000数据库的试验库里新建很多不同表名相同格式的数据表（下面代码只是举个例子），下面代码只能新建一个，在Text1里输入第二个表名后，数据库里没有新建对应的数据表，只有删除第一个新建的数据表后，才能新建一个，数据库里只能保留一个用户新建的数据表，手工新建没有问题。程序运行时没有报错，不知代码哪里不对。

恳请老师帮助修改一下。

谢谢！

Private Sub 建表_Click()

Dim sql As String

Dim myCmd As New ADODB.Command

Dim myCat As New ADOX.Catalog

'On Error Resume Next

   myData = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" &_

            "Persist Security Info=False;User ID=sa;" & _

            "Initial Catalog=试验库;Data Source=PC-20130604PRII"

    myCat.ActiveConnection= myData & myData '

   Set myCmd.ActiveConnection = myCat.ActiveConnection

   sql = "use 试验库 " & "create table [" & Text1.Text &"]" & _

   "(序号 char(8) notnull, " & _

   " 单位 numeric(10)null, " & _

   " 姓名 smallintnull, " & _

   " 联系电话varchar(20) null, " & _

   " 单位地址nvarchar(100) null, " & _

   " constraint c_1 primary key clustered (序号))"

    With myCmd

       .CommandText = sql

       .Execute , , adCmdText

   End With

   Set myCat = Nothing

   Set myCmd = Nothing

   MsgBox "数据表创建成功"

End Sub

hwc2ycy

   .CommandText = sql
在这一句前面加个STOP
并把SQL输出在立即窗口观察下。

zzh49

hwc2ycy 发表于 2014-1-4 10:58
.CommandText = sql
在这一句前面加个STOP
并把SQL输出在立即窗口观察下。

谢谢版主！
加了Stop后提示未找到方法或数据成员

hwc2ycy

1. Private Sub 建表_Click()
   
2.     Dim sql As String
   
3.     Dim myCmd As New ADODB.Command
   
4.     Dim myCat As New ADOX.Catalog
   
5.     'On Error Resume Next
   
6.     Dim myData As String
   
7.     myData = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
   
8.         "Persist Security Info=False;User ID=sa;" & _
   
9.         "Initial Catalog=试验库;Data Source=PC-20130604PRII"
   
10.     myCat.ActiveConnection = myData ' & myData    '
    
11.     Set myCmd.ActiveConnection = myCat.ActiveConnection
    
12.     sql = "use 试验库 " & "create table [" & Text1.Text & "]" & _
    
13.           "(序号 char(8) notnull, " & _
    
14.           " 单位 numeric(10)null, " & _
    
15.           " 姓名 smallintnull, " & _
    
16.           " 联系电话varchar(20) null, " & _
    
17.           " 单位地址nvarchar(100) null, " & _
    
18.           " constraint c_1 primary key clustered (序号))"
    
19.     Stop
    
20.     Debug.Print sql
    
21.     With myCmd
    
22.         .CommandText = sql
    
23.         .Execute , , adCmdText
    
24.     End With
    
25.     Set myCat = Nothing
    
26.     Set myCmd = Nothing
    
27.     MsgBox "数据表创建成功"
    
28. End Sub

复制代码

zzh49

hwc2ycy 发表于 2014-1-4 11:36

版主您好！
Stop 提示未找到方法或数据成员

hwc2ycy

zzh49 发表于 2014-1-4 11:06
谢谢版主！
加了Stop后提示未找到方法或数据成员

STOP没用过？前面加点做什么？
加了点就是用WITH对象里的方法，肯定会报错呀。

hwc2ycy

zzh49 发表于 2014-1-4 11:42
版主您好！
Stop 提示未找到方法或数据成员

你要么就把输出的内容复制上来，这图，前面看不出来，后面也不完整，能反映出什么信息？

zzh49

hwc2ycy 发表于 2014-1-4 12:37
你要么就把输出的内容复制上来，这图，前面看不出来，后面也不完整，能反映出什么信息？

接受老师的批评，马虎！
这是立即窗口的显示内容
use 试验库 create table [ABC](序号 char(8) not null,  单位 numeric(10) null,  姓名 numeric(10) null,  联系电话 varchar(20) null,  单位地址 nvarchar(100) null,  constraint c_1 primary key clustered (序号))

hwc2ycy

你先把原有的表删除，执行一次，再换表名，再执行一次，看看有什么提示？

zzh49

hwc2ycy 发表于 2014-1-4 13:21
你先把原有的表删除，执行一次，再换表名，再执行一次，看看有什么提示？

对不起您，网络一直不畅，急死我了。
数据表和数据库都删除过，还是不行，只能创建一个用户表。
有一个新情况：在窗体上点击建表按钮时Stop变为黄色，程序终止运行，没有提示窗弹出，点击编辑界面工具栏里的运行符号时
程序运行"数据表创建成功"，但数据库里还是没有新建的第二个表.我已经折腾了两天了。
请版主再想想办法。
谢谢!