祥虹叔你还好吗?还在拼命的工作啊?要多注意身体哈。小侄向您汇报近期的工程进度:界面基本上可以了,现在到数据库了。我用文本框输入数据insert into 到数据库中,总是弹出类型不匹配,我是新手,只能求助于您了。我上来好多次都遇不到您,我把代码附上吧,如果您上来看到了,恳请不吝赐教哦。
代码:
Option Explicit
Dim con As ADODB.Connection
Dim Rec As ADODB.Recordset
Private Sub Command1_Click() If Txt0.Text = "" Or Txt1.Text = "" Then MsgBox "请选择父节点和输入子节 点",_vbInformation, "提示!"
Set con = New ADODB.Connection
con.Open provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\Kll\VB\510\data
\db1.mdb;Persist SecurityInfo=False"
If Txt0.Text = "数据目录" And Txt1.Text <> "" Then _
Rec.Open "insert into 年度表(年度,年度ID,年度名称) valuse(" + CInt(Txt1.Text) + ",2*" + CInt(Txt1.Text) + "," +Txt1.Text+"年数据 )", con, 1, 3
'问题就出在这里,总是提示实时错误'13':类型不匹配”
Rec.Update
Rec.Close
con.Close
End Sub
德灿宗亲好像也是高手,您若看到,也帮忙解解好吗?其他宗亲谁比较熟悉数据库操作的,也帮我看看吧,我会很感激您的!
|