VB的grid控件 VB的grid控件 VB的grid控件我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 12:32:01
![VB的grid控件 VB的grid控件 VB的grid控件我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,](/uploads/image/z/13049023-31-3.jpg?t=VB%E7%9A%84grid%E6%8E%A7%E4%BB%B6+VB%E7%9A%84grid%E6%8E%A7%E4%BB%B6+VB%E7%9A%84grid%E6%8E%A7%E4%BB%B6%E6%88%91%E6%83%B3%E6%8A%8Agrid%E6%8E%A7%E4%BB%B6%E9%87%8C%E9%9D%A2%E7%9A%84%E6%95%B0%E6%8D%AE%EF%BC%88access%EF%BC%89%E6%8F%92%E5%85%A5%E5%88%B0%E5%8F%A6%E5%A4%96%E4%B8%80%E4%B8%AA%E6%95%B0%E6%8D%AE%E5%BA%93%28oracle%29%E9%87%8C%2C%E7%94%A8SQL%E8%AF%AD%E5%8F%A5%E6%80%8E%E4%B9%88%E5%86%99%E5%85%B6%E5%AE%9E%E4%B9%9F%E5%8F%AF%E4%BB%A5%E8%BF%99%E6%A0%B7%2C%E5%9C%A8access%E6%95%B0%E6%8D%AE%E5%BA%93%E9%87%8C%E7%9A%84%E6%95%B0%E6%8D%AE%E8%A1%A8%2C%E6%8F%92%E5%85%A5%E5%88%B0oracle%E6%95%B0%E6%8D%AE%E5%BA%93%E7%9A%84%E6%95%B0%E6%8D%AE%E8%A1%A8%2C)
VB的grid控件 VB的grid控件 VB的grid控件我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,
VB的grid控件 VB的grid控件 VB的grid控件
我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写
其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,不过,前提是不能把之前的数据给覆盖
我不要弄成数据表同步,因为我通过脚本每次执行插入access的数据表就清空.强调 是要用脚本实现的~
VB的grid控件 VB的grid控件 VB的grid控件我想把grid控件里面的数据(access)插入到另外一个数据库(oracle)里,用SQL语句怎么写其实也可以这样,在access数据库里的数据表,插入到oracle数据库的数据表,
行啊:
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