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

HermesZ · 发表于 2003-12-29 09:01

我的意思是把FItemID,FAmount,FInterID,FEntryID导入数据库表ICStockbillEntry. 把FDate,FInterID,FBillNO,FDCStockID,FBillerID,FTranType导入数据库表ICStockbill. 其中FDate取当前日期，FBillNO和FDCStockID是自定义变量，FBillerID为16394, FInterID和FEntryID是按数据库表顺序排列的，如果表里的最后一组数据为29，那导入的FInterID就为30,FEntry从1.2.3......排列!数据库里面的这两个表还有若干字段不可为空。现在做的总是提示 “ 多步OLE DE操作产生错误，如果可能，请检查每个OLE DE状态值，没有工作被完成。” 小弟不懂，请教`！

[此贴子已经被作者于2003-12-29 9:42:10编辑过]

HermesZ · 发表于 2003-12-29 13:19

今天偶尔导入进去了数据。不过出了很多问题，我把FInterID设错了。我觉得还是把这个字段和FBillNO和FDCStockID一样在外面定义方面些。可是导入的FAmount为什么是整数？改了一下，结果又进不去了。改回原状态也总出错~！郁闷！

HermesZ · 发表于 2003-12-29 15:30

Sub Createicstockbill(sSheetName As String) Dim cnZW As New ADODB.Connection Dim rst As New ADODB.Recordset, rst1 As New ADODB.Recordset Dim sFInterID As Integer Dim sFDate As Date Dim sBillNo As Integer, sFDCStockID As Integer Dim sFItemID As String, sFAmount As String Dim sFtranType As Integer cnZW.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=" + Range("B3") + ";Initial Catalog=" + Range("B2") + ";Data Source=" + Range("B1") On Error GoTo 0 Set rst = Nothing '开始事务 cnZW.BeginTrans i = 2 rst.Open "select * from icstockbillentry", cnZW, adOpenStatic, adLockOptimistic Do sFItemID = Sheets(sSheetName).Cells(i, 1) sFAmount = Sheets(sSheetName).Cells(i, 4) Sheets("参数").Select sFInterID = Range("B8") With rst .AddNew .Fields("FItemID") = sFItemID .Fields("FAmount") = sFAmount .Fields("FEntryID") = i - 1 .Fields("FInterID") = sFInterID .Fields("FBrNo") = 0 .Fields("FQtyMust") = 0 .Fields("FQty") = 0 .Fields("FPrice") = 0 .Fields("FUnitID") = 0 .Fields("FAuxPrice") = 0 .Fields("FQtyActual") = 0 .Fields("FPlanPrice") = 0 .Fields("FAuxQtyActual") = 0 .Fields("FAuxPlanPrice") = 0 .Fields("FSourceEntryID") = 0 .Fields("FCommitQty") = 0 .Fields("FAuxCommitQty") = 0 .Fields("FKFPeriod") = 0 .Fields("FDCSPID") = 0 .Fields("FOrgBillEntryID") = 0 .Fields("FOperID") = 0 .Update End With i = i + 1 Loop Until Sheets(sSheetName).Cells(i, 1) = "" rst.Close cnZW.CommitTrans rst.Open "select * from icstockbill", cnZW, adOpenStatic, adLockOptimistic Do Sheets("参数").Select sFDate = Range("B4") sFBillNo = Range("B5") sFDCStockID = Range("B6") sFtranType = Range("B7") sFInterID = Range("B8") With rst .AddNew .Fields("FInterID") = sFInterID .Fields("FDCStockID") = sFDCStockID .Fields("FDate") = Date .Fields("FtranType") = sFtranType .Fields("FBillNo") = sFBillNo .Fields("FBrNo") = 0 .Fields("FBillerID") = 16394 .Fields("FHookInterID") = 0 .Fields("FPosted") = 0 .Fields("FCheckSelect") = 0 .Fields("FROB") = 1 .Fields("FStatus") = 0 .Fields("FUpStockWhenSave") = 0 .Fields("FCostOBJID") = 0 .Fields("FCancellation") = 0 .Fields("FOrgBillInterID") = 0 .Fields("FBackFlushed") = 0 .Fields("FWBinterID") = 0 .Fields("FPurposeID") = 0 .Fields("FCPInStockInterID") = 0 .Fields("FPayBillID") = 0 .Fields("FRelationTranType") = 0 .Fields("FRelateInvoiceID") = 0 .Update End With Loop rst.Close cnZW1.CommitTrans MsgBox "已成功生成金额调整单!", vbOKOnly + vbInformation, "提示信息" err: Exit Sub ConnErr: MsgBox "数据源连接错误!" Exit Sub prgerr: MsgBox "用户操作失误,系统出错!" End Sub 运行时错误‘-2147217873 (80040e2f) 违反了PRIMARY KEY约束'PK_ICStockbillEntry'.不能在对象'ICStockbillEntry'中插入重复键。调试 .update显黄色请各位帮我看看啊。谢谢了~！

[此贴子已经被作者于2003-12-29 18:59:27编辑过]

HermesZ · 发表于 2003-12-29 20:50

FInterID是单据内码，一张表一个单据内码。就是说我导入的这张表的FInterID的值是一样的。这样我就可以在外部定义一个确定值，直接导入。把第二个do loop去掉可以吗？我没有用到i，所以就没有设置循环条件。还有就是sFItemID = Sheets(sSheetName).Cells(i, 1)中的cells是什么意思，里面的 i 和1又是什么意思？我明天去公司试试，非常感谢版主这么热心回答问题~~！

[此贴子已经被作者于2003-12-29 20:58:04编辑过]

HermesZ · 发表于 2003-12-29 20:52

对了，还有一个问题。你说用到两个rst，我定义了一个rst和rst1，可是我没有用到rst1.

HermesZ · 发表于 2003-12-30 09:51

"我设计的sql server表里通常将类似FInterID的键定义为自动的自增1，即只要插入一条记录，则改字段就会自动置为最大的行值，这样使用insert时是不需要考虑对该字段赋值的。" 这个想法非常棒，省去导表的时候还要看一下数据库了。那我应该如何在里面给FInterID定义呢？

[此贴子已经被作者于2003-12-30 9:59:48编辑过]

HermesZ · 发表于 2003-12-30 10:10

860.40导入数据库里面的值为860.39我不想在表里面改数据。在所做的东东里面设置能否做到数据一致？

HermesZ · 发表于 2003-12-30 11:19

Set rst = cnZW.Execute("select max(FInterID) from ICStockbillEntry") If rst.EOF Or IsNull(rst(0)) Then sFInterID = 1 Else sFInterID = rst(0) + 1 End If 如果就这样的代码。怎么放在哪里都出错啊？？

HermesZ · 发表于 2003-12-30 14:25

dBCIBJen.txt (2.7 KB, 下载次数: 15) 版主，我现在做的这个。我试过了可以用了。不过照你说的那样，我想把FInterID导进去的时候自动找到数据表里面最大值+1。导一张金额调整单FInterID是固定值的。我该如何在这里面设定FInterID？我现在用的这个是自己定义的sFInterID = Range("B8"). 导入Famount的时候，我在外面直接四舍五入了。导入的结果就正确了。

HermesZ · 发表于 2003-12-30 14:32

以下是引用loadhigh在2003-12-30 13:29:00的发言： 是那一行出错？

运行时，提示：对象打开时，不允许操作！放在另一个位置上面。提示：当前记录不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制。

		自动登录	找回密码
密码			免费注册