Mensajes

Todos los del DOM TEAM y por su pollo que WHK Dios de Dioses...  
MCKSys Argentina con sus palabras de otro nivel (reversing) que no tiendo un carajo pero que me excito al leer ajjaja

Tengo este simple código sólo que ahora me la paso más en C# y no recuerdo bien como es en VB.

Tengo una función donde realizo una petición a la base de datos en SQL Server, esta ahi excelente. Pero necesito que desde esa misma función lo cargue a un ListBox, tengo lo siguiente:

Código (vb, 4) [Seleccionar] Expandir

Public Sub LoadHours(txtFecha As String, txtTarjeta As String, ByRef Lsb As ListBox)
' [SNIP]
       Do While Not Rs.EOF And Not Rs.BOF
           Lsb.AddItem Rs.Fields(0).Value
            ' Sí lo muestro en un MsgBox se ve correctamente los datos de la DB
           Rs.MoveNext
       Loop
' [SNIP]
End Sub

Se supone que al pasarlo como ByRef me tomaría el objecto del formulario e ingresaría los valores de la función dentro del ListBox.

Código (vb) [Seleccionar] Expandir

Call LoadHours(Me.txtFecha.Text, Me.txtTarjeta.Text, Me.lsbHoras)

El caso es que me dice: No coinciden los tipos.

???

Código (sql) [Seleccionar] Expandir

SELECT * FROM TableName;

No es nada raro, hasta se puede optimzar, pero nah...

Código (vb) [Seleccionar] Expandir

Public Sub PoC()

    Dim Row As Integer: Row = 1
    Dim DentroDeKW As Boolean: DentroDeKW = False
   
    Sheets("Hoja1").Select
    Do While Range("A" & Row).Value <> Empty
        If Mid(Range("A" & Row).Value, 1, 2) = "KW" Then
            DentroDeKW = True
        End If
       
        If Mid(Range("A" & Row + 1).Value, 1, 2) = "LA" Then
            DentroDeKW = False
        End If
       
        If DentroDeKW = True Then
            Range("A" & Row).Value = Range("A" & Row).Value & ";"
        End If
       
        Row = Row + 1
    Loop

End Sub


Resultado:

Código [Seleccionar] Expandir

TY  - JOUR
AN  - WOS:000207966700012
DA  - Jul-Sep
J2  - Acta Bioquim. Clin. Latinoam.
KW  - CARDIAC TROPONIN-I;
ACUTE MYOCARDIAL-INFARCTION;
BRAIN NATRIURETIC;
PEPTIDE;
ARTERY-BYPASS-SURGERY;
ST-SEGMENT-ELEVATION;
CREATINE-KINASE-MB;
DEPARTMENT PATIENT SATISFACTION;
ACUTE;
PULMONARY-EMBOLISM;
CRITICALLY-ILL PATIENTS;
STAGE RENAL-DISEASE
LA  - Spanish
M1  - 3
M3  - Article
N1  - ISI Document Delivery No.: V17WG
Times Cited: 0
Cited Reference Count: 218
Cited References:
    Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4
    Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D
    Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278
    Alpert JS, 2000, J AM COLL CARDIOL, V36, P959
    Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9
[Anonymous]
TY  - JOUR
AN  - WOS:000207966700012
DA  - Jul-Sep
J2  - Acta Bioquim. Clin. Latinoam.
KW  - CARDIAC TROPONIN-I;
ACUTE MYOCARDIAL-INFARCTION;
BRAIN NATRIURETIC;
PEPTIDE;
ARTERY-BYPASS-SURGERY;
ST-SEGMENT-ELEVATION;
CREATINE-KINASE-MB;
DEPARTMENT PATIENT SATISFACTION;
ACUTE;
PULMONARY-EMBOLISM;
CRITICALLY-ILL PATIENTS;
STAGE RENAL-DISEASE
LA  - Spanish
M1  - 3
M3  - Article
N1  - ISI Document Delivery No.: V17WG
Times Cited: 0
Cited Reference Count: 218
Cited References:
    Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4
    Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D
    Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278
    Alpert JS, 2000, J AM COLL CARDIOL, V36, P959
    Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9
[Anonymous]


Oka es fácil ya que tiene un patron haré una pequeña macro para que la ejecutes en Excel. Espera un momento.

Pues no olvides de que en Excel existe el condicional IF.

Podrías poner como esta el archivo actual unas cuantas lineas, y debajo como quieres que se modifique? No logro comprender lo que quieres,

Quisiera saber si es posible ganar dinero con ello? Necesito comprar algunas cositas... y por si acaso alguien me puede enviar una invitación  lo querre hasta el fin del mundo

Normalente los teclados de la laptop son dificiles de manejar (cuando eres programador y ya sabes donde estan las teclas) porque algunos teclados no tienen teclas por ejemplo de < ni > sino que hay que presionar otra tecla por ej Alt, AltGr, etc.

Pero después del tiempo te acostumbras, ahora con respecto al teclado de goma, sólo es bueno por su valor pero de lo contrario es un asco por lo que anteriormente dices. De igual manera las cosas son de costumbre.

En tu caso prefiero usar un teclado normal ajjajaja igual son de valor $ reducido.

Registra las DLL

Código (dos) [Seleccionar] Expandir

regsvr32 PATH_DLL

@dimitrix Excelente,

@MinusFour ¬¬!

@synthesize En eso pense, sólo que cobraría por el bug y solcionarlo y a parte un salario?