VB tiene una base de datos con dos tablas, AA y BB. Quiero copiar todos los registros de la tabla AA a la tabla BB.

Copie el siguiente código en su vb y opere la base de datos de acceso en un módulo.

'Uso: 1. Llame a la función SetConnStr para generar la cadena de conexión. 2. Abra la conexión de la base de datos, 3. Ejecute la función ExecuteSQL para devolver el conjunto de resultados.

'========================, debe hacer referencia a la biblioteca ADO2.5 para ejecutar======= = ==================

'Módulo de programación de bases de datos VB, demuestra cómo usar el lenguaje de consulta ADO y SQL para conectarse a la base de datos Access.

'Consulta ADO genial, puedes arrastrar el agujero de ADO al formulario y luego eliminarlo

'============== = ================================================== = =============

Función pública SetConnStr(ByVal DbName As String) As String

'Generar cadena de conexión de base de datos, el parámetro es el nombre de la base de datos (Ruta completa)

SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0.0"

'Crear una cadena de conexión a la base de datos. OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"

Función final

Función pública ExecuteSQL(ByVal Sql como cadena, ByVal ConnString como cadena) Como ADODB.Recordset

'En caso de error, reanudar a continuación'Se producirá un error al insertar en la base de datos y todos los datos están vacíos, así que agregue esta oración

'Ejecute la instrucción SQL dada con un tipo de retorno de Recordset

Dim Mycon As ADODB.Connection

Dim Rst As ADODB.Recordset

Set Mycon = New ADODB.Connection

Mycon.ConnectionString = ConnString

Mycon.ConnectionString = ConnString.

Abrir

Dim Stokens() As String

'Ir a ExectueSql_Error cuando ocurre un error

Stokens = Split(Sql)

Si InStr( "INSERT,DELETE,UPDATE", UCase(Stokes(0)))Entonces

Mycon.Execute Sql

Else

Establecer primero = Nuevo ADODB .Recordset

Rst.Open Trim (Sql)Open Trim (Sql), Mycon, adOpenKeyset, adLockOptimistic

Establecer ExecuteSQL = Rst

Finalizar si

ExectueSql_Exit:

Establecer Rst = Nada

Establecer Mycon = Nada

Función de salida

ExectueSql_Error:

Reanudar ExectueSql_Exit

Finalizar función

dwawa