21/05/2004, 04:22
|
| | | Fecha de Ingreso: diciembre-2003
Mensajes: 59
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| GRACIAS pero ya lo he solucionado. Os lo enseño:
Dim conexion As ADODB.Connection
Set conexion = New ADODB.Connection
conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=nombre-servidor;" & "DATABASE=nombre_db;" & "UID=nombre-user;" & "PWD=password;" & "OPTION=16384"
conexion.CursorLocation = adUseClient
conexion.Open
'Creamos los stream y los recordset
Dim data As ADODB.Recordset
Set data = New ADODB.Recordset
Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeText
data.Open "SELECT * FROM am_clientes", conexion
nombre.Caption = data!nombre_cliente
data.Close
SALUDOS!!! |