20/05/2004, 13:43
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 1 mes Puntos: 2 | |
| hola este codigo manda la patente a una bd mysql conectada ,fijate que es local si es remota tienes que cambiar la ip
y ademas a la bd que conectas
dentro de un boton por ejemplo
Dim db As New Connection
Dim rs As New Recordset
db.Open "Provider=MSDASQL.1;Connect Timeout=15;Extended Properties='DSN=localhost;DATABASE=autos;SERVER=12 7.0.0.1;UID=root;PWD=;PORT=3306;OPTION=0;STMT=;';L ocale Identifier=2058"
rs.Open "autos", db, adOpenKeyset, adLockOptimistic, adCmdTable
rs.AddNew
rs!patente = Text1(10).Text
rs.Update
rs.Close
saludos |