En este grupo En todos

Foro de Lenguaje basic

Eduardo
Hidalgo, México
Escrito por Eduardo
el 24/07/2006

Hola este codigo modifica elimina etc. Pero funciona con procedimeintos de Sql server 200


Dim op As Integer
Dim conexion As String
Private Sub cmdCancelar_Click()
    Unload Me
End Sub

Private Sub Label7_Click()
    Unload Me
End Sub

Private Sub txtclave_GotFocus()
Me.cmdGuardar.Enabled = True
End Sub

'Private Sub txtClave_KeyPress(KeyAscii As Integer)
'KeyAscii = 0
'End Sub
'Private Sub cmdEliminar_Click()
'On Error GoTo revisa
'Err. Clear
'    If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
'    Me.Adodc1.CommandType = adCmdStoredProc
'    Me.Adodc1.Recordset. Open "Elimina_Usuario(" & Me.txtclave.Text & ")", conexion
'    Adodc1. Refresh
'    cmdNuevo. Enabled = True
'    cmdeliminar. Enabled = False
'    Exit Sub
'revisa:
'End Sub
Private Sub cmdGuardar_Click()


'On Error GoTo revisa
'Err. Clear
    If txtContrasenia. Text <> "" Then
    Me.Adodc1.CommandType = adCmdStoredProc
    Me.Adodc1.RecordSource = "pComprUser(" & txtclave. Text & ")"
    Adodc1. Refresh
        If Adodc1.Recordset.RecordCount <> 0 Then
            MsgBox ("El Registro Ya Existe")
            MsgBox "calando"
            cmdGuardar. Enabled = False
        Else
        txtContrasenia. Text = Encripta(txtContrasenia. Text, "Paco")
        txtConfirmar. Text = Encripta(txtConfirmar. Text, "Paco")
           com
            Me.Adodc1.CommandType = adCmdStoredProc
            Me.Adodc1.Recordset. Open "inserta_Usuario('" & txtclave. Text & "','" & Me.txtNombre.Text & "','" & Me.txtContrasenia.Text & "','" & Me.txtConfirmar.Text & "','" & Me.txtNivel.Text & "')", conexion
            Adodc1. Refresh
           
        End If
        End If
        txtclave. Text = ""
        txtContrasenia. Text = ""
        txtNivel. Text = ""
        Me.txtNombre.Text = ""
        Me.txtConfirmar.Text = ""
'        Exit Sub
'revisa:

      End Sub
Private Sub cmdGuardar_GotFocus()
vacio
End Sub

Private Sub cmdSalir_Click()
    Unload Me
End Sub


Private Sub txtContrasenia_GotFocus()
Me.cmdGuardar.Enabled = True
End Sub
Private Sub Form_Load()
    If modifi = 1 Then
        frmUsuarios. Caption = "Modificacion de Registros"
        modifi = 2
    End If
    conexion = frmConfiguracion. Conexion
    op = 0
End Sub
Sub com()
    If Adodc1.Recordset.State = 1 Then
       Adodc1.Recordset.Close
    End If
End Sub
Private Sub nivel_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Sub vacio()
If Me.txtNivel.Text = "" Or Me.txtContrasenia.Text = "" Or txtclave. Text = "" Or txtConfirmar. Text = "" Or Me.txtNombre.Text = "" Then
        MsgBox "Son necesarios todos los campos"
        cmdGuardar. Enabled = False
Else
cmdGuardar. Enabled = True
End If
End Sub



Eduardo
Hidalgo, México
Escrito por Eduardo
el 24/07/2006
Hola amigos necesito ayuda para hacer un programa que me facture, necesito capturar productos, clientes, y aprtirde ahi saber cuantos productos adquirio un cliente, sacar el importe de esos productos, el iva y el total a pagar, les agradecere mucho su ayuda
Cesar
Perú, Perú
Escrito por Cesar
el 31/07/2006

Hola amigos, quisiera que me ayuden tengo problemas al guardar datos en mi base de datos sql server 2000 desde visual basic 6. 0, quisiera porfavor que me manden a mi correo  algun codigo para realizar esas acciones en mis tablas relacionadas. De antemano les agradesco bye

cesar_dat2005@hotmail. Com

Cel
Jalisco, México
Escrito por Cel
el 01/08/2006

Hola, ojala pudieran alguien apouarme o aserorame con sus conocimientos, debo haceru n programa para el viernes en visual basic 6. 0 o e bien en excel, que consiste en el método de transporte, es mmuy importante pues cuenta un buen porcentaje de mi calificacion final, por favor no sean malitos y ayudenme si les es posible.

GRACIAS ESPERO SU RESPUESTA


Escrito por Lenin Galvez Avelllaneda
el 02/08/2006
Hola quiero saber como hacer un reporte en data report , este trabajo tengo que presentarlo este viernes 4 y estoy confundido el sistema es de renta de videos
Escrito por Daniel Triviño
el 07/08/2006

