往数据表里插入记录

[doudou321]

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明明是整型变量阿！不明白错在哪里？

[fengshentang]

hours字段的类型错了

[liangCK]

数值类型不要加单引号啊.

[zzyong00]

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

[moyifeng]

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