烦劳赵刚老师看看向数据库写入不重复值材料编码 结贴谢谢赵刚老师

望江婷

你好赵刚老师，这是赐教的代码，请问赵老师能不能在写入数据库时，让材料自动编码呢，不使用数据库的自动编码功能呢，开始时从GA00001编号，以后每次增加从最大号码望上递增，谢谢
向数据库写入不重复值材料编码.rar (19.2 KB, 下载次数: 10)

2011-3-3 11:20 上传

点击文件名下载附件

[ 本帖最后由 望江婷 于 2011-3-3 16:12 编辑 ]

zhaogang1960

原帖由 望江婷 于 2011-3-3 11:20 发表
你好赵刚老师，这是赐教的代码，请问赵老师能不能在写入数据库时，让材料自动编码呢，不使用数据库的自动编码功能呢，开始时从GA00001编号，以后每次增加从最大号码望上递增，谢谢
881637

应该可以吧，在工作表中编好后和其他数据一起写入，可能要在工作表中多周转几次，下午再说吧

zhaogang1960

请测试
Sub bcf()
Start = Timer

    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim SQL$, SQL1$, f&, i&, arr()
    On Error Resume Next
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\atm.mdb"
    SQL1 = "select distinct 材料名称,型号规格,材料名称&型号规格 as 两列 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[入库单$n8:p" & Sheets("入库单").[o65536].End(xlUp).Row & "]"
    SQL = "select a.材料名称,a.型号规格 from (" & SQL1 & ") a left join (select 材料名称&型号规格 as 两列 from 材料编码表) b on a.两列=b.两列 where b.两列 is null"
    rs.Open SQL, cnn, 1, 3
    If rs.RecordCount Then
        Range("N8:P8").Copy [z1]
        [aa2].CopyFromRecordset rs
        SQL = "select val(right(材料编码,5)) as zd from 材料编码表 where 材料编码 is not null"
        rst.Open SQL, cnn, 1, 3
        If rst.RecordCount Then
            arr = rst.GetRows
            f = WorksheetFunction.Max(arr)
        End If
        ReDim arr(1 To rs.RecordCount, 0)
        For i = 1 To rs.RecordCount
            arr(i, 0) = "GA" & Format(f + i, "00000")
        Next
        [z2].Resize(i - 1) = arr
        SQL = "insert into 材料编码表 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[入库单$z1:ab" & Sheets("入库单").[z65536].End(xlUp).Row & "]"
        cnn.Execute SQL
        [z1].CurrentRegion.Clear
    End If
    rs.Close
    rst.Close
    cnn.Close
    Set rs = Nothing
    Set rst = Nothing
    Set cnn = Nothing
   
    MsgBox "更新完毕。用时 " & Timer - Start & " 秒"
End Sub

zhaogang1960

附件：
向数据库写入不重复值材料编码.rar (22.53 KB, 下载次数: 26)

2011-3-3 13:03 上传

点击文件名下载附件

望江婷

谢谢赵老师，刚回来，发现了一个问题，就是编码到了GA00015，再添加数据时，就写不进去了，怎么回事呢，烦劳赵老师再看看好吗？

zhaogang1960

原帖由 望江婷 于 2011-3-3 14:51 发表
谢谢赵老师，刚回来，发现了一个问题，就是编码到了GA00015，再添加数据时，就写不进去了，怎么回事呢，烦劳赵老师再看看好吗？

这个效果应该就是你要的，因为你没有添加新的纪录(数据库中都已经存在)，下面添加了4条新纪录：

zhaogang1960

附件
向数据库写入不重复值材料编码.rar (22.27 KB, 下载次数: 28)

2011-3-3 16:02 上传

点击文件名下载附件

望江婷

呵呵，谢谢赵老师，终于搞明白了，谢谢，该你添麻烦了

望江婷

赵老师的代码很精妙，昨天晚上研究了一晚上，请问rst.Open SQL, cnn, 1, 3这句中的，1，3怎么理解呢？希望能得到赵老的回赐教，谢谢

zhaogang1960

原帖由 望江婷 于 2011-3-4 10:03 发表
赵老师的代码很精妙，昨天晚上研究了一晚上，请问rst.Open SQL, cnn, 1, 3这句中的，1，3怎么理解呢？希望能得到赵老的回赐教，谢谢

完整写法: rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
第一个参数是游标类型
adOpenKeyset是键集游标
第二个参数是锁定类型
adLockOptimistic是开放式锁定
具体我也不知道，请参阅有关帮助信息吧