CONOCIENDO VB6 al igual SQLPLUS Oracle 9i
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]
Gracias... a quien me poye
[email protected]
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
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
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;"
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;"