Question

vb中将一个数据库的内容导入到另一个数据库的问题，求大神帮助！！！

做了一个vb界面，有个列表框，列表框导入了数据表中字段为“知识点“的部分内容，想把与字段“知识点”对应的字段“知识点编号”中的内容导入到另一个数据表中，如何实现，求代码！

Answer 1

是什么数据库？如果是SQL的且两个数据库在同一台电脑就很简单，你的连接字符串不指名具体的数据库，在执行命令里写包括完整数据库名称和表名就可以了

追问

我的数据库是access，不是两个数据库，是同一个数据库，两个表

先行知识点里的每一条，对应这表一中的字段“知识点”，但是我想获取的是它的对应的字段编号“知识点ID”，并将它存在同一数据库下的另一个表二中，另一个表的字段都是确定的。并且当上面列表框里的内容改变时，能够继续把相应编号存入数据表二，我不太会写代码，，求帮写一段vb代码

追答

你的vb是6.0的还是vb.net?

追问

vb6.0

追答

把你的Access贴出来，我作完整的程序给你

追问

我的access数据表挺长的。。。咋能给你看呢？要不我加你QQ吧，如果你不介意的话。我把我做的东西都发给你，你帮我看看。。我是新手水平实在很菜。特别需要大神的帮助呀

大神你咋也不回了呀。。我把我的QQ私信给你了。。。拜托帮忙呀

追答

我在私信里回复你了啊，既然不原意把你的工程发给我，下面给你通用的解决方法

（默然你自己知道SQL语句),置提供SQL操作方法

'1,建立工程的时候建立数据工程（省得手动引用),下面是模块化的函数及调用方法

Private Function DataUpdate(str_cmd As String) As Boolean '数据库更新操作函数
  On Error GoTo Err
  Dim str_cn As String
  Dim cn As New ADODB.Connection   '定义连接
  str_cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\TEST.mdb;Persist Security Info=False"
  '注意------把数据库表设置为实际的路径
  cn.ConnectionString = str_cn
  cn.Open
  Dim rs As New ADODB.Recordset
  rs.Open str_cmd, cn, adOpenStatic, adLockOptimistic
  DataUpdate = True
  Exit Function
Err:
  MsgBox Err.Description
  DataUpdate = False
End Function
Private Sub Command1_Click() '调用举例
 Dim str As String
 str = "insert into test (Int_No,Test_Str) values (1,'my test')" '这里是要执行的SQL语句命令
MsgBox DataUpdate(str)
End Sub