Question

VB中将查询记录自动保存到数据库中

做了一个管理系统，其中一个功能是，将Listbox中的查询记录自动保存到事先设定好的数据库中，代码该怎么写呢？请高手赐教！

Answer 1

假设是本地数据库，简单的方法是采用　Data　控件：
Data1.DatabaseName = "数据库文件标识符" '连接数据库文件，带磁盘路径
Data1.RecordSource = "数据表名"　　　　　　'连接数据表　　　　　
Data1.Refresh　　　　　　　　　　　　　　　'刷新记录集
Data1.Recordset.AddNew　　　　　 '在记录集末尾添加一条空记录
Data1.Recordset.Fields("字段名1") = XXX1　　　'将字段值添加（替换）到空记录
Data1.Recordset.Fields("字段名1") = XXX2　　　'将字段值添加（替换）到空记录
Data1.Recordset.Update '必要的更新操作
其中：XXX1和XXX2可以是与相关字段的数据类型一致的任意表达式．