Para hacerlo con manzanitas.
Tengo dos conexiones a BD en la aplicación
BD1 :
Código:
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
BD2:
Código:
Public cnnCC As New ADODB.Connection
Public rsCC As New ADODB.Recordset
El llenado del flexgrid lo hago con la bd2 o sea, llamo la conexion cnnCC, y el recordset rsCC. Luego la exportación de los datos será hacia la bd 1, conexion cnn y recordset rs.
digamos que ya hice el select y el flexgrid ( llamado flexdatos) esta lleno con la consulta
Código:
Call IniciarConexionCC ' aqui esta declarada la conexión en el BAS
' carga el Recorset con todos los datos
rsCC.Open "Select * " _
& "From `callcapture`.`call` " _
& " Where call_id >= " _
& " " & Vtxtid & "" _
& " order by call_id asc ", cnnCC, adOpenKeyset, adLockOptimistic
' llena el flexgrid
Call CargarFlexdatos(flexdatos) ' Aquí esta declarado el felx en el BAS
'desconecta la llamada y deja habilitado para una nueva consulta
Call DesconectarCC 'cierra la conexión
ahora en el form declaro el siguiente codigo dentro del comando que ejecutará el insert?? como??
Código:
rsCC.MoveFirst
Do While Not rsCC.EOF
rsCC!datFecha0
rsCC("datFecha0")
rsCC.MoveNext
Loop
Y como ligo este codigo con
Código:
Call conexion.Execute("INSERT INTO Tabla (Campo1, Campo2) VALUES ('" & rsAux("Dato1") & "', '" & rsAux("Dato2") & "'")
ten unpoco de paciencia hay días que soy mas rapido, pero hoy no es uno de esos
Gracias