VB的grid控件 VB的grid控件 VB的grid控件

我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写其实也可以这样,在access数据库里的数据表,插入到oracle数... 我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写
其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,不过,前提是不能把之前的数据给覆盖
我不要弄成数据表同步,因为我通过脚本每次执行插入access的数据表就清空。 强调 是要用脚本实现的~~~
展开
 我来答
源魔云10
2010-11-27 · TA获得超过1829个赞
知道小有建树答主
回答量:706
采纳率:0%
帮助的人:265万
展开全部
行啊:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Public Function ADODBJet(Optional DBfile As String, _
Optional pwd As String) As ADODB.Connection
On Error Resume Next
Dim defDB As String '数据库文件请自行设置
defDB = App.Path & "\Bond.mdb"
If DBfile = "" Then DBfile = defDB
Set ADODBJet = New ADODB.Connection
ADODBJet.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;User ID=Admin; " & _
"Jet OLEDB:Database Password=" & pwd & "; Data Source=" & DBfile
If ADODBJet.State <> 1 Then Set ADODBJet = Nothing
End Function

Private Sub Form_Load()
Set cn = ADODBJet
If cn.State = 1 Then
rs.Open "Select * From Member2", cn, 1, 2
Set VG1.DataSource = rs
End If
With VG1
.Editable = flexEDKbdMouse '可用键盘和鼠标编辑
.AllowUserResizing = flexResizeBothUniform '可用鼠标调整单元大小, 如果值为“flexResizeBoth”则单独调整行高或列宽
.ScrollTrack = True '行随滚动条翻滚
.WordWrap = True '单元中的文本过长换行显示
.AddItem "" '添加一行为了新增内容
End With
End Sub
从不问问题
2010-11-26 · 超过25用户采纳过TA的回答
知道答主
回答量:55
采纳率:0%
帮助的人:0
展开全部
access可以建立外部数据源,直接建立跟oracle的链接就可以
然后将你要操作的表添加进access中,建立本地数据集合
注意一定要给access建立的数据源赋予写oracle的权限
这样你的access数据表数据就会跟oracle中的保持一致了
access数据表数插入新数据,oracle就会更新

非要用程序写,可以写个VBA,将access数据读出,完了将Inser语句自己拼写好后写到本地.sql文件,写一个bat文件,该bat文件是调用oracle的sql plus,执行你生成的这个.sql文件就可以个。
直接写sql句,不现实,不同的数据源不可能,一个是文件型的,一个是关系型的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式