SoloCodigo

Hola a todos.
 
Estoy tratando de comparar unos valores (currency con dos decimales) para mostrar el resultado en un reporte, pero tengo problemas con los decimales...
como puedo hacer para redondearlos en la consulta (4.63) y no así (4.6255) como lo está haciendo ahora, el problema es que si no los redondeo casi ninguno va a coincidir...
 
Este es el código que uso.
 
    sSQL = "UPDATE THOTINT SET ERROR_PCLASE = 'Over aplicado < a condición' WHERE PORC_OVER < ID_PCLASE AND ID_PCLASE IS NOT NULL"
    Conn.Execute sSQL
 
Gracias

Alguien sabe donde puedo bajar gratis el grid VSFlexGrid.

Muchas gracias

Hola, estoy haciendo un form de control de transacciones por usuarios, le coloqué éste código, pero al ejecutarlo me da error de sintaxis... no encuentro donde está el error.

Gracias

sql = "INSERT INTO Tabla_Log_Usuarios (Priority, Action, User, Form, Table)" & _
"VALUES (1, 'UPDATE', '" & txtUsuario.Text & "', 'Control Ventas', 'Ventas')"
cnbase.Execute sql

Hola,

Tengo problemas con un código, estoy tratando de copiar un recordset a excel, pero me sale un error en el código.

Por favor necesito que me ayuden. Gracias

Private Sub mnuGenerarinforme_Click()
Dim Xlapp As Excel.Application
Dim Prueba As Excel.Workbook
Dim Totalreg As Double
Dim Totalcol As Integer

Set Xlapp = Nothing
Set Xlapp = New Excel.Application
Xlapp.Workbooks.Add

Set Prueba = Nothing
Set Prueba = Xlapp.Workbooks(Xlapp.Workbooks.Count)

Set Hoja1 = Nothing
Set Hoja1 = Prueba.Worksheets.Add
With datPrimaryRS.Recordset
.MoveLast
Totalreg = .RecordCount
.MoveFirst
Totalcol = grdDataGrid.Columns.Count

For i = 0 To Totalcol - 1
Hoja1.Cells(1, i + 1).Value = datPrimaryRS.Recordset.Fields(i).Name
Next i

Hoja1.Range("A1").CopyFromRecordset datPrimaryRS.Recordset  '<--- Aca es donde me marca el error

Prueba.SaveAs Format(Now(), "ddmmyyyy")

Set Hoja1 = Nothing
Set Prueba = Nothing
Set Xlapp = Nothing
End With
End Sub

Por favor, hace cuatro días que estoy con esto y encuentro el error...

Tengo una aplicación que se conecta a la base de datos Access por medio de Ado. Cuando abro un Form, me muestra los datos que hay en la base en un DataGrid según la consulta que ejecuto. Hasta ahí todo bien, el problema es cuando quiero modificar algún registro de los que me arrojo la consulta, y uso este código:

Private Sub cmdUpdateTexto_Click()

Dim SQL As String

If grdDataGrid.Columns(5).Text = "True" Then
SQL = "UPDATE MiTabla SET Texto = '" & txtUpdateTexto.Text & "' Where Texto = '<False>'"
datPrimaryRS.Refresh 'Mi conexión
grdDataGrid.Refresh 'Mi DataGrid

Else

MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
End If
End Sub

No me actualiza nada, QUE ESTOY HACIENDO MAL???

Hola a todos.

Necesito ayuda con un ComboBox.

Estoy trabajando en un Form que tiene un DataGrid enlazado a una tabla por Ado. Mi problema es cuando le agrego al Form un ComboBox, y mediante otro Ado lo enlazo a otra tabla, no me muestra ningún dato.....


Por favor alguien me puede ayudar con esto?

Gracias

hola a todos/as.

por favor, necesito ayuda con este código. si la consulta con encuentra registros, me aparece el error 94 en tiempo de ejecución. ya cambié el código varias veces, pero no puede solucionarlo...

gracias


datPrimaryRS.RecordSource = "Select Sum([Venta]) As Suma From MiTabla Where [Origen]='" & txtOrigen & "' AND [Destino]='" & txtDestino & "' AND [Venta]=" & txtVenta & " AND [Lugar]='" & txtLugar & "'"
datPrimaryRS.Refresh
If datPrimaryRS.Recordset.RecordCount > 0 Then
   txtTotalVenta = datPrimaryRS.Recordset.Fields(0)
   txtTotalVenta = Format(txtTotalVenta, "#,###,###,#0.00")
Else
    txtTotalVenta = 0
    txtTotalVenta = Format(txtTotalVenta, "#,###,###,#0.00")
End If

datPrimaryRS.RecordSource = "Select * From MiTabla Where [Origen]='" & txtOrigen & "' AND [Destino]='" & txtDestino & "' AND [Venta]=" & txtVenta & " AND [Lugar]='" & txtLugar & "'"
datPrimaryRS.Refresh
txtCantidadRegistros = datPrimaryRS.Recordset.RecordCount
grdDataGrid.Refresh
End Sub

hola.

alguilen podría decirme que está mal en este código??

gracias!


Private Sub cmdOK_Click()
    If Contador <= 1 Then
    If txtUserName = "Admin" Then
    If txtPassword = "Password" Then
       LoginSucceeded = True
       Timer1.Enabled = False
       frm2.Show
       Unload Me
    Else
        MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login"
        txtUserName.SetFocus
        SendKeys "{Home}+{End}"
        Contador = Contador + 1
    End If
    End If
    Else
    Mensaje = MsgBox("Acceso denegado", vbCritical, "Login")
    End
    End If
    End Sub