|
Mostrar Temas
|
Páginas: 1 2 3 4 [5]
|
41
|
Programación / Programación Visual Basic / mshflexgrid
|
en: 1 Mayo 2007, 01:10 am
|
hola bueno mi problema es el siguiente tengo un mshflexgrid enlazado con una base de datos entonces cuando cambio los nombres en la base de datos me provoca un error y no me muestra nada quiero saber por que sucede esto
quiero cambiarle los nombres a los campos de las base de datos y despues cuando los cambio y ejecuto el programa me da un erro por fa ayudenme
|
|
|
42
|
Programación / Programación Visual Basic / Excel y Visual Basic como ?????
|
en: 16 Abril 2007, 06:20 am
|
hola necesito un favor de ustedes me han dicho que en el msflexgrid se puede agregar datos y se puede modificar y eso mi caso es este
estoy haciendo un programa que me saque un control de gestion de una empresa la cual lleva ahorita todo eso en excel y yo lo que quiero es traer ese formato de excel a visual basic por medio del msflexgrid(si saben algo mas sencillo).
otro caso es este trayendo ese formato de excel a vb yo pudiera hacer los mismo como si lo estubiera haciendo en excel es decir sacar las funciones que me daba en excel las cuales son suma y resta y el porcentaje.
yo lo que quiero en si es traer ese formato de excel a vb para hacer todo eso sin necesidad de enrollarme tanto haciendo codigo para que me saque porcentaje y todo lo demas, claro tengo que escribir y poder modificar lo que traiga en excel ------------------------------------------------------------------------------- ------------------------------------------------------------------------------- mi codigo es este ------------------------------------------------------------------------------- ------------------------------------------------------------------------------- en el frm_Lectura tengo este ------------------------------------------------------------------------------- ------------------------------------------------------------------------------- Private Sub Form_Load() Inicio Caracteristicas FormatearTabla LlenadoDeTabla End Sub --------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) Finalizar End Sub --------------------------------------------------------------- Private Sub mnuSalir_Click() ApliNudos.Quit End End Sub
------------------------------------------------------------------------------- ------------------------------------------------------------------------------- y en el modulo que seria Lectura(Lectura.bas) tengo este ------------------------------------------------------------------------------- Option Explicit
Public ApliNudos As Excel.Application Public LibroNudos As Excel.Workbook Public HojaNudos As Excel.Worksheet Public RangoNudos As Excel.Range Public CeldaVacia As Integer Public Columnas As Integer Public Filas As Integer Public i As Integer, j As Integer Public Sub Caracteristicas() Set HojaNudos = LibroNudos.Sheets(1) Set RangoNudos = HojaNudos.Rows(1) If (RangoNudos.Cells(1, 1) = "") Then CeldaVacia = 0 Else CeldaVacia = RangoNudos.Find("").Column End If Columnas = CeldaVacia Set RangoNudos = HojaNudos.Columns(1) If (RangoNudos.Cells(1, 1) = "") Then CeldaVacia = 0 Else CeldaVacia = RangoNudos.Find("").Row End If Filas = CeldaVacia Set HojaNudos = Nothing Set RangoNudos = Nothing End Sub
Public Sub Finalizar() Set ApliNudos = Nothing Set LibroNudos = Nothing Set HojaNudos = Nothing Set RangoNudos = Nothing End Sub
Public Sub FormatearTabla() With frmLectura.grdNudos .Cols = Columnas .Rows = Filas .Visible = True End With End Sub
Public Sub Inicio() Set ApliNudos = CreateObject("Excel.Application") Set LibroNudos = ApliNudos.Workbooks.Open(App.Path & "\Nudos1.xls") End Sub
Public Sub LlenadoDeTabla() Set HojaNudos = LibroNudos.Worksheets(1) For i = 1 To Columnas - 1 frmLectura.grdNudos.Col = i For j = 1 To Filas - 1 frmLectura.grdNudos.Row = j frmLectura.grdNudos.Text = HojaNudos.Cells(j, i) Next j Next i End Sub
Sub Main() frmLectura.Show End Sub
|
|
|
43
|
Programación / Programación Visual Basic / Excel y VB
|
en: 9 Abril 2007, 15:35 pm
|
bueno amigos tengo una duda yo tengo un formato de excel ya creado y estoy haciendo un programa en visual basic que quiero que me muestre este formato y yo poderle agregar eliminar modificar a esto.
|
|
|
44
|
Programación / Programación Visual Basic / acces y vb
|
en: 9 Marzo 2007, 05:30 am
|
bueno estoy aprendiendo a utilizar el visual basic y lo que necesito en este momento es como puedo yo buscar desde vb un registro de x persona desde una base de datos en acces
|
|
|
45
|
Programación / Programación Visual Basic / ayuda con error de descifrar
|
en: 19 Julio 2006, 21:48 pm
|
hola amigos tengo un problema, el cual es este tengo un programa que cifra y descifra pero solo me da la opcion de cifrar y para descifrar necesito hacerle unas modificaciones las cuales se las hago y me da un error alguien me podria hechar una manito este es el codigo
Option Explicit 'y puede servirle cuando necesita cifrar 'una contraseña por ejemplo 'No olvide que tiene que hacer referencia a la 'libreria ... EncrDescr.DLL ... desde Proyecto - Referencias - 'botón Examinar y luego la marca. 'La libreria puede estar en el directorio de C:\Windows\System 'o bien en el Path de la misma aplicacion 'una vez que su aplicacion hace referencia a la 'libreria, simplemente la llama cifrado (su_palabra) para cifrar su_palabra 'o bien descifrado (su_palabra) para descifrar su_palabra 'vea el ejemplo en el mismo codigo mas abajo
Private Sub Command1_Click() Dim MiPalabra 'PARA cifrar LA PALABRA MiPalabra = cifrado(Text1.Text) Text2.Text = MiPalabra 'si lo que quiere es descifrar algo 'lo haria de la siguiente forma 'obviamente tuvo que haber sido previamente 'cifrado con la misma libreria. 'PARA descifrar LA PALABRA 'MiPalabra = descifrado(Text1.Text) 'Text2.Text = MiPalabra End Sub
Private Sub Command2_Click() End End Sub
Private Sub Command3_Click() MsgBox "La llamada es: cifrado (palabra) o descifrado(palabra)desde su programa.", vbInformation End Sub
Private Sub Form_Load()
End Sub
|
|
|
|
|
|
|