|
#2
ysf01812013-12-09 13:44
|
卡号 姓名 身份证
0025689 张三;王五 440155199206304215
0025690 李四 440155199206304356
现在想要当遇到姓名有分号分隔的，分开两条数据分别写入数据库，应该怎样写呢？
程序代码： '获取第一个sheet的名称
Set rsb=conn2.OpenSchema(20)
TableName = rsb("Table_name")
rsb.Close
sql = "SELECT * FROM [" & TableName & "]" '要导入的Excel数据里面的表的名称，后面一定要加$
set rs = conn2.execute(sql)
i=0
j=0
while not rs.eof
mwBirthday="10-01"
mwPhones="13265981036"
for k=0 to ubound(mwNames)
sqln = "insert into mwVip([mwVtype],[mwCard],[mwName],[mwNum],[mwRhfs],[mwRhtime],[mwFk],[mwJh],[mwNc],[mwPhone],[mwWy],[mwAddress],[mwSyjf],[mwBirthday],[mwRoom],[mwHandle]) values('"&fixsql(mwVtype)&"','"& fixsql(rs(1)) &"','"& mwNames(0) &"','"& mwNums(0) &"','1','"& fixsql(rs(4)) &"','"& mwFk &"','"& mwJh &"','"& fixsql(rs(7)) &"','"& fixsql(rs(8)) &"','"& mwPhones &"','"& fixsql(rs(10)) &"','"& fixsql(rs(12)) &"','"& fixsql(mwBirthday) &"','"& fixsql(rs(11)) &"','"& fixsql(mwHandle) &"')"
response.Write sqln&"<br/>"
next
rs.movenext
wend
Set rsb=conn2.OpenSchema(20)
TableName = rsb("Table_name")
rsb.Close
sql = "SELECT * FROM [" & TableName & "]" '要导入的Excel数据里面的表的名称，后面一定要加$
set rs = conn2.execute(sql)
i=0
j=0
while not rs.eof
mwBirthday="10-01"
mwPhones="13265981036"
for k=0 to ubound(mwNames)
sqln = "insert into mwVip([mwVtype],[mwCard],[mwName],[mwNum],[mwRhfs],[mwRhtime],[mwFk],[mwJh],[mwNc],[mwPhone],[mwWy],[mwAddress],[mwSyjf],[mwBirthday],[mwRoom],[mwHandle]) values('"&fixsql(mwVtype)&"','"& fixsql(rs(1)) &"','"& mwNames(0) &"','"& mwNums(0) &"','1','"& fixsql(rs(4)) &"','"& mwFk &"','"& mwJh &"','"& fixsql(rs(7)) &"','"& fixsql(rs(8)) &"','"& mwPhones &"','"& fixsql(rs(10)) &"','"& fixsql(rs(12)) &"','"& fixsql(mwBirthday) &"','"& fixsql(rs(11)) &"','"& fixsql(mwHandle) &"')"
response.Write sqln&"<br/>"
next
rs.movenext
wend
上面是循环写入的代码，输出sqln后发现会出现一个名字重复循环多次的问题