|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Soul_Keeper
Páginas: [1]
1
« en: Miércoles 25 de Abril de 2007, 21:37 »
como se crea una datagrid???
2
« en: Miércoles 25 de Abril de 2007, 21:37 »
oyeme puse el codigo como string y todo pero no se que debo hacer como hago para que me buscque con el comando sql?? porfavor!!!! Dim flagcierre As Boolean Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If flagcierre = False Then Cancel = 1 End If End Sub Private Sub miboton_Click() flagcierre = True End End Sub Private Sub Continuar_Click() Dim ls_SQL As String, ls_clave As String, SearchStr$ SearchStr$ = Text1.Text datEmp1.Recordset.Index = "Usuario" 'usa Nombre Clase datEmp1.Recordset.Seek "=", SearchStr$ 'y busca If datEmp1.Recordset.NoMatch Then 'si no encuentra ninguno MsgBox ("error usuario") End If ls_clave = "Select clave from empleados.clave where usuario = Text1.text" If ls_clave = Text2.Text Then ls_SQL = "Select tipo from empleados.tipo where usuario = Text1.text and clave = Text2.text " Else MsgBox (ls_clave) MsgBox (Text2.Text) End If End Sub Private Sub Salir_Click() End End Sub
me guie de otro foro que encontre pero no se ocmo poner el comando sql a funcionar.porfa
3
« en: Miércoles 25 de Abril de 2007, 20:19 »
te estas confundiendo, esa consulta la tenej que guardar en un STRING, luego ejecutas ese string por medio de un sqlcommand, sqlconexion. sqldataadapter y dataset.
BYTE. com ejecuo el sq command?? desde que objeto en vb??? yo cree un modulo y le puse string tipo(50,Select tipo from datEmp1 where usuario = Text1.text and clave = Text2.text) y ahora com pongo el sqlcommand? gracias
4
« en: Miércoles 25 de Abril de 2007, 07:08 »
oye otra cosa, en otro proyecto tengo un formulrio de agregar productos a un inventario, pero al gregar uno sirve, pero al agregar el segundo, este sobreescribe el primero como hago...
el codigo que tengo es este
Private Sub cmdAgregar_Click()
mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
If reply = vbOK Then
Text1.SetFocus
datInv1.Recordset.AddNew
End If
End Sub
Private Sub Command4_Click()
End
End Sub
gracias
5
« en: Miércoles 25 de Abril de 2007, 07:05 »
perdoname pero como haci grabarla en un string y todos esos comandos???
6
« en: Miércoles 25 de Abril de 2007, 03:25 »
la intruccion
Select tipo from TU_TABLA where usuario = txtUsuario.text and clave = txtClave.text
me dice que necesita un case, en que parte le pongo el case ahi??
si lo pongo antes de tipo me dice que en from se esperaba un fin de instruccion
7
« en: Miércoles 25 de Abril de 2007, 03:23 »
tengo un problema , la clave me la lee de cualquiera no de ese registrro, como hago que solo sea del registro al cual pertenece usuario???
8
« en: Martes 24 de Abril de 2007, 23:58 »
alguien sabe como poner una hoja de calculo de excel en un formulario de VB 6.0 y poder imprimir en ella varios datos de un bd???
gracias
9
« en: Martes 24 de Abril de 2007, 23:49 »
voy a intentarlo,
donde graba el dato una variable diferente???
mil gracias,
una pregunta si quiero mandar varios datos de un formulario a otro , hago este mismo proceso para cada dato?
gracias
10
« en: Lunes 23 de Abril de 2007, 18:59 »
un ejmeplo rapido con pregunta,
llega uno de los empleados al sistema, ingresa su usuario y contraseña, el sistema busca en la base de datos el registro en esos campos, ahora, como hago para sacar de ese mismo registro, del campo tipo el tipo de usuario que es?
que instruccion uso? en codigo?
nota:
0=administrador
1=cajero
2=vendedor
gracias
ps: perdonen por preguntar tanto es q llevo 2 semanas aprendiendo a manejar vb 6.0 y todavia tengo errores,
otra cosa, tengo otor proyecto ahi que debe agregar cosas a un inventario, pero al ponerle que lo agregue, me sobreescribe el item que ya esta ahi? que sera: les pongo el codigo para que me igan que me falta o que esta mal puesto
Private Sub cmdAgregar_Click()
mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
If reply = vbOK Then
Text1.SetFocus
datInv1.Recordset.AddNew
End If
End Sub
Private Sub Command4_Click()
End
End Sub
los datos son
id producto | nombre | cantidad | descripcion | precio
mil gracias
11
« en: Lunes 23 de Abril de 2007, 18:52 »
ya tengo la busqueda del usuaro y la clave , entonces mi pregunta es que instruccion uso para poder sacar de ese registro del campo tipo el valor que hay alli?
12
« en: Lunes 23 de Abril de 2007, 06:53 »
como puedo recuperar el dato???
13
« en: Lunes 23 de Abril de 2007, 06:51 »
que pongo en vez de level? com le debo agregar el valor?
14
« en: Lunes 23 de Abril de 2007, 06:39 »
hola necesito una ayuda por favor tengo un formulario tipo inventario para poder ingresar productos nuevos a este, ya los tengo todo escogido, me sirve cuando vo a busar pero me rescribe el item que tya tengo garcbado e el inventraio como hagop
gracias
ps aqui va el codio que tengo
Private Sub cmdAgregar_Click()
mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
If reply = vbOK Then
Text1.SetFocus
datInv1.Recordset.AddNew
End If
End Sub
Private Sub Command4_Click()
End
End Sub
15
« en: Lunes 23 de Abril de 2007, 06:30 »
gracias, como esogo la columna para ponerle el dato, es decir tengo las comlumnas de
id empleado | nombre | usuario | clave | tipo
donde tipo es de 0-2
0= administrador
1= cajero
2= vendedor
tonces al buscar y comprobar el nombre del usuario y clave, cpomo hago para escoger de ese mismo registro el dato que esta en columna?
gracias
16
« en: Lunes 23 de Abril de 2007, 00:13 »
AYUDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:
1er formulario...
pide un usuario y una clave, la busca en la base de datos, compara y da acceso..
2do
formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,
pregunta:
como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??
gracias
aqui va el codio del 1er formulario:
Dim flagcierre As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub
Private Sub miboton_Click()
flagcierre = True
End
End Sub
Private Sub Continuar_Click()
SearchStr$ = Text1.Text
datEmp1.Recordset.Index = "Usuario"
datEmp1.Recordset.Seek "=", SearchStr$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
End If
SearchStr2$ = Text2.Text
datEmp1.Recordset.Index = "Clave"
datEmp1.Recordset.Seek "=", SearchStr2$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Clave Errada"), , "Error de clave de usuario"
End If
MsgBox ("Bienvenido"), , "Bienvenido"
Load Form2
Form2.Show
Form1.Hide
End Sub
Private Sub Salir_Click()
End
End Sub
17
« en: Lunes 23 de Abril de 2007, 00:11 »
yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:
1er formulario...
pide un usuario y una clave, la busca en la base de datos, compara y da acceso..
2do
formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,
pregunta:
como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??
gracias
aqui va el codio del 1er formulario:
Dim flagcierre As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub
Private Sub miboton_Click()
flagcierre = True
End
End Sub
Private Sub Continuar_Click()
SearchStr$ = Text1.Text
datEmp1.Recordset.Index = "Usuario"
datEmp1.Recordset.Seek "=", SearchStr$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
End If
SearchStr2$ = Text2.Text
datEmp1.Recordset.Index = "Clave"
datEmp1.Recordset.Seek "=", SearchStr2$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Clave Errada"), , "Error de clave de usuario"
End If
MsgBox ("Bienvenido"), , "Bienvenido"
Load Form2
Form2.Show
Form1.Hide
End Sub
Private Sub Salir_Click()
End
End Sub
18
« en: Domingo 22 de Abril de 2007, 23:51 »
yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:
1er formulario...
pide un usuario y una clave, la busca en la base de datos, compara y da acceso..
2do
formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,
pregunta:
como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??
gracias
aqui va el codio del 1er formulario:
Dim flagcierre As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub
Private Sub miboton_Click()
flagcierre = True
End
End Sub
Private Sub Continuar_Click()
SearchStr$ = Text1.Text
datEmp1.Recordset.Index = "Usuario"
datEmp1.Recordset.Seek "=", SearchStr$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
End If
SearchStr2$ = Text2.Text
datEmp1.Recordset.Index = "Clave"
datEmp1.Recordset.Seek "=", SearchStr2$
If datEmp1.Recordset.NoMatch Then
MsgBox ("Clave Errada"), , "Error de clave de usuario"
End If
MsgBox ("Bienvenido"), , "Bienvenido"
Load Form2
Form2.Show
Form1.Hide
End Sub
Private Sub Salir_Click()
End
End Sub
Páginas: [1]
|
|
|
Mostrar Mensajes
