excel表数据导入SQL，帮忙找错，谢~！

loadhigh

那编程的时候就需要两个rst,分别对两个rst加入代码插入记录.

loadhigh

以下是引用HermesZ在2003-12-27 20:15:00的发言： 其实我的是同时导入两个表里面，表头icstockbill和表体icstockbillentry。其中表头里面需要导入的是时间FDate，单据内码FInterID,入库房FDCStockID，入库单号FBillNO,操作人FBillID 表体里面主要导入的是物料内码FItemID,金额FAmount，单据内码FInterID 其中他们之间的关系是icstockbill_FInterID = icstockbillentry_FInterID. 数据虽说是在一张表里面，另外的是自己定义加进去的。

你可以将需要修改的两表的字段组合成一个view,你可以通过rst打开这个view,然后对这个view插入和修改数据.这样就可同时对两个表操作了.

loadhigh

你的意思是否是要将a列和f列的内容录入表icstockbillentry中? 如果是要这样代码不必这么麻烦?使用一个do...loop就可以了.

loadhigh

用数组的方式不可取,太复杂了. 你可以指出你需要将sheet1中的那些列的内容复制入数据库的表中? 我帮你修改代码.

loadhigh

这个就ok啦. 就是说: FDCStockID,FBillNO,FBillID的默认值就是16394,而FEntry就是行号:1,2,3....n , FItemID FAmount 就是sheet1里a和f列的内容是吗?

loadhigh

'我假定输入表cstockbillentry(不过请检查是否将如下字段加入其中！),需要定义一个ado的recordset对象,如下代码就是录入数据的，可以加入“确定”按钮的代码中。 dim rst as new adodb.recordset i=2 '从第2行开始检索数据 rst.open "icstockbillentry" cnZW, adOpenKeyset, adLockOptimistic do sFItemID=sheets(sSheetName).cells(i,1) sFAmount=sheets(sSheetName).cells(i,4) with rst .addnew .fields("FItemID")=sFItemID .fields("FAmoun")=FAmount .fileds("FDCStockID")=16394 'FBillNO,FBillID也是这样代码 .fields("FEntry") = i-1 .update end with i=i+1 '转向下一行 loop until sheets(sSheetName).cells(i,1)="" '直到空行就停止插入数据操作

loadhigh

另需要加入关闭rst和cn的代码。 rst.close cnZW.close

loadhigh

以下是引用HermesZ在2003-12-27 20:09:00的发言： 版主你好，我做的那个收入库房不是一个确定的值，入库单号也都是自己填上去的，只有操作人的值为16394。我在sheet2里面那样定义前面的两个字段可不可以？我不想在宏里面这样定义，因为每月都要用到的。而且这两组数不为一的。可以做到吗？ 表里面还有一些为0或1但不能为空的字段。我是不是也要像.fileds("FBillID")=16394 这样定义？

那你可以定义一个变量取代16394的位置,并用这个变量向表传递数据参数.其他的也可以如法炮制.而且你也可以将变量和单元格挂钩,让用户输入在单元格内. 如果是操作日期这种数据,你可以这样 .fields([日期变量])=date+time 这样就可以将系统日期存入表内.

loadhigh

你的form里没有textbox3,而只有textbox4,你需要将所有textbox3改成textbox4. 至于语法问题，你运行后的结果是否正确，只有你知道。 程序有种测试方法叫“黑盒测试”，就是看程序运行的结果是否正确，如果不正确就证明程序有问题。

loadhigh

这些天挺忙的，无暇顾及了。今天晚上就你的问题在仔细看看。