Visual Basic Foro

ola leandro gracias me ayuda bastante pero tengo una duda

trato de pasar dos datos en 2 txt box y solo lo que ace es unir esos 2 datos en un solo text box del otro programa

osea

programa A   ----- pasar a Programa B

text1 : nombre   ----   text1: nombredia
text2: dia           ----   text2: (vacio)

como hago ;S trato de hacerlo pero lo unico q me salae es eso u,u

alguien sabe como hacerlo de manera simple un filtro por 1 campo (ejemplo : nombre)
e buscado pero solo encuentro ejemplos de filtros enlazados con la Conex

mi idea es un filtro q se enlaze con la conexion q yo ponga alguien sabe alguna manera?
Gracias


PDT LO SIENTO ME EKIVOQUE DE POST xD ALGUIEN LO PUEDE PASAR A PROGRAMACION - VISUAL BASIC
;P GRACIAS!

esta en el modulo y me sale q no esta definido


Public Sub PonerBordeCelda(Objeto As Excel.Application)  <<<<<<<<<<<<<<<<<


q me falta agregar?

Buenas tardes con todos. tengo una duda de como hacer un archivo temporal o mejor dicho grabar los datos en una base temporal (tal programa se pueda ejecutar desde cualquier lugar y se grabe) y luego que este en el lugar (trabajo) lo pueda agregar todo lo avanzando a la base de datos principal en el lugar indicado alguien sabria como acer ese programa o si alguien tuviera un ejemplo? gracias y acepto ideas muchas gracias de antemano saludos!.

buenas Tardes Con todos Quisiera hacerles una consulta tengo una pc servidor en una oficina pero todos usamos red inalambrica habra algun problema con eso? por que cada vez q ingresamos datos se pone mas lenta , cuando comenzamos a usar la base de datos desde 0 trabajaba rapida luego cuanto mas ingresos se ponia mas y mas lenta hasta cierto punto q se demora alrededor de 15 segundos en ingresar quisiera saber si es porque se utiliza red inalambrica o porque no es un servidor y es una pc de escritorio, quisiera que alguien me resolviera esa duda, ya que trabajo con VB6 y SQL Server 2005, gracias.

* gracias yvan por el dato , si trato q salga como un checkbox en mi impresion

* claro raul q salga como un "visto" como una raiz cuadrada
  YA PERO SI FUERA CON CODIGO ASCII COMO LO PONDRIA
Select Case Check158.Value
Case 0
   Text1(2).Text = (" ")
Case 1
   Text1(2).Text = ("X")  <<<<< en este caso como lo pondria en vez de la "X" seria (alt+251 o alt+436)
   Check157.Value = 0
Case 2
   'Por si necesitas evaluar el estado Grayed
End Select
End Sub

* erbuson no entiendo como agregaria en este caso la funcion q me haz pasado

Gracias por el tiempo tomado chicos.

Option Explicit

Enum EACCION
    AGREGAR_REGISTRO = 0
    editar_registro = 1
End Enum
Dim CNN As New ADODB.Connection
Public ACCION As EACCION
Dim rs As ADODB.Recordset
Public IdRegistro


ya esta echo

BUENAS CON TODOS ME SALE ESTE ERROR PERO NO ENCUENTRO ONDE AGREGAR ALGO PARA Q MODIFIQUE NORMAL

Código: [Seleccionar]

Private Sub cmdSave_Click()
   
    Select Case ACCION
    Case editar_registro
error---        CNN.Execute "UPDATE Clientes set razonsocial = '" & Text1(1) & "', direccion = '" & Text1(2) & "', nºdeplaca = '" & Text1(3) & "', marca = '" & Text1(4) & "', modelo = '" & Text1(5) & "', carroceria = '" & Text1(6) & "', colores = '" & Text1(7) & "', nºcilindros = '" & Text1(8) & "', pesoneto = '" & Text1(9) & "', cargautil = '" & Text1(10) & "', pesobruto = '" & Text1(11) & "', longitud = '" & Text1(12) & "', ancho = '" & Text1(13) & "', altura = '" & Text1(14) & "', clase = '" & Text1(15) & _
error---                                     "', añofabrica = '" & Text1(16) & "', combustible = '" & Text1(17) & "', nºejes = '" & Text1(18) & "', nºdemotor = '" & Text1(19) & "', nºdeserieochasis = '" & Text1(20) & "', nºpasajeros = '" & Text1(21) & "', nºasientos = '" & Text1(22) & "', nºruedas = '" & Text1(23) & "', formula = '" & Text1(24) & "', categoria = '" & Text1(25) & "', potencia = '" & Text1(26) & "', detalle1 = '" & Text1(27) & "', detalle2 = '" & Text1(28) & "', fecha = '" & Text1(29) & "', modificacion = '" & Text1(30) & "', montaje = '" & Text1(31) & "', fabricacion = '" & Text1(32) & _
error---                                     "' where Cod = " & IdRegistro & ""[/color]
    End Select
   
    rs.Requery
   
    Call CargarListView(FrmPrincipalClau.LV, rs)

    DoEvents
    Unload Me
    Set frmImpresionCIT3 = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description

End Sub

ahi es donde me sale el error ... alguna solucion por favor es urgente