写在Access边上的边上，七

诸葛龙飞

这次，讲一讲，如何用VBA技术/代码把数据写入表。然后把之前的文章润色一下。
语言，基本上都是类似，也就是有着固定的写法。要遵循语言的写法，才能保证功能正常运作。下面就讲讲常用的写法。
1、ADODB，写入数据，换而言之就是往表里插入数据。这里只是说往access表里写数据。
    Dim rst As ADODB.Recordset
    Dim str As String
    Set rst = New ADODB.Recordset
‘实例化，也可以理解为 实装 让系统知道要安排一个实际的东西（这个东西就是 new adodb.recordset）。实装的意思有点类似，你搞了一套手机的设计图，但是仅仅是图纸，没有制造出来。当你制造出来了那就是实装了。
    str = "select * from BoxNumPrt"
’某个要写如数据的表
rst.ActiveConnection = CurrentProject.Connection
'这个是设置指向，就是指挥数据往哪里走。这里写了CurrentProject.Connection就是接引用当前的链接表/本地表
            rst.CursorType = adOpenKeyset
            rst.LockType = adLockOptimistic
            rst.Open str
    With rst
            .AddNew
            !BoxNum = A2
            !MaterialNo = A1
            !MaterialName = B2
            !SN = C1   
    End With
    rst.Update
2、使用insert语句插入数据。
insert是标准化的插入数据的方式，不管access也好还是SQL、MySQL、Oracle，都可以用。但是这里只说Access。Access插入数据，使用docmd.runsql 来完成。
dim str as string
str = "insert into BoxNumPrt (BoxNum,MaterialName,MaterialNo,SN) Values ('编码-" & n & "到" & k & " 共" & A1 & "','" & B2 & "','" & A2 & "',0)"
docmd.runsql str
掌握这两种写入技术，基本上就解决了数据新增保存的问题。尤其是第二种，Docmd.runsql，这个方法需要构建SQL语句。看例子中我也使用了 ”,  “ ’ ”, 这些符号。这些符号就是VBA规定处理对应数据类型的标识。比如姓名，王五，是要写name=‘王五’，而不是name=王五。多了两个‘。
所以我还是强调，学习数据库要建立数据分类的概念，一定要深深的刻在脑子里。