Combobox
Hola es que ahora necesito que los datos del combobox conforme lo seleccione los vaya guardando en una tabla de access que ya cree y con sus respectivos campos no se si me explico pero si me pueden ayudar se los agradeceré de antemano.
Respuesta
1
Espero ayudarte con este pequeño ejemplo, todo puede ser mucho más amplio pero con este ejemplo pretendo ayudarte con tu tema puntual:
Public conexion As ADODB.Connection
Public recordsetADO As ADODB.Recordset
Set conexion = New ADODB.Connection
With conexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = " RUTA Y BASE DE DATOS
.Open
End With
'En el evento click del combo pones:
Set recordsetADO = New ADODB.Recordset
' Propiedades del Recordset
With recordsetADO
.CursorLocation = adUseClient
' Abre el recordset indicando la tabla
.Open "TUTABLA", conexion, adOpenStatic, adLockOptimistic, adCmdTable
End With
' Donde dice TUTABLA puedes poner solo el nombre de la tabla o una consulta directa. ( Por 'ejemplo un SELECT)
recordsetADO.AddNew
recordsetADO.Fields("TUCAMPO").value = ComboBox.text
recordsetADO.Update
Lo que esta en el principio lo puedes poner en evento load del formulario o en el evento click del combo o en un modulo, es más todo lo relacionado con la conexión y consultas lo puedes crear en un Modulo después solo debes llamar a las funciones o procedimientos.
Public conexion As ADODB.Connection
Public recordsetADO As ADODB.Recordset
Set conexion = New ADODB.Connection
With conexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = " RUTA Y BASE DE DATOS
.Open
End With
'En el evento click del combo pones:
Set recordsetADO = New ADODB.Recordset
' Propiedades del Recordset
With recordsetADO
.CursorLocation = adUseClient
' Abre el recordset indicando la tabla
.Open "TUTABLA", conexion, adOpenStatic, adLockOptimistic, adCmdTable
End With
' Donde dice TUTABLA puedes poner solo el nombre de la tabla o una consulta directa. ( Por 'ejemplo un SELECT)
recordsetADO.AddNew
recordsetADO.Fields("TUCAMPO").value = ComboBox.text
recordsetADO.Update
Lo que esta en el principio lo puedes poner en evento load del formulario o en el evento click del combo o en un modulo, es más todo lo relacionado con la conexión y consultas lo puedes crear en un Modulo después solo debes llamar a las funciones o procedimientos.