• Sábado 10 de Mayo de 2025, 07:32

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

Páginas: 1 ... 4 5 [6] 7 8 ... 12
126
VBA / Re: Nombres De Campos De Una Bds
« en: Miércoles 19 de Octubre de 2005, 18:00 »
Que tal JMAlonso!

visita este link

127
Visual FoxPro / Registro Unico
« en: Martes 18 de Octubre de 2005, 17:14 »
Como les baila?

Quisiera saber, de una lista de indices unicos, cuando aparece el error : "Campo unico duplicado" cual de tantos es el que se repite?

muchas gracias por la atencion prestada.

128
Visual FoxPro / Re: Abrir Tablas Dbf Huerfanas
« en: Sábado 15 de Octubre de 2005, 17:33 »
Que tal Barri!

El comando USE te sirve para abrirlas, mira en la ayuda para más información.

129
Visual Basic 6.0 e inferiores / Re: Cuantas Tablas Tiene La Base De Datos?
« en: Sábado 15 de Octubre de 2005, 01:07 »
Que tal!

Código: Text
  1. Dim Cnx As ADODB.Connection
  2. Dim pth As String          'Database Path
  3. Dim Ctl    As ADOX.Catalog 'Database Catalog from Actual Connection
  4. Dim CtlTbl As ADOX.Table
  5. Dim Col    As ADOX.Column
  6. Dim sGen As String
  7. Dim i    As Integer
  8. Dim j    As Integer
  9. Dim k    As Integer
  10.  
  11. Private Sub cmdConectar_Click()
  12. On Error GoTo ErrGetPath
  13.  
  14.   ' Establece CancelError a Verdadero
  15.   cdlBasedatos.CancelError = True
  16.   ' Establece banderas
  17.   cdlBasedatos.Flags = cdlOFNHideReadOnly
  18.   ' Establece filtros
  19.   cdlBasedatos.Filter = "All Files(*.*)|*.*|Access 2000 DB (*.mdb)|*.mdb"
  20.   ' Especifica filtro por defecto
  21.   cdlBasedatos.FilterIndex = 2
  22.   cdlBasedatos.ShowOpen
  23.   pth = cdlBasedatos.FileName
  24.   If LenB(pth) > 0 And LenB(Dir(pth)) > 0 Then
  25.     Coneccion
  26.     If Not (Cnx Is Nothing) Then
  27.       LlenaTabla
  28.     End If
  29.   End If
  30.   Exit Sub
  31.  
  32. ErrGetPath:
  33.   'User pressed the Cancel button
  34.   pth = vbNullString
  35. End Sub
  36.  
  37. Sub Coneccion()
  38.  
  39.   On Error GoTo CnnError
  40.   Dim strCnn As String
  41.  
  42.   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
  43.   strCnn = strCnn & "Data Source=" & pth & ";"
  44.   strCnn = strCnn & "Jet OLEDB:Engine Type=5;"
  45.  
  46.   Set Cnx = New ADODB.Connection
  47.   Cnx.Open strCnn
  48.   Exit Sub
  49.  
  50. CnnError:
  51. Dim psw As String
  52.  
  53.   Select Case Err
  54.     Case Is = -2147217843 'Database password incorrect
  55.       psw = ObtainPassword
  56.       strCnn = vbNullString
  57.       strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
  58.       strCnn = strCnn & "Data Source=" & pth & ";"
  59.       strCnn = strCnn & "Jet OLEDB:Engine Type=5;"
  60.       strCnn = strCnn & psw
  61.       If LenB(psw) = 0 Then
  62.         Resume Next
  63.       Else
  64.         Resume
  65.       End If
  66.     Case Else
  67.       MsgBox "Error Number : " & Err & vbCrLf & Error, vbCritical, Err.Source
  68.       End
  69.   End Select
  70. End Sub
  71.  
  72. Sub LlenaTabla()
  73.  
  74.   On Error GoTo ErrorTab
  75.  
  76.   Screen.MousePointer = vbHourglass
  77.  
  78.   Set Ctl = New ADOX.Catalog
  79.   Ctl.ActiveConnection = Cnx
  80.   i = 0
  81.   'Table Definitions
  82.   For Each CtlTbl In Ctl.Tables
  83.     If CtlTbl.Type = "TABLE" Then
  84.       lstTablas.AddItem CtlTbl.Name
  85.     End If
  86.   Next
  87.  
  88.   Screen.MousePointer = vbDefault
  89.   Exit Sub
  90.  
  91. ErrorTab:
  92.   MsgBox Err.Description, vbCritical
  93.   Screen.MousePointer = vbDefault
  94. End Sub
  95.  
  96. Private Function ObtainPassword() As String
  97.  
  98.   Dim psw As String
  99.  
  100.   psw = vbNullString
  101.  
  102.   Do While Len(psw) = 0
  103.     frmLogin.Show vbModal
  104.     psw = frmLogin.Password
  105.     If frmLogin.NoMore Then
  106.       ObtainPassword = vbNullString
  107.       Exit Do
  108.     End If
  109.   Loop
  110.   If Len(psw) > 0 And (Not frmLogin.NoMore) Then
  111.     ObtainPassword = ";Jet OLEDB:Database Password=" & psw & ";"
  112.     Unload frmLogin
  113.   Else
  114.     MsgBox "Entre el password correcto.", vbExclamation
  115.     ObtainPassword = vbNullString
  116.     Set Cnx = Nothing
  117.     Unload frmLogin
  118.   End If
  119. End Function
  120.  
