Macro access insertar datos en tabla

16/03/2011 - 20:21 por ruyz | Informe spam
Estimado grupo de ACCESS. soy novato en acces, tengo el siguiente
codigo:

Sub Access(SQL As String)

Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "Data Source=C:\BD.mdb"
.Open
End With
cn.Execute SQL

cn.Close

End Sub

El problema consiste en que no puedo ver los resultados la vairable
SQL tiene el siguiente dato:

SQL = INSERT INTO DLUVFON2 SELECT * FROM DLUVFON WHERE
DLUVFON.CENTRAL = 'Dos' and DLUVFON.DLU = '20'

Favor ayudarme, en este problema, actualmente no me inserta la
consulta en la tabla llamada DLUVFON2.

EL FIN QUE PERSIGO ES COPIAR EL DATO FILTRADO DE UNA TABLA E
INGRESARLO A OTRA TABLA.

Preguntas similare

Leer las respuestas

#1 José Mª Fueyo
17/03/2011 - 13:18 | Informe spam
Hola
La sentencia SQL, sí la pegas en un editor de consultas ¿te funciona?
Sí ejecutas el procedimiento ¿te funciona o te da algún error?

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#2 ruyz
17/03/2011 - 15:42 | Informe spam
Gracias por responder, ayer mismo solucioné eel problemam, con lo
siguiente:

CurrentDb.Execute
strSQL

Ya no tuve la necesidad de hacerlo con ADO...


Desde un boton insertar

Private Sub btnInsertar_Click()
Dim strSQL As String
strSQL = "INSERT INTO DLUVFON2 SELECT * "
strSQL = strSQL & " FROM DLUVFON"

strSQL = strSQL & " WHERE DLUVFON.CENTRAL = '" & Me.cboCentral & "'" &
" and " & " DLUVFON.DLU = '" & txtFiltro & "'"

CurrentDb.Execute strSQL

'Me.DLUV_FON.Requery

End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida