| 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 |