关于用程序插入数据，用SQL查询的问题

fsxw1974 2009-04-14 02:08:10

rkstr = "insert into RKLS values ('" & UCase(Text1.Text) & "','" & Trim(Text2.Text) & " '," & Text3.Text & " , " & Text4.Text & " ,'" & Text5.Text & "','" & datestr & "'," & Text3.Text & "*" & Text4.Text & ")"
End If

ypconn.BeginTrans '执行插入数据命令
Dim rkcmd As New ADODB.Command
Set rkcmd.ActiveConnection = ypconn
rkcmd.CommandText = rkstr
rkcmd.Execute
ypconn.CommitTrans '提交命令
其中text2.text是名称
在SQL中查询时：

SQL> select * from rkls;

编号名称单价数量规格日期
-------------------- -------------------- --------- --------- -------------------- ----------
合计
---------
44 电话 50 100 步步高 2009.04.14
5000

SQL> select * from rkls where 名称='电话';

未选定行

...全文

72 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

fsxw1974 2009-04-15

打赏
举报

不明白

饮水需思源 2009-04-14

打赏
举报

rkstr = "insert into RKLS values ('" & UCase(Text1.Text) & "','" & Trim(Text2.Text) & " '," & Text3.Text & " , " & Text4.Text & " ,'" & Text5.Text & "','" & datestr & "'," & Text3.Text & "*" & Text4.Text & ")" 

End If 



ypconn.BeginTrans '执行插入数据命令 

ypconn.execute rkstr

ypconn.CommitTrans '提交命令