Ayuda con "Boton buscar, ComBox y problemas al guardar" conexion con DB ADO.

[vapirox]

esa es la cuestion, ya tengo los dos campos claves en la base de datos access, pero en VB tengo declarado un solo campo como clave y no se como declararlo para tenerlo como en access dos campos claves osea dos campos claves

mira ve en esta variable estoy declarando: primero el nombre de la tabla de la bases de datos con la cual estoy trabajando y tambien declaro el campo ID como campo clave... y quisiera saber es como declarar los dos campos claves que tengo en access para tenerlos aqui..

Código:

StrSql = "Select *From DatosCus Where ID = " + TxtID.Text

lo unico que se em a venido a la mente seria declararlo en dos lineas .. algo asi
corrigeme si me equivoco o si hay alguna otra manera hasmela saber..

Código:

StrSql = "Select *From DatosCus Where ID = " + TxtID.Text
StrSql2 = "Select *From DatosCus Where Sistema = " + CmbSistema.Text

ahora no se si estoy errado, no he tenido oportunindad de probar esta conbinacion, ahora creo q me daria un pequeño error en la linea dodne abro la conexion, la cual quedaria de esta manera al haber hecho el paso anterior

Código:

.Open StrSql, StrSql2, StrCnn, adOpenDynamic, adLockOptimistic

espero tu respuesta

salu2
vapirox

[ranefi]

Buen día vapirox. Lleva a cabo lo siguiente:

Código:

StrSql = "Select *From DatosCus Where ID = " + TxtID.Text + " AND Sistema = " + CmbSistema.Text

Espero te sirva. Nos vemos.

[vapirox]

bueno me esta dando un errorsillo, le hechare un ojo, pero seguro que ese codigo funciona?

[vapirox]

ranefi ya revisaste el codigo??


una pregunta, sabes que tengo mis  combobos, como hago cuando los usuarios ejecuten dicho programa, que solo puedan seleccionar de la lista del combobox una opcion pero que no puedan escribirm en el combobox, no se si me explique...

todabia tengo el orrible error con el boton guardar

salu2
vapirox

[ranefi]

ranefi ya revisaste el codigo??


una pregunta, sabes que tengo mis  combobos, como hago cuando los usuarios ejecuten dicho programa, que solo puedan seleccionar de la lista del combobox una opcion pero que no puedan escribirm en el combobox, no se si me explique...

todabia tengo el orrible error con el boton guardar

salu2
vapirox

Para bloquear el control ComboBox debes hacer lo siguiente:

Código:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Eso es todo.

Con respecto a revisar el código, ya te mencioné cuales son los errores que debes corregir, es por eso que persiste el error con el botón buscar. Nos vemos.

[vapirox]

Con respecto a revisar el código, ya te mencioné cuales son los errores que debes corregir, es por eso que persiste el error con el botón buscar. Nos vemos.

ok si es verdad solo q no recordaba q se colocaba " Private Sub _KeyPress(KeyAscii As Integer) "

el boton Buscar ya lo modifique la semana pasada y ya me funciona, el error te digho es con el boton guardar...
no se xq no me esta guardando.

una pregunta, existe la posibilidad de que yo tenga un lista en el combobox y seleccione un iten de la lista por ejemplo q se llame juan, y a la hora de guardar quiero que en la base de datos se guarde con otro nombre..

por ejemplo:

en mi escuela : tengo una lista juan pepe y pablo y cada uno tiene un numero, 1 2 y 3..
y a juan le toca el numero 1..

yo queiro que en la lista del combobox salga normal los tres nombres pero queiro que cuando seleccione cualqueir nombre se guarde en la base de datos con su codigo.. en este caso seleccione a juan y cuando busque sus datos quiero q es ves q diga juan diga 1..

salu2

vapirox

[ranefi]

ok si es verdad solo q no recordaba q se colocaba " Private Sub _KeyPress(KeyAscii As Integer) "

el boton Buscar ya lo modifique la semana pasada y ya me funciona, el error te digho es con el boton guardar...
no se xq no me esta guardando.

una pregunta, existe la posibilidad de que yo tenga un lista en el combobox y seleccione un iten de la lista por ejemplo q se llame juan, y a la hora de guardar quiero que en la base de datos se guarde con otro nombre..

por ejemplo:

en mi escuela : tengo una lista juan pepe y pablo y cada uno tiene un numero, 1 2 y 3..
y a juan le toca el numero 1..

yo queiro que en la lista del combobox salga normal los tres nombres pero queiro que cuando seleccione cualqueir nombre se guarde en la base de datos con su codigo.. en este caso seleccione a juan y cuando busque sus datos quiero q es ves q diga juan diga 1..

salu2

vapirox

