想用VB连ACCESS 做个简单的出入库管理系统 求教一个小问题

Question

比如 现在我在RKD.FRM窗体里简单的做了一个入库单，内容有：
            入库编号（text1）    商品名称（text2）    商品种类（text3）    入库时间（text4）
            确定入库（按钮）
对应在D:\a.mdb 建立了一个ACCESS  里面字段有：
            入库编号（主键）   商品名称    商品种类    入库时间    （数据类型都为文本）
   
 请问“确定入库”控件里面 应该怎么写 才能把窗体中的内容录入到ACCESS中啊
    

Answer 1

Private Sub Form_Load()
   dim Conn As ADODB.Connection
   dim Rs As ADODB.Recordset
   dim sql As String
   dim Connstr  As String
   Set Conn = New ADODB.Connection
   Set Rs = New ADODB.Recordset
   Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb ;Persist Security Info=False;"
   Conn.Open Connstr 
End Sub
Private Sub Command1_Click()
   With Rs
      .Open "select *  from 表名", Conn, 1, 3
      .Fields("入库编号") = Text1.Text
      .Fields("商品名称") = Text2.Text
      .Fields("商品种类") = Text3.Text
      .Fields("入库时间") = Text4.Text
      .Update
   End With
End Sub

Answer 2

  With Rs 
      .Open "select *  from 表名", Conn, 1, 3 
'增加一句:
      .AddNew       .Fields("入库编号") = Text1.Text 
      .Fields("商品名称") = Text2.Text 
      .Fields("商品种类") = Text3.Text 
      .Fields("入库时间") = Text4.Text 
      .Update 
  End With 

Answer 3

'引用ADO 2.×
Private Sub Form_Load() 
  dim Conn As ADODB.Connection 
  dim Rs As ADODB.Recordset 
  dim sql As String 
  dim Connstr  As String 
  Set Conn = New ADODB.Connection 
  Set Rs = New ADODB.Recordset 
  Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb ;Persist Security Info=False;" 
  Conn.Open Connstr 
End Sub 
Private Sub Command1_Click() 
  With Rs 
      .Open "select *  from 表名", Conn, 1, 3
      .AddNew 
      .Fields("入库编号") = Text1.Text 
      .Fields("商品名称") = Text2.Text 
      .Fields("商品种类") = Text3.Text 
      .Fields("入库时间") = Text4.Text 
      .Update 
  End With 
End Sub 

Answer 4

1、设计一个数据库表，包含：入库编号、商品名称、商品种类、入库时间
2、使用ADO对象来操作数据库，具体的函数请参考：http://download.csdn.net/source/1498324
3、构建插入语句，具体方法请参考：http://download.csdn.net/source/1644211

Answer 5

改动一下，下面这2句应放在过程外,为模块级变量
  dim Conn As ADODB.Connection 
  dim Rs As ADODB.Recordset 
Private Sub Form_Load()
......

Answer 6

With Rs.Open "select *  from 表名", Conn, 1, 3  当中
        Conn, 1, 3是什么意思啊？

Answer 7

还有问一下 ACCESS表中 不设主键行吗？   因为“入库编号” 可能会有重复的

Answer 8

ACCESS表中可以设置一个字段为“自动编号”

Answer 9

建议看一下ADO的手册中的说明。
学会自己查帮助。 语法上你可以看出 conn, 1, 3 都对应哪些参数。Open 方法 (ADO Recordset)
打开游标。语法
recordset.Open Source, ActiveConnection, CursorType, LockType, Options
参数
Source 
可选。Variant，计算有效的 Command 对象、SQL 语句、表名、存储过程调用、URL 或包含持久存储 Recordset 的文件名或 Stream 对象。 
ActiveConnection 
可选。Variant，计算有效的 Connection 对象变量名，或包含 ConnectionString 参数的 String。 
CursorType 
可选。CursorTypeEnum 值，确定在打开 Recordset 时提供者应使用的游标类型。默认值为 adOpenForwardOnly。 
LockType 
可选。LockTypeEnum 值，确定在打开 Recordset 时提供者应使用的锁定（并发）类型。默认值为 adLockReadOnly。 
Options 
可选。Long 值，指示提供者计算 Source 参数的方式（如果该参数表示除 Command 对象之外的某些内容），或者指示 Recordset 应该从以前保存过的文件中恢复。可以是一个或多个 CommandTypeEnum 或 ExecuteOptionEnum 值，这些值可以用位 AND 操作符组合。 指示 Recordset 对象中所用游标的类型。常量 值 说明 
adOpenDynamic 2 使用动态游标。其他用户所做的添加、更改或删除均可见，而且允许 Recordset 中的所有移动类型（如果提供者不支持书签，则书签除外）。 
adOpenForwardOnly 0 默认值。使用仅向前游标。除了在记录中只能向前滚动外，与静态游标相同。当只需要在 Recordset 中进行一个传递时，用它可提高性能。 
adOpenKeyset 1 使用键集游标。尽管从您的 Recordset 不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，它和动态游标相似。其他用户所做的数据更改依然可见。 
adOpenStatic 3 使用静态游标。一组记录的静态副本，可用于查找数据或生成报告。其他用户所做的添加、更改或删除不可见。 
adOpenUnspecified -1 不指定游标类型。 LockTypeEnum
指定在编辑过程中记录上的锁定类型。常量 值 说明 
adLockBatchOptimistic 4 指示开放式批更新。需要批更新模式。 
adLockOptimistic 3 指示逐个记录开放式锁定。提供者使用开放式锁定，仅在调用 Update 方法时锁定记录。 
adLockPessimistic 2 指示逐个记录保守式锁定。提供者要确保记录编辑成功，通常在编辑之后立即在数据源锁定记录。 
adLockReadOnly 1 指示只读记录。无法改变数据。 
adLockUnspecified -1 未指定锁定类型。创建副本时，副本与源对象使用相同的锁定类型。 

Answer 10

花10分钟，阅读一下 数据库设计的基础，下面是微软提供的一个简单的介绍。数据库设计基础
http://office.microsoft.com/zh-cn/access/HA012242472052.aspx

关于设计数据库
http://office.microsoft.com/zh-cn/access/HP051891362052.aspx

Answer 11

其中的
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb ;Persist Security Info=False;"   这句
  Source=a.mdb  算是指定了我的数据路路径？    这样指定就行了？ 

Answer 12

还有 Persist Security Info=False  怎么理解？

Answer 13

Persist Security Info为True时，好比windows身份验证,采用集成安全机制；
为False时,好比SqlServer身份验证,不采用集成安全机制；

Answer 14

为什么我的有错误 .Open "select *  from 表名", Conn, 1, 3   这行出错（已经改正确表名。）