SoloCodigo

No consigo ver la diferencia entre el primer código, el que fallaba, y este nuevo.

Donde está la diferencia? porqué funciona ahora ?  

Ya he subido a la cuenta que creó Gerard el fichero MFC42.dll que me pediais.

Si ocurre algo más con el fichero o no ha subido bien comunicadmelo.

Recordad que este fichero intenta solucionar el error que provoca Crystal al intentar conectarse a la base de datos y que da el mensaje de no poder acceder a SQL.

Salu2

Gracias por responder, pero me refiero a un proyecto que ya tengo terminado traducir las pantallas a HTML.

He encontradoi en la red programitas que algo me hacen, pero estan muy limitados y los combos o los tabs (por ejemplo) no me los traduce.

Salu2

Este último error me daba a mí hasta que actualicé la librería MFC42.dll

Prueba con esta

Hola

Alguien sabe si se puede exportar o pasar de alguna manera un formulario de visual a una web???

Gracias

Debes decirle que ID es de la siguiente manera

ObjCrystal.SelectionFormula = "ID_CLIENTE=2"

Salu2

1º Gerard, soy Jaume, no Juan  je, je ,jeee

2º Entrar en el proyecto en el que queremos poner un gif animado.

3º Ir al menú Proyecto/Componentes y pulsar el botón de Examinar.

Buscad el OCX en la ruta donde lo teneis guardado y seleccionadlo.

Vereis que se suma a la lista y queda marcado.

Aceptar. Al hacer esto estamos registrando el OCX en nuestra máquina.

4º lo seleccionamos y lo ponemos, como si fuera un PictureBox normal, allí donde queremos situar el gif.

5º En las propiedades, vamos a Filename y le indicamos el fichero gif a reproducir y...

a correr !!!    

Es muy facil, no os tiene que dar problemas

Salu2

He contestat el teu missatge a U2U, que no l'havia vist.

Ha sido un error, el código que he puesto aquí escrito no es el de mi web, sinó que he copiado un enlace y lo he retocado solo para poner el ejemplo, sin darme cuenta de este detalle.

Tal y como he comentado antes yo los hago con HTML, pero el WebBrowser, al indicarle la ruta pone:

WebBrowser.Navigate "http://foros.solocodigo.com/post.php?action=edit&fid=14&tid=2759&pid=6602"

http, no HTML  (se me ha ido la olla)

Disculpas por este desliz..... es que estais en todo eh!!!!  

Hola a todos

Tengo el siguiente problema.

Estoy haciendo una web con dreamweaver, pero la quierop poner en un CD y arrancarla desde visual basic, como si fuera un CD de Demostración.

Para ello he creado un objeto WebBrowser, pero cuando le indico que me abra la página inicial, que está en el disco duro y no en la red, me genera un error porque no la encuentra.

Alguien sabe como debo hacerlo?

Salu2

Yo utilizo esta función, prueba si te funciona

'Llamada a la función
uctTotalReg.text = LoadGrid(cSQLGrid, MSFGrid, mdb)

'Código de la función
Public Function LoadGrid(strSQL As String, Grid As MSFlexGrid, gDB As Database, _
                         Optional bVisuMens, Optional bAdd, _
                         Optional frmVentana) As Integer
