DOBLE CONSULTA MYSQL

A veces necesiatamos realizar una doble consulta en Mysql, para esto simplemente realizamos la primera separamos con un punto y coma (;) la seguna, pero en VBA Excel no podemos guardarla en una solo variable tenemos que guardar las consultas por separado en variable sindependientes.
El siguiente ejemplo simula la accion bancaria de solicitar una consulta de saldo de acuerdo al numero de cuenta, aqui se realiza una consulta de actualización (update) y otra de selección de datos(Select).

Private Sub Consulta_Click()

Dim conexion As New ADODB.Connection

'lo mismo para el nombre del servidor, base de datos, usuario y la consulta sql

Dim miservidor, bd, user, sql, consulta As String

'el Recordset

Dim rs As ADODB.Recordset

'Estableciendo la conexión

miservidor = "127.0.0.1"

bd = "control"

user = "root"

Set conexion = New ADODB.Connection 'con esto utilizamos la conexión indicada más arriba

conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _

& ";SERVER=" & miservidor _

& ";DATABASE=" & bd _

& ";UID=" & user _

& ";OPTION=16427?"

' Se crea un objeto rs a partir de la clase RecordSet que permite transferir los datos entre Mysql y Excel 

Set rs = New ADODB.Recordset

'Consulta que actualiza el saldo del cliente descontando 1000 pesos cada vez que realice esta operación

Consulta = “UPDATE clientes set saldo = saldo – 1000 where No_cuenta =’”& TextBox1.Text & “’”

'Ejecutamos la consulta para que se actualice en Mysql

conexion.Execute Consulta

'La segunda consulta muestra en Excel los datos solicitados

sql = "SELECT No_Cuenta, fecha, hora, saldo from clientes " & _

                  "WHERE No_Cuenta = '" & TextBox1.Text & "'"

  

   rs.Open  sql, conexion

With Worksheets(1).Cells

.ClearContents

.CopyFromRecordset rs

End With

'Cerramos la conexión

On Error Resume Next

rs.Close

Set rs = Nothing

conexion.Close

Set conexion = Nothing

On Error GoTo 0

End Sub

Colocar fecha y hora actual en una tabla MySql

mysql> CREATE TABLE tabla_ejemplo ( 

    -> id varchar (12),
    -> descripcion VARCHAR(30),
    -> fecha TIMESTAMP DEFAULT NOW());
Query OK, 0 rows affected (0.03 sec)