节日快乐

Question

SqlStmt = "INSERT INTO Record (R_ID,R_Name,R_ProPrice,R_Number,R_Total,R_Time) VALUES ( '" & R_ID & "','" & R_Name & "'," & R_ProPrice & "," & R_Number & "," & R_Total & ",'" & R_Time & "')"
那里错了???

Answer 1

'定义
Public R_ID As String
Public R_Name As String
Public R_ProPrice As Double
Public R_Number As Integer
Public R_Total As Double
Public R_Time As Date'调用
With MyRecord
.R_ID = Trim(Text1.Text)
.R_Name = CurStore.S_Name
.R_ProPrice = CurStore.S_Each_Price
.R_Number = Val(Text2.Text)
.R_Total = CurStore.S_Each_Price * Val(Text2.Text)
.R_Time = Format(Now, "yyyy-mm-dd")
.insert    '添加销售记录 ,错处                             
end with'函数
Public Sub insert()
DB_Connect
SqlStmt = "insert into Record values ( '" & R_ID & "','" & R_Name & "'," & R_ProPrice & "," & R_Number & "," & R_Total & ",'" & R_Time & "')"
OdbcExt (SqlStmt)
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
DBapi_Disconnect
End Sub在调用的时候出错,为什么?我老是找不到