• Miércoles 1 de Mayo de 2024, 22:09

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

Páginas: [1]
1
VB .NET / Re:Imprimir contenido TextBox en dos lineas
« en: Viernes 9 de Noviembre de 2012, 19:38 »
Gracias por responder DiabloRojo
El problema es que soy novato, tengo pocos conocimientos de vb.net
Cual seria el codigo para evaluar lo que tu dices

2
VB .NET / Imprimir contenido TextBox en dos lineas
« en: Viernes 9 de Noviembre de 2012, 04:57 »
Hola, Saludo
Tengo este codigo que me funciona un 99%
Código: vb.net
  1. Dim cadena As String = txtNombre.Text
  2. Dim parte1 As String
  3. Dim parte2 As String
  4.         If cadena.Length > 75 Then
  5.             parte1 = cadena.Substring(0, 75)
  6.             parte2 = cadena.Substring(75)
  7.                 'pone cada parte para imprimir
  8.             e.Graphics.DrawString(parte1, prFont, Brushes.Black, 28, 127)
  9.             e.Graphics.DrawString(parte2, prFont, Brushes.Black, 28, 142)
  10.         Else
  11.                  'aqui pone la linea completa si es menor de 75 caracteres para imprimir
  12.             e.Graphics.DrawString(txtNombre.Text, prFont, Brushes.Black, 28, 127)
  13.         End If
  14.  
Solo hay un problema, en el caracter 75 me parte la palabra bruscamente
lo correcto seria que la dividiera cuando encuentre un espacio entre palabras, proximo a los 75 caracteres

3
Visual Basic 6.0 e inferiores / Re: Error en sentencia SELECT
« en: Jueves 6 de Noviembre de 2008, 17:04 »
Gracias m0skit0
Ya lo resolvi

El problema era que ponia el apostrofe en la sentancia SELECT  

SQL = "SELECT * FROM Personas WHERE Nombre = '" & Trim(Combo1.Text) & "'"

4
Visual Basic 6.0 e inferiores / Error en sentencia SELECT
« en: Miércoles 5 de Noviembre de 2008, 22:25 »
Hola y Saludos

Hace tiempo que no entraba en el foro

Si me pueden ayudar con este ERROR cuando hago click en un combo
NOTA: el combo1.text se rellena con nombres y apellidos cuando inicia el Form_Load

este es el codigo:

Private Sub Combo1_Click()

Dim i As Integer

    SQL = "SELECT * FROM Personas WHERE Nombre = " & Trim(Combo1.Text) & ""

    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
    CostoCB(0).Text = rs!Precio1
    CostoCB(5).Text = rs!FechaDeAlta
End Sub


Y ME MARCA EL SIGUIENTE ERROR:

Error'-2147217900 (8004e14)' en tiempo de ejecucion:

Error de sintaxis (falta operador) en la expresion de consulta 'Nombre
= CF Carta'.

Páginas: [1]