急啊！！如何读取一个数据库的字段，并生成一个数列，写入到另外一个表中的一个字段？ - 编程论坛

#2

xzlxzlxzl2014-05-03 09:16

就是指用某个表中内容作为字段名，生成另一个表？

#3

tlliqi2014-05-03 09:28

行变列？

#4

cncnok2014-05-03 09:42

回复 3 楼 tlliqi

提取A表中的字段 news_id,
1
2
3
....
10

将读取的内容生成为 1|2|3|...|10 这种样式, 并将这个内容写入到 B 表中的 ccid.
拜托了

#5

xzlxzlxzl2014-05-03 10:37

<%
    set conn=server.CreateObject("adodb.connection")
    conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\db\db.mdb")
    conn.open()
    rs1.open "select * from a",conn,3,3
    sql="create table b(ccid integer primary key,"   '创建b表并且设置ccid为主键
    while not rs1.eof
      sql=sql & rs1("news_id") & " text(100),"       '读取news_id记录作为b表字段，全部按文本处理
      rs1.movenext
    wend
    sql=left(sql,len(sql)-1) & ")"                   '去掉最后一个逗号
    rs1.close
    conn.execute sql                                 '执行sql语句创建b表
    conn.close
%>

#6

cncnok2014-05-04 13:40

怎么没有人帮我呢

#7

xzlxzlxzl2014-05-04 22:30

现在才看清你的要求，太简单了
<%
    set conn=server.CreateObject("adodb.connection")
    conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\db\db.mdb")
    conn.open()
    rs1.open "select * from a order by id",conn,3,3
    a=""
    while not rs1.eof
      a=a & rs1("news_id") & "|"
      rs1.movenext
    wend
    rs1.close
    a=left(a,len(a)-1) & ")"                   '去掉最后一个|号
    rs1.open "select * from b",conn,3,3
    rs1.addnew
    rs1("ccid")=a
    rs1.updata
    rs1.close
    conn.close
%>

#8

cncnok2014-05-04 22:49

以下是引用xzlxzlxzl在2014-5-4 22:30:16的发言：

现在才看清你的要求，太简单了
<%
    set conn=server.CreateObject("adodb.connection")
    conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\db\db.mdb")
    conn.open()
    rs1.open "select * from a order by id",conn,3,3
    a=""
    while not rs1.eof
      a=a & rs1("news_id") & "|"
      rs1.movenext
    wend
    rs1.close
    a=left(a,len(a)-1) & ")"                   '去掉最后一个|号
    rs1.open "select * from b",conn,3,3
    rs1.addnew
    rs1("ccid")=a
    rs1.updata
    rs1.close
    conn.close
%>

叩谢！！叩谢！

#9

chiron09212014-05-06 18:27

呵呵，原来如此