程序除了查询就是插入数据,无其他操作
插入数据代码如下:Dim sqlstr As String
Set conn = New adodb.Connection
Set RS = New adodb.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Date & ".mdb;Persist Security Info=False"
sqlstr = "select * from 重量"
RS.Open sqlstr, conn, 3, 2
RS.AddNew
RS.Fields("冠字号") = lbGzh.Caption
RS.Fields("编号") = lbXh.Caption
RS.Fields("重量kg") = zl
RS.Fields("时间") = Now()
RS.Fields("工号") = lbGh.Caption
RS.Update
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing数据库的第一个字段为“冠字号”
有时数据库的第一条记录(此时已经存放了许多记录)的第一个字段(也就是“冠字号”)会改为lbGh.Caption的内容(也就是“工号”)由于该问题相当奇怪
忘哪位大侠帮忙
如问题解决可“重金”答谢!!!!
插入数据代码如下:Dim sqlstr As String
Set conn = New adodb.Connection
Set RS = New adodb.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Date & ".mdb;Persist Security Info=False"
sqlstr = "select * from 重量"
RS.Open sqlstr, conn, 3, 2
RS.AddNew
RS.Fields("冠字号") = lbGzh.Caption
RS.Fields("编号") = lbXh.Caption
RS.Fields("重量kg") = zl
RS.Fields("时间") = Now()
RS.Fields("工号") = lbGh.Caption
RS.Update
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing数据库的第一个字段为“冠字号”
有时数据库的第一条记录(此时已经存放了许多记录)的第一个字段(也就是“冠字号”)会改为lbGh.Caption的内容(也就是“工号”)由于该问题相当奇怪
忘哪位大侠帮忙
如问题解决可“重金”答谢!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货