capturar hacia base de datos

[jose58]

veran tengo ado cnectado en visual con un base de datos en access en el formulario de visual como hago para capturar la información de un combo box es decir si escojo la pacion de alguno de ellos como hago para que se envie a la base de datos

[jose58]

ya resolvi, pero solo me falta saber como hacer para que cuando consulte datos y esos mismos datos se envien a otra base de datos pero no se ocmo se hace hay

[Insomnia]

Hola

Para insertar valores de una tabla a otra, yo lo haría utilizando una sentencia SQL tipo insert de esta forma:

Código:

insert into prueba select top 1 * from pasar

Donde prueba es la tabla en la que quiero insertar los datos y pasar es la tabla desde donde saco los datos, puedes ampliar la sentencia poniendo las condiciones que necesites.

--Saludos--

[jose58]

aaa ok pero fijate algola progrmacion q estoy usando para consultar es esta

Private Sub Command3_Click()
Dim respuesta As Integer
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
Text2.Text = Adodc1.Recordset.Fields.Item(1)
Text3.Text = Adodc1.Recordset.Fields.Item(2)
Text5.Text = Adodc1.Recordset.Fields.Item(3)
Text6.Text = Adodc1.Recordset.Fields.Item(4)
Text7.Text = Adodc1.Recordset.Fields.Item(5)
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
If Not Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
respuesta = MsgBox("Por favor verifique el numero de cedula o si a ingresado datos", vbExclamation, "Advertencia")
End If
End Sub

y para guardar los datos que ya consulte es esta
Dim respuesta
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields.Item(0) = Text1.Text
If Text1.Text = "" Then
respuesta = MsgBox("Debe colocar la cedula del ejecutivo a evaluar", vbExclamation, "Advertencia")
End If
Adodc1.Recordset.Fields.Item(1) = Text2.Text
Adodc1.Recordset.Fields.Item(2) = Text3.Text
Adodc1.Recordset.Fields.Item(3) = Text5.Text
Adodc1.Recordset.Fields.Item(4) = Text6.Text
Adodc1.Recordset.Fields.Item(5) = Text7.Text
Adodc1.Recordset.Fields.Item(6) = Combo1
Adodc1.Recordset.Update
BORRAR

End Sub
Private Sub BORRAR()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

End Sub

claro hay se ve que los datos se me duplican pero eeso es lo que no quiero... y solo tengo conectado atravez de ado sin modulos ni nada..