vb6如何读oracle

vb6.0 连接oracle 数据库

'Ctrl+t找Microsoft DataGrid Control....

'菜单"工程"-"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim SqlStr As String

SqlStr = "Select * From 某个表"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Set DataGrid1.DataSource = rst '给DataGrid修改数据源

在VB6.0中如何连接Oracle数据库表,请教大牛们了

老问题了,随便上网就找得到,

以下供参考,转自ccid.

Option Explicit

'以下是一些变量以及参数的定义

'DB的名称

Public Const strdbname = "DBNAME"

'用户名

'密码

Public Const strpwd = "PASSWORD"

'OraSession

Public OraSession As Object

'OraDatabase

Public OraDB As OraDatabase

'OraDynaset

Public OraDyn As OraDynaset

'连接ORACLE的函数

'连接成功:true 连接失败:false

Public Function f_connect() As Boolean

On Error GoTo ierr

f_connect = False

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

Set OraDB = OraSession.OpenDatabase(strdbname, strusr "/" strpwd, 0)

f_connect = True

Exit Function

ierr:

MsgBox Err.Description, vbOKOnly + vbCritical, "Error"

End Function

'通过传入SQL语句从数据库的表里取得记录

Public Function f_select(strsql As String) As OraDynaset

Set OraDyn = OraDB.CreateDynaset(strsql, ORADYN_READONLY)

Set f_select = OraDyn

Set f_select = Nothing

'执行更新语句,返回受本次更新影响的记录数

Public Function f_execute(strsql As String) As Boolean

f_execute = False

OraDB.BeginTrans

f_execute = OraDB.ExecuteSQL(strsql)

OraDB.Rollback

'断开连接

'断开成功:true 断开失败:false

Public Function f_disconnect() As Boolean

f_disconnect = False

If Not OraDyn Is Nothing Then

OraDyn.Close

End If

Set OraSession = Nothing

OraDB.Close

Set OraDB = Nothing

f_disconnect = True

将以上代码放入模块,直接调用即可.

win8专业版64位安装vb6.0连接oracle10g数据库的问题

VB6 怎么连接 Oracle10g 64位?

执行C:\Program Files里的vb,这样调试的时候能连接oracle.

oracle的CLOB字段,怎么用VB6来读写

Public rn As ADODB.Connection

Public Function CreateDataSource(DataSource As String, UserID As String, Password As String) As Boolean

On Error GoTo DbConErr:

Set rn = New ADODB.Connection

With rn

.Open

End With

CreateDataSource = True

DbConErr:

CreateDataSource = False

Dim fnum As Integer, bytesleft As Long, bytes As Long

Dim tmp() As Byte

If (fld.Attributes And adFldLong) = 0 Then

Err.Raise 1001, , "field doesn't support the GetChunk method."

If Dir$(filename) "" Then Kill filename

fnum = FreeFile

Open filename For Binary As fnum

bytesleft = fld.ActualSize

Do While bytesleft

bytes = bytesleft

If bytes ChunkSize Then bytes = ChunkSize

tmp = fld.GetChunk(bytes)

Put #fnum, , tmp

bytesleft = bytesleft - bytes

Loop

Close #fnum

End Sub

bytesleft = LOF(fnum)

ReDim tmp(1 To bytes) As Byte

Get fnum, , tmp

fld.AppendChunk tmp

Private Sub cmdread_Click()

Dim rs As New ADODB.Recordset

rs.ActiveConnection = rn

rs.LockType = adLockOptimistic

rs.CursorLocation = adUseClient

rs.Source = "select * from t_demo"

rs.Open

comDlgDir.DialogTitle = "保存文件"

comDlgDir.Filter = "*.*"

comDlgDir.ShowSave

Call BlobToFile(rs.Fields("text"), comDlgDir.filename)

Set rs = Nothing

Exit Sub

Private Sub cmdsave_Click()

rs.AddNew

comDlgDir.DialogTitle = "选取文件"

comDlgDir.ShowOpen

rs.Fields("id").Value = 1

If comDlgDir.filename "" Then

Call FileToBlob(rs.Fields("text"), comDlgDir.filename)

rs.Update

Private Sub Form_Load()

If Not CreateDataSource("DEV", "TEST", "TEST") Then

MsgBox "Connection failure!"

请教vb如何连接oracle数据库

①.）建立数据工程,在窗体添加Adodc数据访问控件.鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成.