Mensajes

Podes usar 3 formas para declarar:

Código (vb) [Seleccionar] Expandir

Dim Var As String
Global Var As String
Public Var As String

''Global creo que esta referido a modulos de clase y todas esas cosas "externas", public a todo lo demas y dim para el mismo formulario o modulo (un form no admite Dim ni Global


Sancho.Mazorka   

Sino me equivoco estas haciendo una aplicacion para exportar a diferentes aplicaciones una base de datos o unos datos ingresados en una FlexiGrid, yo te ayude en la de SQL pero de Excel ni idea todavia, perdon!


Sancho.Mazorka   

Perfecto!!!  Sos un idolo con VB6, ojala que sigas asi (y que mejores  )


Sancho.Mazorka   

Primero de todo, nunca te va a encontrar el campo Telefono si nunca fue creado en la base de datos.

Como no se usar bien SQL en VB6 te escribo el codigo a medio pseudocodigo:

Código (vb) [Seleccionar] Expandir

Dim Rs As New Recordset
Dim Cadena As String

Rs.Open "Select DISTINCT (NOMBRE), Apellidos, Ciudad  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic

If Rs.RecordCount > 0 Then

   For i = 1 To Rs.RecordCount
      if StrComp(Cadena, Rs!Nombre, vbTextCompare) = 1 then goto Existe
      Cadena = Cadena & Rs!Nombre & " " & Rs!Ciudad & " " & Rs!Telefono & Chr(13)
      Existe:
      Rs.movenext
   Next i
   
   MsgBox Cadena

End If

Como veras tu estas leyendo desde CLIENTES, los campos NOMBRE, APELLIDOS, CIUDAD, obvio que te va a dar error al intentar leer TELEFONO, sino me equivoco la solucion para leer todos los campos es:

Código (vb) [Seleccionar] Expandir

Rs.Open "Select DISTINCT (*)  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic

Ahi coloque una linea que devuelve 1 si el NOMBRE ya estaba en CADENA y salta a Existe, de esa forma obviamos donde agregamos el nuevo registro:

Código (vb) [Seleccionar] Expandir

if StrComp(Cadena, Rs!Nombre, vbTextCompare) = 1 then goto Existe

Es mas conveniente usar

Código (vb) [Seleccionar] Expandir

VBCrLf en vez de

Código (vb) [Seleccionar] Expandir

Chr(13)

Si existe el Option Button y esta octavo en el cuadro de herramientas, a la derecha del CheckBox y a la izquierda del ComboBox. La propiedad para modificar su valor mediante codigo es Value.


Sancho.Mazorka     

Recien veo las opciones de etiqueta de codigo avanzadas  bueno Littlehack fijate en las propiedades Width, Height, WindowState y BorderStyle, talvez con esas puedas propiedades puedas arreglar tu problema.


Sancho.Mazorka   

Tambien 


Sancho.Mazorka   

Muchas Gracias a los 2, antes de iniciar el tema, habia probado lo que vos dijiste SheKeL_C$ pero lo probe en el evento Change de un Textbox, talvez que por eso no funciono!


Sancho.Mazorka   

Hola gente, tengo un problema, tengo que convertir la primer letra de una palabra a mayusculas, Ejemplo:
Si introducimos leonardo, que al apretar un boton lo transforme a Leonardo

Yo habia visto un ejemplo con la funcion StrConv, pero no recuerdo el ejemplo, podria hacerlo de otra forma con Left y esas cosas, pero no quiero! 


Sancho.Mazorka   

Toma man, encontre otro que no necesita un OCX, incluso este post es mucho mejor!

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/351-ado-stream-imagenes.htm

Sancho.Mazorka