Hola vapirox. Cuando dije el botón buscar quise decir el botón Guardar, sólo que me equivoqué al momento de escribir (: P jejejeje). Ahora, si lo que deseas es insertar datos por medio de SQL puedes utilizar INSERT; su sintaxis es:

Código:

INSERT INTO tabla VALUES ('Valor1', 'Valor2', 'Valor3');

Nota: Los números se ponen sin las comas

Espero te sirva. Nos vemos.

[vapirox]

Código:

INSERT INTO tabla VALUES ('Valor1', 'Valor2', 'Valor3');

Nota: Los números se ponen sin las comas

Espero te sirva. Nos vemos.

explicate mejor por medio de un ejemplo... para poder entenderte mejor, y dicho codigo iria en que parte del codigo guardar ?? explicate un poco mejor salu2

[ranefi]

explicate mejor por medio de un ejemplo... para poder entenderte mejor, y dicho codigo iria en que parte del codigo guardar ?? explicate un poco mejor salu2

Hola vapirox. La sintaxis de SQL deberá ir aquí:

Código:

StrSql = "INSERT INTO tabla VALUES ('Valor1', 'Valor2', 'Valor3');"

En donde Valor1, Valor2 y Valor3 son los valores que le darás a los campos que tienes. Un ejemplo, suponiendo que tienes una tabla con los campos llamados Nombre, Edad, Direccion, sería así:

Código:

StrSql = "INSERT INTO tabla VALUES ('ranefi', 77, 'ranefilandia');"

Espero haya quedado más claro. Nos vemos.

[vapirox]

este es mi codigo guardar en que parte lo insertaria??  xq tengo declarado esa variable dodne tengo almacenado el nombre de la tabla y los campos claves

Código:

Private Sub CmdGuardar_Click()
    'Sub rutina que se activara en caso de que se genere un error al guardar registro
   
    'En la variable StrCnn se almacena la conexion con el objeto AdoDatos
    StrCnn = AdoDatos.ConnectionString
    'En la variable VarRecBd se almacena una imagen de la estructura de la tabla
    Set VarRecBd = New ADODB.Recordset
    'En la variable StrSql se almacena el nombre de la tabla a utilizar y el campo clave
    StrSql = "Select *From DatosCus Where ID = " + TxtID.Text + " AND Sistema = " + CmbSistema.Text
    'Con la instruccion With VarRecBd se le indica con que estructura se va a trabajar
    With VarRecBd
        'Se apertura la conexion con las base de datos y la tabla
        .Open StrSql, StrCnn, adOpenDynamic, adLockOptimistic
        'Se pregunta si es fin de archivo con la intencion de que la si la ID existe envia un mensaje informando al usuario de que esa ID ya existe
        If .EOF Then
            'Como la ID no fue encontrada se va a crear
            .AddNew
            'Se traslada lo que esta en los TexBox a los campos de la tabla
            .Fields("ID").Value = TxtID.Text
            .Fields("Usuario").Value = TxtUsuario.Text
            .Fields("Sistema").Value = CmbSistema.Text
            .Fields("Region").Value = TxtRegion.Text
            .Fields("Condicion").Value = TxtCondicion.Text
            'Se procede a guardar el registro en la tabla
            .Update
            'Se envia un mensaje para notificar que se guardo el registro
            Mensaje = MsgBox("Registro Guardado", vbInformation, "Guardar")
            'Se habilitan algunos botones
            CmdAgregar.Enabled = True
            CmdGuardar.Enabled = False
            CmdEliminar.Enabled = True
            CmdSalir.Enabled = True
            CmdBuscar.Enabled = True
            AdoDatos.Refresh
        Else
            'Si la ID existe se le notifica al usuario a travez de un mensaje
            Mensaje = MsgBox("ID ya Existe", vbInformation, "Existe")
            'Se mostrara los datos por pantalla los cuales podra modificar si asi lo desea
            .Fields("ID").Value = TxtID.Text
            .Fields("Usuario").Value = TxtUsuario.Text
            .Fields("Sistema").Value = CmbSistema.Text
            .Fields("Region").Value = CmbRegion.Text
            .Fields("Condicion").Value = CmbCondicion.Text
            .Update
            Mensaje = MsgBox("El Registro fue Actualizado", vbInformation, "Actualiza")
            CmdGuardar.Enabled = False
            AdoDatos.Refresh
        End If
            'Se cierra la conexion
            .Close
            'Se Termina el With VarRecBd
    End With
'
'Sub-Rutina Errores
'
Errores:
    If Err.Number <> 0 Then
        Mensaje = MsgBox("Se ha Generado un Error: [" + Str(Err.Number) + " ] -" + Err.Description, vbCritical, "Error")
        Resume Next
    End If
End Sub

pero sabes tambien que pense cuando yo agrego al combobox un nom,bre osea en la lista. en propiedades list se crea automaticament e un numero en intemData.. no se puede trabajar con eso..

salu2

vapirox