往数据表里插入记录
Private Sub Command3_Click()
Dim ccno As String
Dim ccname As String
Dim ccredit As Integer
Dim chours As Integer
ccno = Text1.Text
ccname = Text2.Text
ccredit = Val(Text3.Text)
chours = Val(Text4.Text)
sSQL = "insert into c(cno,cname,credit,hours) values ('ccno','ccname','ccredit','chours')"
cn.Execute sSQL
End Sub
测试结果老是报错,说是“将varchar‘chours’值转换为数据类型为int的列时发生语法错误”。chours明明是整型变量阿!不明白错在哪里?
Dim ccno As String
Dim ccname As String
Dim ccredit As Integer
Dim chours As Integer
ccno = Text1.Text
ccname = Text2.Text
ccredit = Val(Text3.Text)
chours = Val(Text4.Text)
sSQL = "insert into c(cno,cname,credit,hours) values ('ccno','ccname','ccredit','chours')"
cn.Execute sSQL
End Sub
测试结果老是报错,说是“将varchar‘chours’值转换为数据类型为int的列时发生语法错误”。chours明明是整型变量阿!不明白错在哪里?
...全文


数据库(包含打印,安装,报表)
