Board logo

标题: [数据库] 创建新表并插入内容问题 [打印本页]

作者: 刺兔    时间: 2008-5-9 08:16     标题: 创建新表并插入内容问题

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
  cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学管理系统;Data Source=DL"
  cn.Execute ("Create   Table " & from1.Caption)
  cn.Execute ("select * into " & from2.Caption & " from " & from1.ss & " where 学期 ='" & from1.Combo3.Text & "'")
End Sub
程序目的:当前窗体中有一个由两张表拼成的新表datagrid2,datagrid2中的内容是以from1中字符串ss为名字的课程表的某一学期的内容。
我希望点击command1,在数据库中建立一个以from2.caption为名字的新表,并且内容就是datagrid2中的内容
请各位帮下忙
作者: Nothing    时间: 2008-5-9 11:40

这样写肯定不行
先要取到datagrid2所有列的信息
然后创建表结构
cn.Execute ("Create   Table " & from1.Caption)
应写成
cn.Execute ("Create   Table " & from1.Caption &" (字段1 字段类型,字段2 字段类型,……)")
作者: 刺兔    时间: 2008-5-9 12:19

哦 谢谢!我敲上代码:
cn.Execute ("Create   Table " & from1.Caption &" (课程编码 nvarchar,课程名称 nvarchar, 性质 nvarchar,,……)")
   cn.Execute ("select * into " & from2.Caption & " from " & from1.ss & " where 学期 ='" & from1.Combo3.Text & "'")      
可是总说:第1行:“:”附近语法错误,这是什么意思阿,指向第一句,这是什么错误阿,语句里也没有冒号阿
作者: Nothing    时间: 2008-5-9 13:13

nvarchar在access中应当使用text,注意,字符要加上长度
如:课程编码 text(10)




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0