本帖最后由 fangcheng52013 于 2012-7-7 15:21 编辑
Sub 入库录入()
Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As String
Dim mydata As New Data查询
mydate = [e6]: hm = [g6]
If mydata.是否存在("Ruku", "入库单号码", hm) = True Then
MsgBox "已存在该入库单号码,请不要重复录入"
Exit Sub
Else
arr = Range("c8:g" & Range("f18").End(xlUp).Row)
For x = 1 To UBound(arr)
sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"
sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
sql = "Insert into ruku (入库日期, 入库单号码, 商品代码,商品名称,入库数量,入库单价,入库金额) VALUES(" & sr & ")"
mydata.执行sql命令 (sql)
Next x
MsgBox "成功录入数据库"
End If
End Sub
以下两句
sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "'," sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
这两句这样写可以吗 sr = "#" & mydate & "#" & ",'" & hm
sr = "#" & mydate & "#" & ",'" & hm sr = sr & arr(x, 1) & "','" & arr(x, 2) & "'," arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
fangcheng52013 发表于 2012-7-7 15:22
各位帮忙解释一下,谢谢
看了一下,应该可以,没测试
只是字符串连接。只要不少内容,分几行连接,都可以的。
|