Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ::: Devil :::

#181
Programación Visual Basic / consultas
18 Junio 2007, 16:18 PM
estoy en la creacion de un programa de unos pasantes de aqui del trabajo.

tengo el diseño del programa y todo lo demas ahora lo que quiero es hacer una consulta en mi programa que cuando meta una cedula me aparezca eso lo tengo listo pero que cuando le de al commandbutton me lleve hasta el data report solo con esa consulta que hice como puedo hacer
#182
Programación Visual Basic / conbobox
11 Junio 2007, 21:40 PM
hola tengo un problema que quiro hacer es un filtro con un combobox que cuando yo desplegue la lista me muestre por lo menos fecha 2007 y en un mshflexgrid muestre todos los datos del 2007 alguien me puede ayudar
#183
Programación Visual Basic / mshflexgrid
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
#184
sas eso es lo que quiero que me expliquen un poquito que estoy medio trancado no me recuerdo de mucho tenia tiempo que no programaba en visual basic y quiero que me expliquen un poco de como hacer esto
#185
sera que no me pueden ayudar o no tienen idea de lo que es por favor diganme
#186
<%@Language="VBScript"%>
<!-- Include file for VBScript ADO Constants -->
<!--#include File="adovbs.inc"-->
<%
   ' Connection string.
   strCon = "Provider=sqloledb;Data Source=myServer;Initial Catalog=Northwind;User Id=myUser;Password=myPassword"
         
   ' Create the required ADO objects.
   Set conn = Server.CreateObject("ADODB.Connection")
   Set rs = Server.CreateObject("ADODB.recordset")
         
   ' Open the connection.
   conn.Open strCon
   
   ' Retrieve some records.
   strSQL = "Select * from Shippers"
   rs.CursorLocation = adUseClient
   rs.Open strSQL, conn, adOpenStatic, adLockOptimistic

   ' Disconnect the recordset.
   Set rs.ActiveConnection = Nothing
      
   ' Release the connection.
   conn.Close

   ' Check the status of the connection.
   Response.Write("<BR> Connection.State = " & conn.State)

   Set conn = Nothing
   
   ' Use the diconnected recordset here.

   ' Release the recordset.
   rs.Close
   Set rs = Nothing
%>

---------------------------------------------------------

DisconnectRecordset(rs);

---------------------------------------------------------

rs.ActiveConnection = null;

----------------------------------------------------------

var oUtil = Server.CreateObject("Torrboy.JArgUtility");
   rs.ActiveConnection = oUtil.Nothing;

----------------------------------------------------------
#187
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
#188
Programación Visual Basic / Re: Excel y VB
10 Abril 2007, 14:06 PM
jejeje no yo me imagino eso tambien pero lo que quiero es algo especifico alguien que me de una idea en concreta para ver si se puede hacer
#189
Programación Visual Basic / Excel y VB
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.
#190
Programación Visual Basic / Re: acces y vb
13 Marzo 2007, 19:19 PM
aja esta bien sigue mi duda igual por que hay lo que hace es conectar a la base de datos.

lo que en si quiero es tener mi base de datos y yo poder desde mi programa en un textbox meterle datos a la base de datos y que los vaya guardando