Visual Basic - solicitud

agradeceria muxo su ayuda:
solo necesito guardar en una bd acces la opcion elegida en un comboBox o En una LitBox con visual basic 6.0
la verdad es k no lo puedo hacer es por eso k te agradeceria k me ayudaras con esto por eso te envio los datos mas menos como para k se ubiken en como lo estoy haciendo muxas gracias

esta es la coneccion

Dim Base As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Control As Boolean
Dim i As Integer
Dim LblStatus As String
Const sPathBase As String = "c:\DATOS.mdb"

asi tengo el codigo en el boton para guardar los datos

Case 4 ' guardar
'*************************************************
' Guardar el contenido de las cajas de texto

If text_clientes(0).Text = "" Or text_clientes(1).Text = "" _
Or text_clientes(2).Text = "" Or text_clientes(3).Text = "" _
Or text_clientes(4).Text = "" Or text_clientes(5).Text = "" _
Or text_clientes(6).Text = "" Or text_clientes(7).Text = "" _
Or text_clientes(8).Text = "" Or text_clientes(9).Text = "" _
Or text_clientes(10).Text = "" Or text_clientes(11).Text = "" _
Or text_clientes(12).Text = "" Or text_clientes(13).Text = "" Then

MsgBox ("ERROR FALTAN DATOS")
text_clientes(0).SetFocus
Else
'agrega un registro en blanco a la base
With rs
If Control Then
.AddNew 'crea registro en blanko
End If
Dim i As Integer
For i = 0 To 13
.Fields(i) = text_clientes(i).Text ' se pasan los valores delas cajas de texto a los compos
Next
' Actualizar los datos en el recordset
'.Update 'actualiza los datos en la tabla
.Update

End With

Control = True

rs.MoveFirst ' primer registro de la tabla
Call BloqDes_Botones(Cmd_Cli_Opción, 0, 6, True)
Cmd_Cli_Opción(6).SetFocus
Call Mostrar_Registro(text_clientes, rs, 0, 13)
Call BloqDes_Botones(Cmd_Cli_Opción, 4, 5, False)
Call BloqDes_Textos(text_clientes, 0, 13, True)
Call Activar_Textos(text_clientes, 0, 13, False)
Call BloqDes_Botones(Cmd_Cli_Mover, 0, 3, True)
End If

gracias,.......................................................................................

¿no lees los post anteriores?

Carlos, carlitos, aqui tienes tu respuesta

Para guardar en una Base de Datos en Access la opción elegida de un ComboBox o un ListBox tienes que escribir lo siguiente

Dim Base As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Control As Boolean
Dim i As Integer
Dim LblStatus As String
Const sPathBase As String = "c:\DATOS.mdb"

'En el botón GUARDAR DATOS ESCRIBES ESO
'*************************************************
' Guardar el contenido de las cajas de texto

If text_clientes(0).Text = "" Or text_clientes(1).Text = "" _
Or text_clientes(2).Text = "" Or text_clientes(3).Text = "" _
Or text_clientes(4).Text = "" Or text_clientes(5).Text = "" _
Or text_clientes(6).Text = "" Or text_clientes(7).Text = "" _
Or text_clientes(8).Text = "" Or text_clientes(9).Text = "" _
Or text_clientes(10).Text = "" Or text_clientes(11).Text = "" _
Or text_clientes(12).Text = "" Or text_clientes(13).Text = "" Then

MsgBox ("ERROR FALTAN DATOS")
text_clientes(0).SetFocus
Else
'agrega un registro en blanco a la base
With rs
If Control Then
.AddNew 'crea registro en blanko
End If
Dim i As Integer
For i = 0 To 13
.Fields(i) = text_clientes(i).Text ' se pasan los valores delas cajas de texto a los compos
Next
' Actualizar los datos en el recordset
'.Update 'actualiza los datos en la tabla
.Update

End With

Control = True

rs.MoveFirst ' primer registro de la tabla
Call BloqDes_Botones(Cmd_Cli_Opción, 0, 6, True)
Cmd_Cli_Opción(6).SetFocus
Call Mostrar_Registro(text_clientes, rs, 0, 13)
Call BloqDes_Botones(Cmd_Cli_Opción, 4, 5, False)
Call BloqDes_Textos(text_clientes, 0, 13, True)
Call Activar_Textos(text_clientes, 0, 13, False)
Call BloqDes_Botones(Cmd_Cli_Mover, 0, 3, True)
End If

Le entiendes...??, pruébalo, si te falla nos comentas en dónde te falló y que error pone

PODRÁS HACER ESO????

suerte colega