Chinaunix首页 | 论坛 | 博客
  • 博客访问: 22136
  • 博文数量: 44
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 395
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-23 14:08
文章分类

全部博文(44)

文章存档

2023年(22)

2022年(22)

我的朋友

分类: Windows平台

2022-12-01 17:02:41

With Me.MSHFlexGrid1
Dim m As Integer
Dim N As Integer
For m = 1 To .Rows - 1
If .TextMatrix(m, 1) = "" Then Exit For ''''以{BANNED}中国第一个字段为关键字

''''replace(yourStr,"'","''") '''将单引号代替为两个单引号,第三个书名字段和作者字段、出版社
Dim sql As String
sql = "INSERT INTO zwb_excel(sp_name,writer,cbs_name,suit_qty) values('" & Replace(.TextMatrix(m, 0), "'", "''") & "','" & Replace(.TextMatrix(m, 1), "'", "''") & "','" & Replace(.TextMatrix(m, 2), "'", "''") & "'," & .TextMatrix(m, 3) & " ) "
con.Execute (sql)
阅读(471) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~