SoloCodigo

Hola acabo de instalar MySQL 4.1 sin ningún problema, pero cuando comienzo con la configuración se queda trabado en la parte de "Start Service" y no me da ninguna descripción del error....

Alguien sabe como puedo solucionarlo?? ya que si no lo hago no puedo arrancar el server.  

Gracias

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

Hola.

Estoy migrando una bd Access a una de Visual Foxpro y hasta ahí todo bien, pero al tratar eliminar registros me sales este error: File 'usuario.dbf' does not exist.

Espero puedan ayudarme, gracias.

Private Sub cmdDelete_Click()
Dim miConnection As ADODB.Connection
Dim miRecordSet As ADODB.Recordset
Dim miComando As ADODB.Command

Dim strConn As String

strConn = "Provider=VFPOLEDB.7;" & _
"Data Source=F:\MCV\System\Database\Database.dbc;" & _
"Password='';Collating Sequence=MACHINE"

Set miConnection = New ADODB.Connection
With miConnection

.ConnectionString = strConn
.CursorLocation = adUseClient
.Open
End With

Set miComando = New ADODB.Command
Set miRecordSet = New ADODB.Recordset
With miComando
.ActiveConnection = miConnection
.CommandType = adCmdText
.CommandText = "DELETE USUARIO FROM T0001 WHERE USUARIO = 'MIGUEL'"

Set miRecordSet = .Execute
LlenaSSgrid
SSgrid.Refresh
MsgBox "Listo !", vbInformation, "Delete"
End With
End Sub

Hola eliza_marti.

Como te dije en el post anterior, a mi entender es la grilla mas completa, pero no es gratis....

Pueden descargar una versión trial de la página de ComponentOne.

Aca les dejo el link.

www.componentone.com

Nos vemos

Gracias eliza_marti.


No creo que sea nuevo, es un ocx que según dicen permite hacer informes muy completos.

Saludos

Gracias amigo, pero para usarlo necesito la licencia

Faltaba el espacio, gracias Brroz

Muuuchas gracias a todos!!!


Nos vemos

No era eso, el problema es que me conecto con Ado y tengo instalado Office 97. Para usar el CopyFromRecordset con Ado, tengo que usar una versión de Excel superior al 2000.... (caprichos de Microsoft)

Pero si usas Dao no hay problema..... funciona perfecto y hace la transferencia muy rapido.

Gracias por responder.  

Hola:

Por favor necesito ayuda con este codigo, tengo que exportar los datos de un datagrid a excel pero no esta funcionando.

Gracias

Private Sub CommandExport_Click()

Dim Pxls as Object
Set Pxls = CreateObject("Excel.Application")
Pxls.Workbooks.Open "C:\Proyecto\Reportes\Reporte.xls"
Pxls.Workbooks.Open App.Path & "\Reporte.xls"
Pxls.Visible = False
Pxls.Worksheets("Hoja1").Activate

For i = 1 To grdDataGrid.Row - 1
grdDataGrid.Row = i
sCaracter = Char(64 + i)
For j = 1 To grdDataGrid.Col - 1
grdDataGrid.Col = j
xValorCelda = grdDataGrid.Text
sCelda = sCaracter & j
Pxls.Worksheets("Hoja1").Range(sCelda).Value = xValorCelda
xValorCelda = Pxls.Worksheets("Hoja1").Range(sCelda).Value
Next j
Next i
Pxls.ActiveWorkbook.Close SaveChanges:=True

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

Por favor, necesito ayuda con este código.
Cuando lo ejecuto me aparece Error 424 en tiempo de ejecución: Se requiere un objeto

Gracias


If grdDataGrid.Columns(5).Text = "Modificar registro" And grdDataGrid.Columns(37).Text = "<>" Then
cn.Execute "UPDATE MiTabla Set Texto = '" & datcboTexto & "' Where Texto =
"<>" And Option = Modificar registro"

datPrimaryRS.Refresh
grdDataGrid.Refresh

Else

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

Sí, pero ya lo solucione.

Gracias