Buenos dias por ayudeme a multiplicar en visual basic 6. 0 es que tengo que hacer un deber

Gracias

Pablo Josue
Estado de México, Mé...
Escrito por Pablo Josue
el 09/08/2006

Hola:

Soy  estudiante de Informatica y necesito  terminar un sistema para  mi  examen final  es sobre  un inventario de tambores, tengo entradas al almacen y salidas

Hago una consulta  por   cliente de la cantidad de tambores y me lo muestra en un ListView1 la informacion consultada ahora  quiero generar un reporte apartir de esa informacion pero  no se  como hacerlo alguien me prodria ayudar se los agradeceria


Escrito por Shirley
el 09/08/2006
Quiero que me ayuden a crear un sistema de lo que a ustedes les paresca  porfis  es urgente
Jhonny Reyes
Antioquia, Colombia
Escrito por Jhonny Reyes
el 10/08/2006

Hola cordial saludo

Necesito que me colabores con todo respecto. No lo conozco pero, necesito que me colabores con un programa que me controle la entrada y salidad de los carros.

El programa debe imprimir la hora  de entrada  y otra impresion de salida gracias


Vero
Puebla, México
Escrito por Vero
el 11/08/2006

Voy hacer una base de datos  de zapatos, como utilizo varias imagenes, para que en el momento de escribir la palabra "tenis" me salga una imagen de tenis, o escriba zapatilla y salga la imagen zapatilla

Escrito por Luis Larios
el 14/08/2006

Para mandar el mensaje que quieres utiliza un msgbox

Es decir msgbox("mensaje a mostrar"),vbSystemModal, "Titulo mensaje"

Al utilizar systemModal el mensaje se muestra por encima de todas las ventanas abiertas aunqu e esten maximizadas y activas.

Escrito por Francisco Cruz Sosa
el 16/08/2006

Hola, quisiera me ayudaran, por favor...

Quisiera saber como puedo lograr extraer las vocales y las consonantes de una cadena determinada. Ejm.

TxtCadenaFrancisco. Text="Francisco"

LblConsonantes. Label=frncsc

LblConsonantes. Label=aio

Que es lo que tengo que hacer. Ayudenme por favor.

Escrito por Francisco Cruz Sosa
el 16/08/2006

Quisiera saber como puedo extraer las vocales o consonantes de una cadena determinada. Ejm

Cadena="FRANCISCO"

Consonantes=FRNCSC

Vocales=AIO

Nemo
Perú, Perú
Escrito por Nemo
el 20/08/2006

hola quisiera que me enviaras tu tipo de coneccion con  base de datos a vb

porfavor

gracias por el favor

Escrito por Jose
el 22/08/2006

Agregar control crystalreport ejemplo CrystalReport1

Seleccionar reporte deacuero a la ruta donde este guardado

CrystalReport1. ReportFileName = App. Path & "\nombre_reporte. Rpt"
se especifica la busqueda en este caso todos los datos

CrystalReport1. SelectionFormula = ""

Se abre el reporte
CrystalReport1. Action = 1


Si la busqueda tiene algun dato especifico

CrystalReport1. SelectionFormula = "{tabla. Campo}= " & Val(texto_con_el_dato. Text) & ""


Esto se programa en el botos q se desea

Escrito por Jose
el 22/08/2006

Agregar control crystalreport ejemplo CrystalReport1

Seleccionar reporte deacuero a la ruta donde este guardado

CrystalReport1. ReportFileName = App. Path & "\nombre_reporte. Rpt"
se especifica la busqueda en este caso todos los datos

CrystalReport1. SelectionFormula = ""

Se abre el reporte
CrystalReport1. Action = 1


Si la busqueda tiene algun dato especifico

CrystalReport1. SelectionFormula = "{tabla. Campo}= " & Val(texto_con_el_dato. Text) & ""


Esto se programa en el botos q se desea 

Escrito por Daniel
el 26/08/2006
Cual es tu correo tengo algo qu talvez pueda ayudart
Rafael Romero
Bogotá, Colombia
Escrito por Rafael Romero
el 31/08/2006
Hola tengo que hacer una coneccion en Red a SQL Server porfavor si algien tiene la coneecion o ejemplos me podrian colaborar...................
Escrito por Catalina Sanchez
el 05/09/2006
Holas! Quien me podria ayudar a resolver un ejercicio en visual en el cual me dicen: dado un numero en base decimal convertirlo a binario.
Sandra
Guanajuato, México
Escrito por Sandra
el 05/09/2006
Hola me podrian ayudar por favor, pues no se nada de conecciones y casi no encuentro informacion, necesito saber como usar y validar el datagrid, pues requiero insertar un nuevo registro, modificar, eliminar, etc no se como hacerlo, la liga es con base de datos en sql server, tambien quiero saber como manejar el ado, todo relacionado a la base de datos.....