Este es un ejemplo que descargue de freecode y utiliza ADOX. Este es con DAO
Código: Text
  1. Private Sub cmdBasedatos_Click()
  2. Dim tblObj As TableDef
  3. On Error GoTo errCancelCommon
  4.     Abierto = False
  5.     Adiciono = False
  6.     cdlBasedatos.CancelError = False
  7.     cdlBasedatos.ShowOpen
  8.     If Len(cdlBasedatos.FileName) <> 0 Then
  9.         cmdCodigos.Enabled = True
  10.         On Error Resume Next
  11.         Set Cnx = New ADODB.Connection
  12.         With Cnx
  13.             For i = 0 To 5 Step 0.1
  14.                 .CursorLocation = adUseClient
  15.                 .ConnectionString = "Provider=Microsoft.Jet.OLEDB." & Replace(Format(i, "0.0"), ",", ".") & ";Persist Security Info=False;Data Source=" & cdlBasedatos.FileName & ";Jet OLEDB:Database Password=;"
  16.                 .Open
  17.                 If .State = 1 Then Exit For
  18.             Next
  19.             If .State = 0 Then
  20.                 MsgBox "No se encontró una versión adecuada para iniciar el motor de la BD.", vbCritical, "Error al iniciar"
  21.                 .Close
  22.                 End
  23.               Else
  24.                 Abierto = True
  25.                 cmbTablas.Clear
  26.                 'Abró la base de datos y lo asigno a la variable
  27.                 Set gdbCurrentDB = DBEngine.OpenDatabase(cdlBasedatos.FileName, False, False, ";pwd=")
  28.                
  29.                 For Each tblObj In gdbCurrentDB.TableDefs
  30.                     If (tblObj.Attributes And dbSystemObject) = 0 Then 'Valido que las tablas no sean del sistema, adiciono al combo
  31.                         cmbTablas.AddItem tblObj.Name
  32.                     End If
  33.                 Next
  34.             End If
  35.         End With
  36.     End If
  37.     Exit Sub
  38. errCancelCommon:
  39.    
  40. End Sub
  41.  
Espero les sirva

130
Visual FoxPro / Re: Scroll Con Form Y Campo Unico
« en: Viernes 14 de Octubre de 2005, 18:13 »
Que tal Juez!