'
' strSQL      --> Frase Sql
' Grid        --> MSFlexGrid
' gDB         --> Base de Datos
' bVisuMens   --> Si es true se visualica el mensaje de que no se han encontrado
'                 registros y si es False no lo visualica.
' bAdd        --> Si es true se añade una linea en blanco en el Grid.
' frmVentana  --> Es el Nombre de la VENTANA PADRE. En la ventana padre tiene que
'                 existir la Function rutina con la etiqueta ControlReg.
'                 A esta rutina se envia el Recordset y la rutina devuelve un true o
'                 false segun si se quiere visualizar o no el registro.
'

  Dim sVal As String
  Dim sbuffer, cMensaje As String
  Dim iCont As Long, iFixed As Long, OutLen As Long
  Dim iRows As Integer
  Dim bExisteReg, bControl, bOk As Boolean
  Dim rRes As Recordset
  Dim i As Integer
 
  If IsMissing(bAdd) Then bAdd = False
  If IsMissing(bVisuMens) Then bVisuMens = True
  If IsMissing(frmVentana) Then
    bControl = False
    bOk = True
  Else
    bControl = True
  End If
 
  On Error GoTo GestError

  'Poner el cursor a reloj y no repintar el grid
  Grid.MousePointer = flexHourglass
  Grid.Redraw = False

  ' Ejecutar frase SQL
  If Not CSalir Then
      Set rRes = gDB.OpenRecordset(strSQL)
     
      'Eliminar filas del grid
      iFixed = Grid.FixedRows
      If Not bAdd Then
        If iFixed > 0 Then
          Grid.Rows = iFixed + 1
        Else
          Grid.Rows = 1
        End If
      End If
   
      'Obtener datos del grid
      iCont = 1
      bExisteReg = False
   
      Do While Not rRes.EOF
        sVal = ""
        If bControl Then
            bOk = frmVentana.ControlReg(rRes)
        End If
        If bOk Then
          For i = 0 To rRes.Fields.Count - 1
            If rRes.Fields(i).Type = dbBoolean Then
              If rRes.Fields(i) = True Then
                sVal = sVal + "SI" + Chr(9)
              ElseIf rRes.Fields(i) = False Then
                sVal = sVal + "NO" + Chr(9)
              End If
            Else
              If IsNumeric(rRes.Fields(i)) Or IsDate(rRes.Fields(i)) Then
                sVal = sVal + CStr(rRes.Fields(i)) + Chr(9)
              Else
                If IsNull(rRes.Fields(i)) Then
                  sVal = sVal + Chr(9)
                Else
                  sVal = sVal + rRes.Fields(i) + Chr(9)
                End If
              End If
            End If
          Next i
          iRows = 1
          sbuffer = sbuffer + sVal + vbCr
          iCont = iCont + iRows
          bExisteReg = True
        End If
        rRes.MoveNext
      Loop
      'Si se han obtenido datos se carga el Grid
      If (iCont > 1) Then
        If bAdd Then
          Dim iActualNum As Long
          iActualNum = Grid.Rows
          Grid.Rows = iActualNum + iCont - 1
          Grid.Row = iActualNum
        Else
          Grid.Rows = iFixed + iCont - 1
          Grid.Row = iFixed
        End If
        Grid.col = 0
        Grid.RowSel = Grid.Rows - 1
        Grid.ColSel = Grid.Cols - 1
        Grid.Clip = sbuffer
        Grid.RowSel = iFixed
        If iFixed Then Grid.RowHeight(iFixed) = Grid.RowHeight(0)
      Else
        If Not bAdd Then Grid.RowHeight(iFixed) = 0
      End If
   
    '  Grid.Row = Grid.RowSel
   
    '  If Grid.Rows > Grid.FixedRows Then
    '    Grid.Rows = iFila
    '    Grid.RowHeight(Grid.FixedRows) = 240
    '    Grid.Row = 1
    '    Grid.RowSel = 1
    '    Grid.Col = 0
    '    Grid.ColSel = Grid.Cols - 1
    '  Else
    '    Grid.RowHeight(Grid.FixedRows) = 0
    '  End If
     
      'Devuelve el numero de filas cargadas
       LoadGrid = iCont - 1
     
      'Reestablecer el mouse y repintar el grid
      Grid.Redraw = True
      Grid.MousePointer = flexDefault
     
      If Grid.RowHeight(iFixed) = 0 And bVisuMens Then
        cMensaje = "No se han encontrado registros," & _
                   Chr(13) & "que cumplen las condiciones de búsqueda."
        MsgBox cMensaje, vbOKOnly + vbExclamation, "Seleccion"
      End If
      rRes.Close
  End If
  Exit Function

GestError:
  Grid.MousePointer = flexDefault
  Select Case Err
    Case 3261
      cMensaje = "La tabla está bloqueada en modo exclusivo."
    Case Else
      cMensaje = "Se ha producido el error:" & Err.Description
  End Select
  MsgBox cMensaje, vbOKOnly + vbCritical, "Error:" + str$(Err)

End Function

Te paso un ejemplo.

No lo ejecutes porque no funciona, solo he puesto como deberías hacerlo

Salu2

Tienes que instalar los drivers del motor de base de datos que utilices,  en las máquinas clientes