Question

可否给一个vb连接oracle数据库列子 实现增、删、改、查功能

Answer 1

Dim OraSession As Object '会话对象
Dim OraDatabase As Object '数据库对象
Dim OraDynaset As Object'动态集对象
Dim OraDatabase As Object’字段集对象
Set OraSession =CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.CreateDatabase

("Demo","scott/tiger",0&)'建立数据库连接
Set OraDynaset=OraDatabase.CreateDynaset("select*from

student",0&)'初始化动态集对象
’添加记录
'Begin an AddNew
OraDynaset.DbAddNew
OraDynaset.Fields("ID").value="1000"
’ID为列名
OraDynaset.DbUpdate'更新数据到表
’删除
OraDynaset.DbDelete
'修改
OraDynaset.DbEdit
OraDynaset.Fields("ID").value="101210"
OraDynaset.DbUpdate

追问

能否给一个简单的案例 包括 实现增删改查 功能 谢谢！

Answer 2

=@"Data Source=sys;Persist Security Info=True;User ID=system;Unicode=True;password=manager";