gracias por tu respuesta, ese modulo ya lo tenia, y si me saca el error que el indice esta repetido (en realidad dice que ha sido violado)  en realidad lo que yo quiero es que antes de guardar me diga que ya esta repetido, en otro formulario tengo casi lo mismo, y cuando llega a la linea TABLEUPDATE() Try intercepta el error y ahí pongo mi mensage, pero en este espera hasta que se mueva, ya no se que hacer...  :(

131
Visual FoxPro / Re: Scroll Con Form Y Campo Unico
« en: Miércoles 12 de Octubre de 2005, 21:17 »
Claro, y solo por hoy pondré el código con que cargo el formulario, solo es oferta  :D:
Este codigo va en un metodo que cree para el formulario CargaControles:
Código: Text
  1. PARAMETERS Carpeta as String, TablaCampos as String, TablaDigitacion as String
  2. Public loErr AS Exception
  3. Local loSuccess as Boolean, loTop as Integer
  4. LOCAL loObjeto as String, loOrigenDatos as String, loControl as String, loPrefijo as String &&Prefijo del nombre del Control
  5. LOCAL loTablaAbierta as String &&La tabla que se abrira para el combo
  6.  
  7. Try
  8.   SET MULTILOCKS ON
  9.  
  10.    USE FULLPATH(CURDIR()) + ALLTRIM(Carpeta) + "\" + TablaCampos IN 0
  11.   loSuccess = CURSORSETPROP("Buffering",5,TablaCampos)
  12.   IF loSuccess = .T.
  13.     MESSAGEBOX("Se ha conectado a la Tabla " + TablaCampos + " con exito.",64,"Enlace a Datos")
  14.     SET ORDER TO Posicion
  15.     COPY TO Array loCamposFijos FIELDS nomcampo,etiqueta,tipcontrol,relacion,requerido FOR Aparece = .T.
  16.   EndIf
  17.   loSuccess = .F.
  18.   USE FULLPATH(CURDIR()) + ALLTRIM(Carpeta) + "\" + TablaDigitacion IN 0
  19.   loSuccess = CURSORSETPROP("Buffering",5)
  20.   IF loSuccess = .T.
  21.     MESSAGEBOX("Se ha conectado a la Tabla " + TablaDigitacion + " con exito.",64,"Enlace a Datos")
  22.  
  23.     SELECT 2
  24.     loTop = 38
  25.     FOR I = 1 TO ALEN(loCamposFijos,1)
  26.       WAIT WINDOW "Creando los campos para la digitación." NoWait
  27.       AdicionControles(ThisForm, 'lbl' + ALLTRIM(loCamposFijos(I,1)), "Label", loTop, 5,&#59;
  28.         FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, ALLTRIM(loCamposFijos(I,2)))
  29.  
  30.       IF loCamposFijos(I,3) = "Normal"
  31.         IF TYPE(FIELD(ALLTRIM(loCamposFijos(I,1)))) = "L"
  32.           loControl = "CheckBox"
  33.           loPrefijo = "chk"
  34.           ELSE
  35.           IF FSIZE(ALLTRIM(loCamposFijos(I,1))) < 49
  36.             loControl = "TextBox"
  37.             loPrefijo = "txt"
  38.             ELSE
  39.               loControl = "EditBox"
  40.             loPrefijo = "edt"
  41.           EndIf
  42.         EndIf
  43.         ELSE
  44.         loControl = "ComboBox"
  45.         loPrefijo = "cmb"
  46.       EndIf
  47.       loObjeto      = loPrefijo + ALLTRIM(loCamposFijos(I,1))
  48.       loOrigenDatos = '"' + TablaDigitacion + "." + ALLTRIM(loCamposFijos(I,1)) + '"'
  49.       AdicionControles(ThisForm, loObjeto, loControl, loTop, 99,&#59;
  50.               FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, "")
  51.       ThisForm.&loObjeto..ControlSource = &loOrigenDatos
  52.       ThisForm.&loObjeto..Tag = IIF(loCamposFijos(I,5) = .F.,"N","S")
  53.       IF loControl = "ComboBox"
  54.         loTablaAbierta = ALLTRIM(loCamposFijos(I,4))
  55.         IF NOT USED(loTablaAbierta)
  56.           USE FULLPATH(CURDIR()) + "Globales\" + loTablaAbierta IN 0
  57.         EndIf
  58.         loOrigenDatos = loTablaAbierta + ".descripcio,codigo"
  59.         ThisForm.&loObjeto..ColumnWidths = "190,50"
  60.         ThisForm.&loObjeto..BoundColumn  = 2
  61.         ThisForm.&loObjeto..ColumnCount  = 2
  62.         ThisForm.&loObjeto..FirstElement = 1
  63.         ThisForm.&loObjeto..RowSourceType = 6
  64.         ThisForm.&loObjeto..RowSource    = loOrigenDatos
  65.       EndIf
  66.  
  67.       loTop = loTop + ThisForm.&loObjeto..Height + 5
  68.     Next
  69.   ThisForm.txtColor1.ControlSource = "Daniel.color"
  70.   EndIf
  71.   SELECT &TablaDigitacion
  72.   EstadoControles(ThisForm, .F.)
  73.   Desplazamiento (ThisForm, 92)
  74.  
  75.  Catch To loErr
  76.   MESSAGEBOX(loErr.Message,48,"Error")
  77. EndTry
  78.  
Este es con el que guardo:
Código: Text
  1. Local strClase as String, intCo as Integer, loErr as Exception
  2.  
  3. Try
  4.   FOR intCo = 1 TO ThisForm.ControlCount
  5.     IF INLIST(ThisForm.Controls(intCo).BaseClass,"Textbox","Editbox","Combobox")
  6.       IF ThisForm.Controls(intCo).Tag = "S" AND ALLTRIM(ThisForm.Controls(intCo).Value) = ""
  7.         Messagebox("Debe llenar " + ThisForm.Controls(intCo - 1).Caption + " para guardar.",48,"Faltan Datos")
  8.         Cancel
  9.       EndIf
  10.       ELSE
  11.         IF ThisForm.Controls(intCo).BaseClass = "Checkbox"
  12.           IF ThisForm.Controls(intCo).Tag = "S" AND ThisForm.Controls(intCo).Value = .F.
  13.           Messagebox("Debe llenar " + ThisForm.Controls(intCo - 1).Caption + " para guardar.",48,"Faltan Datos")
  14.           Cancel
  15.         EndIf
  16.       EndIf
  17.     EndIf    
  18.   Next
  19.  
  20.   TABLEUPDATE()
  21.  
  22.   IF BAdicion
  23.     GO BOTTOM
  24.   EndIf
  25.  
  26.   BAdicion = .F.
  27.   BEdicion = .F.
  28.  
  29.   Desplazamiento (ThisForm, 92)
  30.   EstadoControles(ThisForm, .F.)
  31.   BotonesEdicion (ThisForm, .T.)
  32. Catch To loErr
  33.    IF loErr.ErrorNo = 1884
  34.     Messagebox("Este registro esta Repetido.",16,"Dato Repetido")
  35.     ThisForm.txtPosicion.value = mAnterior
  36.    ELSE  
  37.            Messagebox(loErr.Message,48,"Error")
  38.   EndIf
  39. Finally
  40.   ThisForm.Refresh()
  41. EndTry
  42.  
y este es el de cancelar:
Código: Text
  1. TABLEREVERT()
  2.  
  3. IF Bmk <> 0
  4.   GO Bmk
  5. EndIf
  6.  
  7. BAdicion = .F.
  8. BEdicion = .F.
  9.  
  10. Desplazamiento (ThisForm, 92)
  11. EstadoControles(ThisForm, .F.)
  12. BotonesEdicion (ThisForm, .T.)
  13.  
  14. ThisForm.Refresh()
  15.  
Muchas gracias por tu atención.

132
Visual FoxPro / Re: Scroll Con Form Y Campo Unico
« en: Martes 11 de Octubre de 2005, 23:01 »
Gracias Juez Funciono una parte, ahora si me avisa que el indice se esta duplicando pero cuando cancelo la accion o trato de guardar  aparece el mensaje que la tabla debe tener buffer de registro o tabla. ¡HELP!

133
Visual FoxPro / Re: Scroll Con Form Y Campo Unico
« en: Martes 11 de Octubre de 2005, 16:51 »
Que tal Juez, encantado de saludarte de nuevo :D!

Resulta que no hay error, y ese es el problema, cree un campo unico en una "Free Table" y cuando repito el dato en ese campo y lo guardo no pasa nada, no hay error de indice repetido ni algo parecido, el error aparece cuando me muevo adelante o atrás y lo mas raro es que en otro formulario (con otra tabla) lo hago igual y si se genera el error de indice duplicado.

134
General / Re: La Web De Juank
« en: Jueves 6 de Octubre de 2005, 23:37 »
Me gusto muchos la pagina, que bien por vos JuanK

:bravo:

135
General / Re: La Web De Juank
« en: Jueves 6 de Octubre de 2005, 23:19 »
Me gusto mucho la pagina y al igual que Blag quiero leerla completa

 :devil:  :alien:  :bravo:

136
Visual FoxPro / Scroll Con Form Y Campo Unico
« en: Jueves 6 de Octubre de 2005, 17:57 »
Hola como estan?

Tengo 2 problemas:

1. Cargo unos controles en el form de forma vertical, el formulario tiene un tamaño fijo. Tengo unos botones de edicion y cuando bajen con el scroll del form estos controles de edicion se deben mantener visibles.

2. Cargo en tiempo de ejecucion una tabla, tiene un campo unico, hize la prueba repitiendo un dato para que me apareciera el error y al momento de guardar no sale nada todo pasa normal, el error me aparece luego cuando me desplazo o cierro el formulario no se que pueda ser. El codigo que uso para abrir la tabla es el siguiente:
Código: Text
  1. SET MULTILOCKS ON
  2.    SELECT 0
  3.    USE FULLPATH(CURDIR()) + ALLTRIM(Carpeta) + "\" + TablaCampos
  4.    loSuccess = CURSORSETPROP("Buffering",5)
  5.  
Muchas gracias por la atencion prestada.

137
Visual Basic para principiantes / Re: Combobox Y Listview
« en: Viernes 30 de Septiembre de 2005, 00:58 »
Hola extended!

Yo lo haria con un campo logico, que se chequea cuando el usuario lo pasa al listview luego agregaria los campos que esten checkeados y a lo que termine la operación los deseleccionaria.

138
Visual Basic 6.0 e inferiores / Re: Ayuda Con Sql
« en: Viernes 30 de Septiembre de 2005, 00:48 »
Que tal!

No entiendo para que son las comillas simples en la consulta (a menos que sean para algun tipo de Requery o algo por el estilo, pero no lo creo), Si quieres que el recordset te traiga tu criterio debes hacerlo al momento que pides los datos y no antes, además la variable solo la dimensionas en el evento click así que no estara disponible en el Load. Yo lo haria así
Código: Text
  1. Private Sub cmdIngresar_Click()
  2. Dim getCedula As String
  3. getCedula = InputBox("Nro de Cedula:")
  4.  
  5. With rst1
  6.    .Open "SELECT * FROM ControlHora WHERE Cedula = " & getCedula & ", db, adOpenDynamic, adLockOptimistic
  7.    txtCedula = rst1!Cedula
  8.    txtNombre = rst1!Nombre
  9. End With
  10. End Sub
  11.  
lo que dice lop7 de la cedula es cierto si es texto la apertura del recordset cambia y quedaria así:
Código: Text
  1. .Open "SELECT * FROM ControlHora WHERE Cedula = '" & getCedula & "', db, adOpenDynamic, adLockOptimistic
  2.  
saludos.

139
Visual FoxPro / Re: Orden Pack
« en: Jueves 29 de Septiembre de 2005, 17:48 »
Hola sbo01!

Cuando das Delecte() lo que hace es poner una marca de borrado al lado izquierdo de la tabla. Para eliminarlos completamente das el comando Pack, ej:
Código: Text
  1. Use CualquierTabla
  2. Delete For nombre = "Elquesea"
  3. Pack &&Elimina los registros marcados para borrar
  4.  
para recuperar los que marcaste para borrar (con Delete) utilizas Recall.

Saludos.

140
Visual FoxPro / Re: Crear Tabla Desde Otra
« en: Martes 27 de Septiembre de 2005, 23:19 »
Listo, Cyclop as estare esperando :comp:

141
Visual Basic 6.0 e inferiores / Re: Como Invertir La Hoja En Word Desde Visual
« en: Lunes 26 de Septiembre de 2005, 18:11 »
Hola criman!

Este es el codigo para poner tu hoja horizontal desde vb
Código: Text
  1. NombredelDocumento.PageSetup.Orientation = wdOrientLandscape
  2.  
espero te ayude.

142
Visual FoxPro / Re: Comenzando En Vfox
« en: Lunes 26 de Septiembre de 2005, 15:37 »
Que tal mbrenes!

1. Primero debes enlazarlos, como una base de datos normal.
2. Hay una funcion TABLEUPDATE() y TABLEREVERT(), pones el buffer de la en 3 y listo ya podes actualizar o cancelar alguna acción.

143
Visual FoxPro / Re: Calcular Ancho De Textos
« en: Sábado 24 de Septiembre de 2005, 17:43 »
:gracias: DrakerDG!

Con lo que posteste hize lo siguiente:
Código: Text
  1. loTObjeto = PADC("", FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, "O") &&Relleno una variabla con el tamaño del campo
  2. ThisForm.&loObjeto..Width = TXTWIDTH(loTObjeto,"Tahoma",8) * FONTMETRIC(6,"Tahoma",8) &&Calculo el ancho del
  3.  
Aunque no parece nada del otro mundo, pero padeci por esto, muchas gracias.

144
Visual FoxPro / Calcular Ancho De Textos
« en: Sábado 24 de Septiembre de 2005, 00:11 »
Como les baila?

Quisiera saber como puedo calcular el ancho de los textos dependiendo el tamaño del campo :unsure:, es como lo que ocurre cuando se arrastran los campos desde el DataEnvironmet al formulario, que vienen con el Width segun el campo que le corresponde. He visto la funcion TXTWIDTH() y FONTMETRIC(), pero no entiendo (mi ingles definitivamente no esta nada bien)  bien su finalidad pienso que alguna combinacion de ellos puede dar lo que busco, pero :(. Cualquier comentario, guia, referencia lo agradecere mucho.

145
Visual FoxPro / Re: Creacion De Controles
« en: Viernes 23 de Septiembre de 2005, 15:53 »
Gracias Cyclop, por tu respuesta la aplique y funciona, lo unico que no aplique fue lo del sys() busque en la ayuda "Sys(<No recuerdo el numero para el campo unico>)" campo unico y no vi nada, debe ser que ya estaba agotado, de nuevo muchas gracias :kicking:.

146
Visual FoxPro / Re: Crear Tabla Desde Otra
« en: Viernes 23 de Septiembre de 2005, 15:25 »
:lol:, gracias DrakerDG!

solo hize el comentario por que me lo hicieron y no encontre en la ayuda la capacidad de el tipo de variable String, ya lo probe y me deja mucho más tranquilo, gracias por tu respuesta.

147
Visual FoxPro / Re: Crear Tabla Desde Otra
« en: Viernes 23 de Septiembre de 2005, 01:31 »
Gracias Cyclop!

lo que pasa es en la Tabla de origen guardo la estructura de la tabla que voy a generar ej:
Etiqueta | Nomcampo | Tipcampo | Tamcampo
Alguna             | campo1               |    C                   |      20
Varias              |  campo2              |     L                   |        01

La tabla que se generará en resumen seria así: Create Table (Nomcampo Tipcampo(tamcampo)), lo cual quiere decir que seria así: Create Table ('campo1' C(20), 'campo2' L(01)). DrakerDG me sugirio que guardara eso en un string y si no estoy mal el tipo de dato string almacena 255 caracteres.

148
Visual FoxPro / Creacion De Controles
« en: Jueves 22 de Septiembre de 2005, 22:44 »
Como estan?  :hola:

Tengo un formulario al cual le envio la ruta de una tabla para que se enlaze con ella y cargue unos textos o combos, hasta ahí es bien. Pero cuando quiero hacer referencia al control que cree por el nombre no se como, así que lo hize de la siguiente forma
Código: Text
  1. ThisForm.AddObject('txt' + ALLTRIM(loCamposFijos(I,1)),'TextBox')
  2.   Ultimo = ThisForm.ControlCount
  3.   ThisForm.Controls(Ultimo).Top = loTop
  4.   ThisForm.Controls(Ultimo).Left = loLeft
  5.   ThisForm.Controls(Ultimo).Visible = .T.
  6.  
La primera pregunta es ¿Quisiera saber si hay una forma más técnica o mejor de hacer la referencia al ultimo objeto que cree?.

2. Como lo quiero enlazar con el campo de la tabla lo hago de la siguiente forma
Código: Text
  1. ThisForm.Controls(Ultimo).ControlSource = TablaDigitacion + '.' + ALLTRIM(loCamposFijos(I,1))
  2.  
pero me dice que no reconoce la variable (donde esta el alltrim). Como puedo enlazarlo? Muchas gracias por sus comentarios.

149
Visual FoxPro / Re: Crear Tabla Desde Otra
« en: Jueves 22 de Septiembre de 2005, 17:59 »
Gracias, por tu respuesta DrakerDG!

El codigo quedo así:
Código: Text
  1. LOCAL loCarpeta as String, loCrear as Boolean, loEjecutaCrear as String
  2. DIMENSION GeneraTabla(1,1)
  3.  
  4. IF EMPTY(strTablaActiva)
  5.   MESSAGEBOX(&#34;No hay ninguna tabla activa.&#34;,64,&#34;Generar Tabla&#34;)
  6.   ELSE
  7.   IF BOF() AND EOF()
  8.     MESSAGEBOX(&#34;No hay registros para crear la Tabla.&#34;,64,&#34;Generar Tabla&#34;)
  9.     ELSE
  10.       loCarpeta = GETFILE('DBF','','Crear',1,'Crear tabla')
  11.  
  12.     IF NOT EMPTY(loCarpeta)
  13.       loCrear = .T.
  14.       IF FILE(loCarpeta) = .T.
  15.         Result = MESSAGEBOX(&#34;¿Este archivo ya existe desea remplazarlo?&#34;,4 + 32)
  16.         IF Result = 6
  17.           loCrear = .T.
  18.           ELSE
  19.           loCrear = .F.
  20.         EndIf
  21.       EndIf
  22.       IF loCrear = .T.
  23.           PosicionB = RATC(&#34;&#092;&#34;,loCarpeta) && Posicion del primer backslash de derecha a izquierda
  24.         Extencion = LEN(ALLTRIM(loCarpeta)) - (PosicionB + 4) && Para quitar la extencion con s
  25.         strEspacio = SUBSTR(loCarpeta,PosicionB + 1,Extencion)
  26.         IF AT(&#34; &#34;,strEspacio) &#62; 0
  27.           MESSAGEBOX(&#34;El nombre de la Tabla no puede contener espacios.&#34;,64)
  28.           ELSE
  29.           
  30.           DIMENSION GeneraTabla(RECCOUNT(),3) && Dimensiono el Vector para los Campos
  31.           
  32.           Bmk = RECNO()
  33.           GO TOP
  34.           loEjecutaCrear = &#34;Create Table &#34; + loCarpeta + &#34;(&#34;
  35.           I = 1
  36.           DO WHILE NOT EOF()
  37.             loEjecutaCrear = loEjecutaCrear + &#34;'&#34; +  ALLTRIM(nomcampo) + &#34;'&#34;;
  38.                     + SPACE(1) + ALLTRIM(tipocampo) + &#34;(&#34; + ALLTRIM(tamcampo) + &#34;)&#34;
  39.             IF I &#60; RECCOUNT()
  40.               loEjecutaCrear = loEjecutaCrear + &#34;, &#34;
  41.               I = I + 1
  42.             EndIf
  43.             Skip
  44.           EndDo
  45.           loEjecutaCrear = loEjecutaCrear + &#34;)&#34;
  46.           &loEjecutaCrear
  47.  
  48.         EndIf
  49.       EndIf
  50.     EndIf
  51.   EndIf
  52. EndIf
  53.  

150
Visual Basic 6.0 e inferiores / Re: Ordenar Una Msflexgrid
« en: Jueves 22 de Septiembre de 2005, 16:44 »
Hola solitario_lobo!
Código: Text
  1. Private Sub dgGrilla_HeadClick(ByVal ColIndex As Integer)
  2.     rsRecordSet.Sort = dgGrilla.Columns(ColIndex).DataField
  3. End Sub
  4.  

saludos.

Páginas: 1 ... 4 5 [6] 7 8 ... 12