CONOCIENDO VB6 al igual SQLPLUS Oracle 9i

miguel-antonio
09 de Febrero del 2006
Alguien puede facilitarme trucos y conexiones de VB6 recien estoy aprendiendo a menjar programacion pero si tengo mucho conocimiento en sqlplus Oracle 9i
Gracias... a quien me poye
[email protected]

axelopez
09 de Febrero del 2006
primero en tus referencias del proyecto agrega
microsoft activex data objects 2.x library

Aqui te va un ejemplo de como hacer una conexion y una consulta en un listbox.

Dim Cndb As ADODB.Connection
Dim Query As String
Dim Data As New ADODB.Recordset
Dim conexion As String

Private Sub Command1_Click()

Do Until Data.EOF
List1.AddItem Data("cli_nombre")
Data.MoveNext
Loop
End Sub

Private Sub Form_Load()
conexion = "PROVIDER=MSDASQL;dsn=myalmacen;uid=root;pwd=root;database=almacen;"
Conectar conexion
Query = "select * from alm_clientes ORDER BY cli_nombre"
Data.Open Query, Cndb, adOpenDynamic, adLockOptimistic
End Sub

Sub Conectar(conexion As String)

On Error GoTo ERROR_AS
Set Cndb = New ADODB.Connection

With Cndb
'.CursorLocation = adUseServer
.CursorLocation = adUseClient
End With

Cndb.Open conexion

Conectado = True

Exit Sub

ERROR_AS:

Dberror = Err.Description
Conectado = False
End Sub







axelopez
09 de Febrero del 2006
Olivide algo

http://www.connectionstrings.com/

aqui te describen como conectarte a cualquier base de datos

busca en odbc

por ejemplo para oracle

"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"

axelopez
09 de Febrero del 2006
por si te ayuda, solo crea en el formulario un list y un boton.

con el objeto cndb puedes ejecutar instrucciones de sql

cndb.execute "insert into tabla values (1))"
cndb.execute "udpate x set y = 1 where z = 3"
cndb.execute "delete borrame where cual=1"