La interfaz de VBA se combina con el backend de SQL para realizar la adición, eliminación y modificación de datos. Cómo implementarlo y cómo escribir el código de control. Como se muestra en la figura

Dim?conn?As?New?ADODB.Connection

connStr?=?"Driver={SQL?Server};DataBase=test;Server=(local);lt; a?href="/s?wd=UIDamp;tn=44039180_cpramp;fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLuhN-n1KBnjNBmWb3mhF-0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPs T6K1TL0 qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1DLrHR3rjR1rj0zn1bYrHRzPWT"?target="_blank"?class="baidu-highlight"gt;UIDlt;/agt;=sa lt;a?href="/s?wd=PWDamp;tn=44039180_cpramp;fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLuhN-n1KBnjNBmWb3mhF-0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sg vPs T6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1DLrHR3rjR1rj0zn1bYrHRzPWT"?target="_blank"?class="baidu-highlight"gt;PWDlt;/agt ;= 123"

conn.Open?connStr?'Conectar a la base de datos

Dim?rs?As?New?Recordset

sql?=?" select?*? from?a"?'Ver tabla a

rs.Open?sql,?conn,?3,?3

if?Not?rs.EOF?then

Para?iCols?=?0?A?rs.fields.Count?-?1

Hojas(1).Celdas(1,?iCols? ?1).Valor ?=?rs .fields(iCols).Nombre

Siguiente?iCols

Hojas(1).Celdas(2,?1).CopyFromRecordset?rs

endif