SoloCodigo

Te envio un ejemplo de trabajar con excel.

Lo escencial esta en el abrir y cerrar la planilla.

El trabajo sobre la planilla, te lo dejo para tus neuronas. No es dificil.

Suerte

Podrias ser mas especifico en tu consulta.

Muchos sabemos muchas cosas, pero aun no somos brujos para adivinar que quieres especificamente

Hola estimados:

Alguno de ustedes utiliza spread 2.5 o superior?
Si es asi, la siguiente funcion hace que una celda determinada contenga un combobox con algunos datos.

Como obtengo el indice del item seleccionado?
Que evento o propiedad me da el indice del item seleccionado?

Gracias por vuestra ayuda.


Aqui va el codigo:

sString="Lun" & chr(9) & "Mar" & chr(9) & "Mie" & chr(9) & "Jue" & chr(9) & "Jue"
'Me ubico en la columna 5
spread.Col = 5
'Le indico a la planilla que la celda sera del tipo combobox
spread.CellType = 8
'Le adiciono los items al combobox
spread.TypeComboBoxList = sString

Ahi te va la ayuda

Utiliza lo siguiente en tu procedimiento

Private Sub Command1_Click()

On Error Goto Crtl_Error
nError=0
'Primero envia a la base de datos el inicio de la transaccion
'es decir envia BEGIN TRAN

'<aqui va la primera sentencia sql>
if nError=0 then
 '<Aqui va la segunda sentencia sql>
  if nError=0 then
    '<Aqui va la segunda sentencia sql>
  endif
endif
if nError=0 then
 'Envia el termino de la transaccion COMMIT TRAN
else
 'Envia que se reversen los cambios con ROOLBACK TRAN
endif
Exit Sub

Ctrl_Error:
  nError=Err.Number
  msg="Error " & Err.Number & vblf & Err.Description
  msgbox msg,vbcritical,"Advertencia
  Resume Next
End Sub

Ahi te va un ejemplo.
Analizalo y veras que es facil.

Voy a tratar de responder tu problema, de lo poco que entendi:

1). Una de las falencias del combobox, es que simplemente te sirve
     para datos discretos.
     Por ejemplo:
     Para el sexo, utilizas el combobox con

     cmbSexo.additem "Masculino"
     cmbSexo.additem "Femenino"

     Y tu sabes que si selecciona "Masc", el indice es 0,
     y si selecciona "Fem" el indice es 1.

     En este control solo tienes referencia al indice seleccionado, es decir, a
     la posicion del registro seleccionado.

     En el caso de multiples datos, el combobox no te sirve.

2). En tu caso  te sirve el listview o el treeview, ya que ambos tienen
     la particularidad de almacenar "clave" y "texto", de manera que cuando
     selecciones un nodo, puedes saber la clave y con ella, buscar tus datos
     y mostrarlos.

3) Te adjunto un ejemplo.
    En un form, inserta un listview y un treeview y coloca el siguiente codigo:


En el form, en la seccion declaraciones coloca

Dim gNodoTrv As Node
Dim gNodoLst As ListItem


Private Sub Form_Load()
'El cargar el listview es de la forma
'SET var=nombrelst.LISTITEM.ADD(posicion,clave,texto)
'La clave debe comenzar con un caracter siempre
Set gNodoLst = ListView1.ListItems.Add(1, "T1", "Uno")
Set gNodoLst = ListView1.ListItems.Add(2, "T2", "Dos")
Set gNodoLst = ListView1.ListItems.Add(3, "T3", "Tres")

'El cargar el treeview es de la forma
'Para el padre
'SET var=nombretrv.NODES.ADD( , ,clave,texto)
'La clave debe comenzar con un caracter siempre
'Para el hijo
'SET var=nombretrv.NODES.ADD( clavepadre,TVWCHILD ,clavehijo,texto)
'La clave debe comenzar con un caracter siempre

'Inserto los nodos padres
Set gNodoTrv = TreeView1.Nodes.Add(, , "T1", "Uno")
'Con esta instruccion, le digo, que el nodo se abra y muestre los hijos
gNodoTrv.Expanded = True
Set gNodoTrv = TreeView1.Nodes.Add(, , "T2", "Dos")
gNodoTrv.Expanded = True
Set gNodoTrv = TreeView1.Nodes.Add(, , "T3", "Tres")
gNodoTrv.Expanded = True

'Ahora se insertan nodos hijos
Set gNodoTrv = TreeView1.Nodes.Add("T1", tvwChild, "T11", "Hijo 11")
Set gNodoTrv = TreeView1.Nodes.Add("T1", tvwChild, "T12", "Hijo 12")
Set gNodoTrv = TreeView1.Nodes.Add("T2", tvwChild, "T21", "Hijo 21")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T31", "Hijo 31")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T32", "Hijo 32")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T33", "Hijo 33")
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
msg = "Clave=" & Item.Key & vbLf
msg = msg & "Texto=" & Item.Text
MsgBox msg
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
msg = "Clave=" & Node.Key & vbLf
msg = msg & "Texto=" & Node.Text
MsgBox msg
End Sub


Espero te sirva de referencias.

Si has participado en el foro, te habras dado cuenta, que para poder ayudar a personas que tienen algun problema en su aplicacion explican con detalle su situacion o anexan el codigo para analizarlo y asi dar solucion.

Pero en tu caso, lo que se desprende de tu mensaje es:
-Sabes trabajar con archivos word, por que dices que YA tienes un procedimiento, pero, tiene un problema.

Lo que uno supone es:
- Querra guarda el textbox. Imposible. Quizas lo que quisiste decir, fue que deseabas guardar el contenido del textbox, que es algo totalmente distinto.

Ahora viene lo mejor,... ¿Como es tu procedimiento que tiene el error?

Si nos lo indicas, quizas te podamos ayudar, si no, es dar palos de ciego.

Hola estimados:

Debo almacenar datos para que sean visibles pero no modificables.
He hecho unas tablas en access 2000, y las acceso y visualizo sin problemas, usando string de conexion.
Pero si a la base de datos, se agrego la seguridad de una contraseña, mi programa se conecta, pero me solicita la contraseña.
Si no la coloco, se para el programa,
Si la ingreso, el programa continua como si nada.

Mi problema, es que la aplicación la debo instalar en varios equipos, y la idea es que el programa se conecte a la base de datos, a pesar de tener la contraseña, ya que el programa le pasa el string de conección pero no lo considera.

Les envio la base de datos, y el programa pa' que me indiquen donde esta el problema

GRACIAS,

Miguel

En un mensaje anterior, enviaste un codigo serial para el vsflexgrid pro 8.0, y lo baje desde donde lo indicabas (componenone).

Al momento de instalar, ingreso tu numero de serie, y me marca error.

Igualmente señalaste que podrias enviar control y que pesaba alrededor de 5 mb creo.

Sera posible que me lo envies a contacto@eynconsultores.cl

Muchas gracias de antemano por tu colaboracion.

Has de la siguiente forma

msflexgrid.rows=1
for x=inicio to fin
     fx=funcion(x)
     msflexgrid.rows=msflexgrid.rows+1
     msflexgrid.row=msflexfrid.rows-1
     msflexgrid.col=1:msflexgrid.text=x
     msflexgrid.col=2:msflexgrid.text=fx
next x

Ahora SI?

Espero que sirva

Que tipo de conexiones estas usando para conectarte a la base de datos.
ADO?
DAO?
RDO?

Dependiendo del tipo de conexion, seran las instrucciones que necesitas