• Lunes 29 de Abril de 2024, 20:28

Mostrar Mensajes

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 - manuelbse

Páginas: [1]
1
VBA / Ayuda Urgente Con Una Consulta
« en: Domingo 3 de Julio de 2005, 19:09 »
HOLA A TODOS ESPERO Q ALGUIEN M PUEDA AYUDAR, ESTOY TRATANDO DE REALIZAR UNA CONSULTA POR FECHA A TRAVES DE UN DTPICKER Y M DA ERROR DE SINTAXIS DE LA CLAUSULA FROM Y EN VERDAD Q NO C COMO CORREGIRLO...
NO C SI ESTOY REALIZANDO BIEN LA CONSULTA...ESPERO Q ALGUIEN PUEDA HACER EL FAVOR DE AYUDARM...ESTE ES LA CONSULTA:


 Strconsord = "SELECT  ordentrab.ordtrab, ordentrab.fecha, " & _
    "ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _
    "ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _
    "ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _
    "ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _
    "ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _
    "FROM ordentrab" & _
    "Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _
    " ORDER BY ordentrab.fechapen"

CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly


GRACIAS

2
Visual Basic para principiantes / Dudas Con Eof Y Bof
« en: Lunes 27 de Junio de 2005, 23:24 »
HOLA SOY UN PROGRAMADOR PRINCIPIANTE Y ESTOY REALIZANDO UN PROYECTO Y ESTOY UTILIZANDO UNA TABLA EN ACCESS Y ESTA NO POSEE NINGUN REGISTRO DE LA CUAL DESDE UN FORMULARIO SE INTRODUCIRAN LOS DATOS PERO QUIERO QUE ESTA LLEVE UN NUMERO DE ORDEN CORRELATIVO Y AUTOMATICO. CUANDO UTILIZO LOS EOF Y BOF SE ME PRESENTA ERROR AQUI LES DOY PARTE DEL CODIGO:

If consulta.EOF = False Then
        consulta.MoveNext
    Else
        consulta.MoveLast
    End If
 'consulta.MoveLast
  NUMORDEN = consulta!ordtrab
  With Form2
        NUMORDEN = NUMORDEN
        NUMORDEN = NUMORDEN + 1
        Form2.Text1.Text = NUMORDEN
    End With

GRACIAS POR LA AYUDA QUE ME PUEDAN DAR!

3
VBA / Re: Urgente Ayuda En Consulta Con Data Report
« en: Miércoles 18 de Mayo de 2005, 21:40 »
MUCHAS GRACIAS SI M SIRVIO T LO AGRADEZCO..... :smartass: [/size]

4
VBA / Urgente Ayuda En Consulta Con Data Report
« en: Miércoles 18 de Mayo de 2005, 06:26 »
HOLA YA C TRABAJAR BASICO EN DATA REPORT AHORA EL PROBLEMA ES CUANDO REALIZO UNA CONSULTA EN EL PROGRAMA DE UNA INFORMACION ESPECIFICA O DE VARIAS COMO HAGO PARA Q EN EL DATA REPORT APAREZCA SOLO LO Q CONSULTO...
LES AGREDECERIA ESTE OTRO GRAN FAVOR Y GRACIAS DE ANTEMANO [/size] :hola:  :hola:  :hola:  ;)  :unsure:  :blink:  :D

5
VBA / Re: Urgencia De Principiante
« en: Martes 17 de Mayo de 2005, 05:30 »
HOLA A TODOS TENGO UN PROGRAMA YA LISTO PERO LO UNICO Q ME FALTA ES REALIZAR LOS REPORTES Y NO SE MANEJAR DATAREPORTS...MANEJO MAS O MENOS LOS INFORMES DE ACCESS Y QUISIERA SABER DESPUES DE TENER LOS INFORMES LISTOS EN ACCES COMO HAGO PARA PODER ULIZARLOS EN VISUAL Y MOSTRARLOS POR AHI...
SI NO ES MUCHO PEDIR Y ME PUEDEN DAR UNA MANITO CON ESTO O DATA REPORT SE LOS AGRADECERIA[/color] ;)  :o  :(  :unsure:

6
VBA / Urgente Ayuda En Consulta
« en: Miércoles 4 de Mayo de 2005, 01:54 »
POR FAVOR NECESITO UNA MANITO, ESTOY TRABAJANDO EN UNA CONSULTA EN SQL, LA CUAL SE REALIZA MEDIANTE
VARIOS LIST DONDE UNO ESCOJE EL O LOS CAMPOS Q C QUIEREN HACER LA CONSULTA Y ESTOS CAMPOS ESCOGIDOS
SON REFLEJADOS EN UN LIST GENERAL,EL PROBLEMA SE M PRESENTA CUANDO A TRAVES DE UN BOTOM QUIERO
HACERE LA CONSULTA Y ME DA UN ERRO 91,AQUI LES ENVIO EL CODIGO ESPERO Q ME AYUDEN GARCIAS DE
ANTEMANO....

Private Sub Command3_Click()
Dim Var As String
Dim VarSQL As String
Static var2 As String
Static varn As Integer

If List5.List(List5.ListIndex) = "CÉDULA DE IDENTIDAD" Then
Var = "EMPLEADO_CCS.CI"
End If
If List5.List(List5.ListIndex) = "CÓDIGO DE NOMINA" Then
Var = "EMPLEADO_CCS.CodNom"
End If
If List5.List(List5.ListIndex) = "APELLIDOS Y NOMBRES" Then
Var = "EMPLEADO_CCS.APENOM"
End If
If List5.List(List5.ListIndex) = "DESCRIPCION DEL CARGO" Then
Var = "EMPLEADO_CCS.DESCAR"
End If
If List5.List(List5.ListIndex) = "CÓDIGO DE CARGO" Then
Var = "EMPLEADO_CCS.CODCAR"
End If
If List5.List(List5.ListIndex) = "TIPO DE PERSONAL" Then
Var = "EMPLEADO_CCS.TIPPER"
End If
If List5.List(List5.ListIndex) = "SITUACIÓN DEL CARGO" Then
Var = "EMPLEADO_CCS.SITCAR"
End If
If List5.List(List5.ListIndex) = "FECHA DE INGRESO" Then
Var = "EMPLEADO_CCS.FCHING"
End If
If List5.List(List5.ListIndex) = "SEXO" Then
Var = "EMPLEADO_CCS.SEXO"
End If
If List5.List(List5.ListIndex) = "SINDICATO" Then
Var = "EMPLEADO_CCS.DIGSIN"
End If
If List5.List(List5.ListIndex) = "CAJA DE AHORRO" Then
Var = "EMPLEADO_CCS.DIGCAJ"
End If
If List5.List(List5.ListIndex) = "FECHA DE NACIMIENTO" Then
Var = "EMPLEADO_CCS.FCHNAC"
End If
If List5.List(List5.ListIndex) = "ESTADO CIVIL" Then
Var = "EMPLEADO_CCS.CIVIL"
End If

If Var "" And varn = 0 Then
varn = 1
var2 = Var
var2 = var2 & "," & Var
End If

VarSQL = "SELECT '" & var2 & "' AS Datos FROM EMPLEADO_CCS INNER JOIN
Detalles ON EMPLEADO_CCS.CI = Detalles.ci;"

'AQUI ES DONDE ME DA EL ERROR 91
rsUsers.Open VarSQL, cnAP, adOpenDynamic, adLockPessimistic, adLockReadOnly

Do While rsUsers.EOF = False
MsgBox rsUsers!Dato
rsUsers.MoveNext
Loop

Páginas: [1]