Mostrar Mensajes

201

Visual Basic 6.0 e inferiores / Busqueda Exacta???

« en: Jueves 6 de Abril de 2006, 19:51 »

Hola a todos:
ojala me puedan ayuar, trabajo con access97 y vb6.0 y quiero hacer lo siguiente, en una tabla tengo un campo cargosistema y resulta que quiero contar todos los registro de este campo solo buscando la palabra sistema, ej Administrativo,+1pc,sistema bueno solo quiero que me diga si este registro tiene sistema si no pase al otro registro, otro ejemplo seria asi "algo,sistema,algo" eso si todos estos estan separados por coma osea puede aparacer asi tambien en la base ",sistema,otro" no se si entiende la idea solo buscar esta palabra en cualquier parte del registro y si esta lo cuente si no esta no lo cuente solo quiero saber como puedo hacer la busqueda lo demas lo hago yo si pueden ayudarme seria genial adios y muchas gracias.

202

Visual Basic 6.0 e inferiores / Llamar A Informes Access97

« en: Lunes 3 de Abril de 2006, 17:11 »

Hola a todos:
tengo un problemilla, resulta que he generado una consulta en access y a traves de esa consulta me genera un informe, bueno la pregunta es la siguiente se puede llamar a este informe desde visual?, si alguien sabe como se hace se lo agradeceria muchisimo ya que soy un bebe en esto y me gustaria saber como se hace se los agradesco muchisimo que esten muy bien adios y gracias

203

Visual Basic 6.0 e inferiores / Re: Problemas De Seguridad

« en: Martes 28 de Marzo de 2006, 22:36 »

Cita de: "Angel38"

Hola Neorent, te recomiendo que mejor la encriptes, busca temas relacionados con encriptacion de Base de Datos Access.

Access es muy insegura, de todos modos te dejo la respuesta.

Luego de darle la clave, en el codigo Opendatabase(ruta) solo le agregas a la ruta

Set a = OpenDatabase(ruta Password = colocas el password aqui)

y listo.

Espero te funcione. Suerte.

mmmm gracias angel pero soy un poco inexperto este codigo va separado por alguna coma o algo asi o solo va "ruta password="1234""
bueno si es eso espero que sea genial, no encripto la base pk al momento de abrir la aplicacion esta la desencripta y queda a merced de que cualquier usuario con los permisos en el servidor pueda modificar la base no?, bueno gracias por la ayuda si alguien tiene otra opcion mas seria genial nunca hay que quedarse con una sola respuesta y muchas gracias angel me sirve mucho tu opcion espero me piuedas aclarar esta duda gracias adiso.

204

Visual Basic 6.0 e inferiores / Problemas De Seguridad

« en: Martes 28 de Marzo de 2006, 17:06 »

hola gente como estan espero que bien:

bueno les paso a comentar lo siguiente resulta que elabore hace un tiempo atraz una aplicacion que se conecta a una base de datos en un servidor y funciona super bien pero resulta que me pidieron que instalara esta aplicacion en otros pc y bueno funciono, aqui va el problema resulta que la carpeta compartida en el servidor debe tener la opcion de control total para poder modificar datos y agregarlo o modificarlos ceirto, bueno resulta que detecte que usuarios han entrado a la carpeta donde se encuentra la base y resulta que han eliminado y modificado cosas sin entrar al sistema lo cual me ha producido varios errores en la aplicacion ya que han eliminado usuario y jefes y cosas asi, pero bueno creo que la mejor forma es colocarle una clave a acces bueno solo colocare una clave nada mas ni siquiera un usuario y me prgunto cuando llame a la base de datos que es lo que tendria que cambiar, bueno les dejo mi codigo de como habro la base de datos y la leo bueno yo ocupo un archivo de texto para asi que lea solo el archivo y la ruta de donde se encuentra para no estar compilando cada cierto tiempo la aplicacion bueno amigos espero que me puedan ayudar con este problemilla ok, bueno la gracia de esto es que sea la aplicacion quien le entrege la pass a la base y asi nadie pueda entrar salvo desde afuera a la base ok muchas gracias.

Option Explicit
Dim a As Database
Dim b As Recordset
----------------------------------
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String
Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta

End If
Text2.Text = ""
Set a = OpenDatabase(ruta)
Set b = a.OpenRecordset("tabla_tecnicos")
If b.RecordCount = 0 Then
MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
Else
b.MoveFirst
Do While b.EOF = False
Combo1.AddItem b("nombre_tecnico")
b.MoveNext
Loop
End If

205

Visual Basic 6.0 e inferiores / Problemas Con Instalador De Aplicacion

« en: Jueves 23 de Marzo de 2006, 13:12 »

hola a todos;
bueno tengo un peuqeño problemilla, tengo tres aplicaciones con sus archivos de dependencia y cab y todo lo que se necesetita creo yo, para poder instalar mi aplicacion en cualquier windows, bueno mi pc en cual cree estas aplicaciones archivos de dependencias y cabs el sistema operativo es XP SP2 PRO con office97, y cuando trato de instalar esta aplicacion en en windows 98 o windows 95 me envia un error y dice que modificara algunos archivos y que se debe reiniciar bueno cuando se reinicia al cargar windows me dice que el archivo oleaut.dll algo asi esta dañado y bueno tengo ese archivo y despues lo instalo y luego cuanod vuelvo a ejecutar la aplicacion para instalarla me sale el mismo error, si alguien tiene idea de cual puede ser mi problema espero que me puedan ayudar, bueno tengo el visual basic 6.0 y sus respectivas mdsn y eso gracias adios.

206

Visual Basic 6.0 e inferiores / Re: ¿crear Archivo De Ruta?

« en: Martes 21 de Marzo de 2006, 16:23 »

hola que tal gracias funciona sin problemas pero cuando compilo para generar el ejecutable, en esta kine me dice que la variable no esta definida y la defini pero ahora me lanza otro error tu me podrias ayudar a ver que puede ser, muchas gracias te djo el code.

Dim Archivo As String
Dim Nro As Double
Dim msg As String
Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, Ruta 'esta es la variable por la cual me dice que la debo declararClose (Linea) 'y me dice que esta "Linea" no existe que puedo hacer?
End If

207

Visual Basic 6.0 e inferiores / ¿crear Archivo De Ruta?

« en: Lunes 20 de Marzo de 2006, 20:52 »

HOLA A TODOS:

bueno les comento lo siguiente, resulta que tengo una aplicacion que trabaja con una base de acces97 y esta en un servidor en un equipo, y resulta que cada cierto tiempo esta base se va moviendo de servidor pk aun no se puede establecer con claridad donde quedara, mi pregunta es la siguiente existira la forma de crear un archivo de texto y en el escribir la path(ruta) de la base de datos y que la aplicacion al iniciar lea este archivo y tome la informacion desde ahi y luego le asigne esa ruta auna variable y luego leer la base de datos. bueno si alguno de ustedes me pudiese ayudar con esto seria genial pk asi me evitaria de estar compilando la aplicacion cada ves que se cambia la base de datos de lugar. gracias a todos adios

208

Visual Basic 6.0 e inferiores / Cambiar Estilo De Combobox

« en: Viernes 17 de Marzo de 2006, 16:37 »

hola a todos
bueno le comento tengo unos combo y quisiera hacer algo que no se como se hace o no se si se puede hacer, por ejemplo tengo 10 item en un combobox dropdown list, pero quiero saber si se puede hacer que al hacer doble click en el combo me permita ingresar un nuevo item que no exista en la tabla que tengo no se, si se puede hacer pero si se puede que alguien me comente como se hace pk ya intente hacer esto combo1.style = 0 o 2 y me manda error asiq ue si alguien sabe como se hace please que me ayude ok gracias adios

209

Visual Basic 6.0 e inferiores / Problemas Para Cerrar La Aplicacion

« en: Viernes 10 de Marzo de 2006, 13:18 »

hola a todos como estan espero que bine bueno le paso a comentar, tengo un formulario el cual transforme en ejecutable, cuando lo ejecuto funciona sin problemas, cree un boton salir, pero el formulario tambien una X la cual te permite cerrar la aplicacion pero resulta que igual queda en proceso como hago para que cuando un usuario cierre desde la X el la aplicacion se cierre y no quede en memoria?, espero que me puedan ayudar gracias y saludos adios

210

Visual Basic 6.0 e inferiores / Seleccion Multiple A Un Texto

« en: Jueves 9 de Marzo de 2006, 13:46 »

hola todos:

bueno les comento lo siguiente resulta que hacer algo pero no se me ocurre como espero que ustedes me ayuden buenos les paso a contar, tengo tres combobox con ditintos datos y ademas tengo un textbox en el cual deseo que si selecionan algo del primer combobox, pero ademas si selecionan de otro combo box otra cosa me gustaria que tambien quedara junto al anterior no se si me explique ej.

combo1 combo2 combo3 textbox
hola amigo mio hola,amigo,mio
adios amiga mia

bueno asi deberia quedar en el caso de uqe seleccionara algo de los tres combos en texto.
me gustaria que quedara asi pero no se como se hace si me explicaran que debo hacer seria genial espero que se pueda hacer bueno espero que me puedan ayudar y muchas gracias a todos.

211

Visual Basic 6.0 e inferiores / Re: Como Limpiar Textbox Y Combos

« en: Miércoles 8 de Marzo de 2006, 21:49 »

Cita de: "cpmario"

No existe ninguna función específica para lo que deseas, la mejor rutina que puedes hace es algo parecido a lo que nos dice Makko.

Prueba esta rutina:
Código: Text

Public Sub LimpiarControles(Obj As Form)
   Dim ctlTemp As Control
   For Each ctlTemp In Obj.Controls
   If TypeOf ctlTemp Is TextBox Then
   ctlTemp.Text = ""
   End If
   If TypeOf ctlTemp Is ComboBox Then
   ctlTemp.Text = ""
   ctlTemp.Clear
   End If
   Next ctlTemp
End Sub

Puedes llamar esta rutina con un botón comando, desde la forma que necesites limpiar, de la siguiente manera:
Código: Text

Private Sub Command1_Click()
   Call LimpiarControles(Me)
End Sub

hola cpmario bueno te agradesco mucho la ayuda acabo de probar el codigo esta super bien era justo lo que necesitaba bueno es que no conosco mucho jejeje pero eso no sabia pero les agradesco mucho la ayuda adios y que esten bien

212

Visual Basic 6.0 e inferiores / Re: Como Limpiar Textbox Y Combos

« en: Miércoles 8 de Marzo de 2006, 19:28 »

Cita de: "Sagutxo"

Salu2.
El combo lo puedes borrar así de simple Combo.Clear
agur

hola bueno eso ya lo sabia lo que quiero saber si existe una funcion que me limpie todos los textbox y todos lo combo de un solo click

213

Visual Basic 6.0 e inferiores / Re: Como Limpiar Textbox Y Combos

« en: Miércoles 8 de Marzo de 2006, 18:08 »

Cita de: "Makko"

Mmmm lo estoy haciendo rapido a esto, proba con algo asi:

Código: Text
Private Sub Limpiar(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Controls
If TypeOf ctr Is TextBox Then
ctr.Text = ""
Else
If TypeOf ctr Is ComboBox Then
DirectCast(ctr, ComboBox).SelectedIndex = -1
End If
doclean(ctr)
Next
End Sub

No lo probe, pero esa es la idea.
Saludos
Makko.

hola gracias por la ayuda pero no se donde debo aplicarlo jajaja pero en fin gracias por la ayuda lo probare y te comento muchas gracias

214

Visual Basic 6.0 e inferiores / Re: Como Limpiar Textbox Y Combos

« en: Miércoles 8 de Marzo de 2006, 18:01 »

Cita de: "masticor"

tienes que crear una matris con todos los text y otra para todo los cobos
despues de eso solo escribes algo por el estilo

For a=1 to x 'x es cuentos textos tengas
text(a).text = ""
next a

hola gracias por tu ayuda pero sabes todo los texbox y combo tienen nombres distinto por ejemplo txtcodigo cmbapellidos por decir algo gracias por tu ayuda pero eso lo dejare para cuando tenga que hacer otro sistema gracis por la ayuda

215

Visual Basic 6.0 e inferiores / Como Limpiar Textbox Y Combos

« en: Miércoles 8 de Marzo de 2006, 17:35 »

hola a todos como estan espero que bien bueno aqui estoy de nuevo con una consulta resulta que tengo varios textbox y combobox y resulta que quiero hacer un boton que limpie todo estos textbox, mi pregunta es habra alguna funcion que limpie todos los combo y los text si estar escribiendo text1.text ="", combo1.text="" si alguien conoce alguna manera de hacerlo seria genial les dejo esta pregunta mientras seguire buscando la respuesta si la encuentro la publico gracias a todos adios

216

Visual Basic 6.0 e inferiores / Re: Como Buscar En Una Base ?????

« en: Jueves 23 de Febrero de 2006, 12:42 »

Cita de: "Angel38"

Me enviaste un periodico
Bueno lo primero es que JuanPancho tiene razon.

Lo segundo que tambien tu al pensar que, en el momento que oprimes una letra te empieza a buscar.

La grilla se va llenando, es decir, si colocas la letra A, la grilla se llena con todos los nombres que empiezan por la letra A.

si sigues ecribiendo y colocas An, te crea un filtro y ahora busca por las letras An.

y si escribes angel38, te mostrará el cliente o los clientes que se llamen asi.

Intenta entender el codigo o enviame partes que no estiendas, es mas mi correo lo tengo a la vista del publico solo has click en Angel38 y te podre dar una ayuda mas personalizada.
mi horario es por ahora de 12:00 pm a 2:00 pm, hora colombiana.

Sino se puede sigueme haciendo preguntas que yo casi siempre ando por aqui.

Cuando logres entender el codigo te envio la jugada para que al darle doble click al nombre que esta en la grilla esta te muestre la informacion del cliente.

Yo también te envié un periodico jajaja

hola angel bueno yo soy neorent jajaja y si sorry por el diario que te envie pero es que tengo muchas dudas bueno algo he podido comprender el codigo que me enviaste y bueno claro que me gustaria que me guiaras mas o menos como hacer lo de la busqueda quizas debe ser simple pero para mi no lo es jajajaja

pero en fin eso seria te lo agradesco mucho por tu ayuda tan pronto pueda te envio un mail o mensaje o me comunico por aqui ok gracias adios

217

Visual Basic 6.0 e inferiores / Re: Addnew En Dao

« en: Viernes 17 de Febrero de 2006, 22:09 »

Cita de: "RadicalEd"

Hola chicos de SoloCodigo, como estan? hace rato no me paso por que hay mucho camello; tengo una duda:

Estoy trabajando sobre una DB de Access con DAO (no con ADO por que no lo manejo todavia), y al usar el método AddNew, no todas las veces me guarda el registro, por que sera, aqui les muestro el código
Código: Text
Private Sub cmdSave_Click()
On Error Resume Next
Dim dbVisitas As Database
Dim rsVisitas As Recordset
Set dbVisitas = OpenDatabase(App.Path & "\bd1.mdb")
Set rsVisitas = dbVisitas.OpenRecordset("VISITA", dbOpenDynaset)
' If txtMes.Text <> "" Or txtTipo.Text <> "" Or txtAuditor.Text <> "" Or txtMostrador.Text <> "" Or _
' txtZona.Text <> "" Or txtPDV.Text <> "" Or txtExcep.Text <> "" Or txtCompro.Text <> "" Then
' Set rsVisitas = dbOpenDB.OpenRecordset("VISITA", dbOpenTable)
   With rsVisitas
   .AddNew
   !NUM_MES = txtMes
   !FECHA = dtpDate
   !TIPO = txtTipo
   !AUDITOR = txtAuditor
   !COD_ZONA = txtMostrador & " " & txtZona
   If chkExep.Value = 0 Then
   Call MsgBox("NO HAY EXCEPCIONES", vbCritical, "Advertencia")
   Else
   !EXCEPCIONES = chkExep.Value
   !COD_EXEPCION = txtExcep
   !VLR_AJUSTE = txtVrAjuste
   End If
   !PDV = txtPDV
   !ENCARGADO = txtPDV
   !COMPROMISO = txtCompro
   .Update
   .Bookmark = .LastModified
   End With
   With rsVisitas
   Debug.Print "Registro nuevo: " & !NUM_MES & " " & !FECHA & " " & !AUDITOR _
   & " " & !PDV & " " & !COD_ZONA & " " & !ENCARGADO & " " & !COD_EXEPCION _
   & " " & !VLR_AJUSTE & " " & !EXCEPCIONES & " " & !ENCARGADO & " " & !TIPO
   End With

   Call CleanText
' Else
' Call MsgBox("Favor Introducir Datos", vbCritical, "Advertencia")
' cmbMeses.SetFocus
' End If
rsVisitas.Close
dbVisitas.Close
Call VisibleFalse
End Sub

Gracias Chao.

saludos:
pero te envia algun error al tratar de grabar el registro o simplemente pasa de largo y no te dice nada?
se que utilizas dao y yo uso ado pero yo tengo una aplicacion con una base de acces 97 la y grabo y edito ademas puedo eliminar si quieres te puedo enviar algun metodo por ejemplo yo uso este modo para abrir las bases y trabjar las tablas.

[CODE]

Dim a As Database
Dim b As Recordset

Private Sub Form_Load()
Set a = OpenDatabase("\\Obiwan\soporte\bd1.mdb")
Set b = a.OpenRecordset("tabla_tecnicos")
If b.RecordCount = 0 Then
MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
Else
b.MoveFirst
End If
End Sub
'/asi las abro y asi grabo mira

sub grabar()
b.addnew
b("registro")&"" = text1.text '/ el &"" es por si te dan un registro en blanco y asi no te marca error al grabar puede ser espero que te sirva
b.update
end sub

si te puedo ayudar en algo mas solo dilo adios

218

Visual Basic 6.0 e inferiores / Re: Como Cambiar De Minuscula A Mayuscula En Textbox

« en: Martes 14 de Febrero de 2006, 22:58 »

hola todos y gracias por la ayuda solo me gustaria hacer una consulta mas resulta que me gustaria que fuera cambiando de minuscula a mayuscula almomento de ir digintando la letra o la palabra no se si se puede?
gracias por la ayuda

219

Visual Basic 6.0 e inferiores / Como Cambiar De Minuscula A Mayuscula En Textbox

« en: Lunes 13 de Febrero de 2006, 22:51 »

hola a todos como estasn espero que bien bueno aqui estoy solicitando su sabiduria y ayuda resulta que tengo muchos textbox pero resulta que cuando escribo me aparecen las letras en minusculas y tengo que apretar bloq-masyus para escribir en mayuscula se que se hace en el texto en el evento change pero no se cual es el codigo creo que se utiliza asscci bueno no lo se por eso solicito si me pueden echar la mano se los agradesco de ante mano adios a todos que esten muy buen

220

Visual Basic 6.0 e inferiores / Re: Msflexgrid Y Data Report

« en: Viernes 3 de Febrero de 2006, 18:18 »

Cita de: "Angel38"

Hola amigos de Solocodigo.

Quisiera enviar los datos desde un MSflexgrid a un datareport.

Una pregunta sencilla pero complicada.

Agradezco su atencion.

hola angel bueno yo tengo algo parecido a lo que tu necesitas lo baje hace unos dias atras pero yo nolo hice solo lo adapte a loq ue yo queria espero que te sirva de algo adios

221

Visual Basic 6.0 e inferiores / Re: Como Buscar En Una Base ?????

« en: Jueves 2 de Febrero de 2006, 19:38 »

Cita de: "Angel38"

Otra cosa fijate que el textbox esta en el evento KeyUp

hola angel, y gracias por ayudarme:

sabes no entiendo pk motivo ubicas el codigo en el textbox_keyup
no se para que sirve con eso creo que te digo que soy todo un basico principiante que esta intentando aprender y mejorar lo que existe en su trabajo, me imagino que el texto_keyup debe ser para para cuando uno escribe algo empezar la busqueda?, me parece que es ado sin duda alguna, lo que pasa angel debe ser que tu escribes el codigo bien pero yo no lo entiendo mucho debe ser pok no entiendo mucho como soy nuevo bueno lo que yo queria basicamente era lo siguiente:
1- tener un textbox en cual yo escribo cualquier cosa
2.- un command que cuando yo terminara de escribir en el textbox hiciera click y buscar lo que yo escribi ahi.
3.- pero no pero mi pregunta es si ya genere la busqueda por ejemplo encontro algo y yo tengo varios textbox donde supuestamente mostraba los datos una ves luego le preguntaba al usuario si queria continuar y el decia que si y el codigo pasaba a buscar el siguiente registro que encontrara creo que eso era lo primero.
pero despues me pidieron que eso mismo lo hiciera una grilla que mostrara todo lo que buscaba y que luego yo selecionara algun registro en la grilla y que me mostrara por ejemplo un reporte con ese registro selecionado.... yo me pregunto en mi trabajo no querran otra cosa mas jajajaja.
bueno lo de hacer una grilla y que muestre el informe lo hace pero lo malo es que no me despliega todo lo que yo quiero y tampoco puedo selecionar un solo registro ademas cuando presiono el boton que supuestamente imprime en un reporte me aparecen todos los registro que encontro por un lado esta bien y por el otro no pk ahi mucho campos que estan mal echo un ejemplo de ello es que el campo nombre lleva dentro de el todo el nombre completo por ej. JUANITO PERES, entonces cuando busco debo buscar JUANITO PERES con mayuscula y ademas que debe ser el campo completo y no buscar a todos lo JUANITO que existen en la base de datos mas bien ese es mi problema aun no se me enciende el foco para hacer esto se que se puede pero si mas o menos me explicaran con un codigo lo que hace cada cosa y si en esta linea que muestro aca bajo.

SQL = "select Nombres, Apellidos from CLIENTE where str(codigo_cliente)='" + codigo + "' and Nombre like '" + txtBuscar + "*' "

se pueden agragar mas campos donde buscar, otra cosa es que realmente no entiendo que hace esta linea y donde queda el resultado y como puedo pasar esos datos a una grilla o un texto jejejeje creo que me explaye demasiado pero es ese el problema que tengo no quiero que me hagan el trabajo ya que el objetivo es aprender y quiero aprender y saber que hace cada cosa no se si tu o alguien del foro me puede ayudar.

te agradesco mucho la ayuda espero que me puedan ayudar
muchas gracias y saludos a todos.

222

Visual Basic 6.0 e inferiores / Re: Llamar A Un Ejecutable Desde Visual

« en: Miércoles 1 de Febrero de 2006, 23:12 »

Cita de: "neorent"

Cita de: "masticor"
Shell App.Path & "\" & App.EXEname & ".exe"

Asi keda total mente dinamico
mmmmmm??????? capte mucho pero voy a probar se los agradesco muchisimo gracias por todo pero igual ahi pruebo y veo que pasa y les cuento ok gracias adios

hola como estan bueno lo que me sugirieron estaba bien pero resulta que me aparece este error cuando lo ejecuto en otro pc qur tiene winxo sp2, y que tiene los mismos privilegios que mi pc que podria ser si alguien puede ayudar se le agradece.
saludos
neorent.

pd: adjunto imagen con error

223

Visual Basic 6.0 e inferiores / Re: Como Buscar En Una Base ?????

« en: Miércoles 1 de Febrero de 2006, 19:30 »

Cita de: "Angel38"

Hola Neorent.

Te envio una busqueda inteligente para que la estudies y la adaptes, no es lo que quieres especificamente pero tal vez te de una idea o quien sabe, tal vez te parezca mejor

Private Sub txtBuscar_KeyUp(KeyCode As Integer, Shift As Integer)
Dim SQL As String
Dim mySnap As Recordset

On Error GoTo ManejoError
gri.Clear
SQL = "select Nombres, Apellidos from CLIENTE where str(id_vendedor)='" + Str(Codigo) + "' and Nombres like '" + txtBuscar + "*' "

'Espero te des cuenta del * en (Nombres like '" + txtBuscar + "(*)' ")
'Es la pieza clave de la instruccion SQL

Set mySnap = Dbcliente.OpenRecordset(SQL, dbOpenSnapshot)
mySnap.MoveFirst
i = 1

Do While Not mySnap.EOF
gri.Text = "Nombres"
gri.CellBackColor = &HE0E0E0
gri.Col = 1
gri.Text = "Apellidos"
gri.CellBackColor = &HE0E0E0
gri.Col = 0
gri.Rows = i
texto = mySnap!nombres + Chr(9) + mySnap!Apellidos + Chr(9)
gri.AddItem texto, i
mySnap.MoveNext
i = i + 1
If txtBuscar.Text = "" Then
griClientes.Clear
End If
Loop

ManejoError:
griClientes.Text = "Nombres"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 1
griClientes.Text = "Apellidos"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 0
Exit Sub

'Este es una busqueda desde un textbox con un MSflexGrid el cual al introducir
'una letra enseguida se llena el grid con los nombres que comiencen por
'esa letra
'Nota: Esta en DAO pero lo puedes adaptar

hola angel:

sorry pero no entendi mucho el codigo sorry

, bueno como lo puedo hacer tal como indicas en el codigo te lo agradesco lo voy a probar y de a poco a mejorar o ver que se puede hacer ya te lo agradesco muchisimo gracias por tu tiempo

adios y que estes muy bien

224

Visual Basic 6.0 e inferiores / Como Buscar En Una Base ?????

« en: Miércoles 1 de Febrero de 2006, 18:00 »

hola a todos amigos espero que esten muy bien bueno aqui estoy de nuevo haciendo consultas jejeje

, lo que pasa es que estoy tratando de hacer una busqueda por un campo determinado pero encuentro que el codigo es demasiado grande y ademas busca por un solo registro, mi pregunta es como puedo hacer una busqueda pero que busque en la base por un dato especifico y que me muestre ese dato. ej.
nombre depto ciudad fono.
carlos los paltos lillos 133
esa es la base con esos registros ya y por ejemplo esta carlos y quiero buscar por ejemplo por "los", y deberia o buscar cualquiera que empiece o termine o incluso entre medio de la palabra "los", alguien sabe como se hace. yo tengo un codigo pero no se si funciona les muestro.

option explicit
Dim a As Database 'base datos
Dim b As Recordset 'maestro atenciones
Dim c As Recordset 'direeciones
Dim d As Recordset 'tabla_tecnicos
Dim e As Recordset 'equipamiento_atendido

Private Sub Cmdbuscar_Click()
Do While b.EOF = False
If Text1.Text = b("folio_atencion") Then
Text2.Text = b("fecha_llamado") & ""
Text3.Text = b("hora_llamado") & ""
Text4.Text = b("usuario_atencion") & ""
Combo1.Text = b("direccion_depto") & ""
Text5.Text = b("n_oficina") & ""
Text6.Text = b("fono_anexo") & ""
Text7.Text = b("problema_descrito") & ""
Combo2.Text = b("tipo_problema") & ""
Combo3.Text = b("tecnico_asignado") & ""
Text8.Text = b("fecha_atencion") & ""
Text9.Text = b("hora_salida_atencion") & ""
Text10.Text = b("hora_inicio_atencion") & ""
Text11.Text = b("hora_termino_atencion") & ""
Text12.Text = b("hora_llegada_atencion") & ""
Text13.Text = Text1.Text
Text26.Text = b("problema_detectado") & ""
Text25.Text = b("solucion_atencion") & ""
Text22.Text = b("obs_atencion") & ""
Combo4.Text = b("estado_atencion") & ""
Text23.Text = b("derivado") & ""
Text24.Text = b("fecha_cierre_atencion") & ""
If b("mti") & "" = True Then
Check1.Value = True
Else
Check1.Value = False
End If
b.MoveNext
Else
b.MoveNext
End If
Loop
Do While e.EOF = False
If Text1.Text = e("folio_de_atencion") Then
Text13.Text = e("folio_de_atencion")
Text14.Text = e("numero_serie") & ""
Combo5.Text = e("tipo_equipo") & ""
Text16.Text = e("marca_equipo") & ""
Text17.Text = e("modelo_equipo") & ""
Text18.Text = e("nombre_tecnico") & ""
Text19.Text = e("problema_detectado") & ""
Text20.Text = e("tipo_falla") & ""
Text21.Text = e("estado_falla") & ""
e.MoveNext
Else
e.MoveNext
End If
Loop
If Text2.Text = "" Then
MsgBox "No se Encontro Folio", vbInformation, "Busque Nuevamente"
Call limpiar
Call cargar
b.MoveFirst
c.MoveFirst
d.MoveFirst
e.MoveFirst
Text1.SetFocus
Else
Text4.SetFocus
End If

End Sub

Private Sub Form_Load()'aqui esta la base donde me conecto
Set a = OpenDatabase("\\Obiwan\soporte\bd1.mdb")
Set b = a.OpenRecordset("maestro_atenciones")
Set c = a.OpenRecordset("CCOSTOS")
Set d = a.OpenRecordset("tabla_tecnicos")
Set e = a.OpenRecordset("equipamiento_atendido")
End Sub

esto es lo unico que se me ocurrio hacer pero es muy fome pk busca por un solo regitro y ademas completo y yo quiero que busque en cualquier registro y que busque lo que yo escribo no se si se entiende, bueno si alguno de ustedes me puede mostrar como hacerlo no que me lo hagan o me explique como hacerlo con algun ejemplo seria genial bueno si es que alguien puede hacer algo para echarme la manito con esto se lo agradeceria mucho cuidense que esten muy bien adios y muchas gracias

225

Visual Basic 6.0 e inferiores / Re: Llamar A Un Ejecutable Desde Visual

« en: Martes 31 de Enero de 2006, 22:38 »

Cita de: "masticor"

Shell App.Path & "\" & App.EXEname & ".exe"

Asi keda total mente dinamico

mmmmmm??????? capte mucho pero voy a probar se los agradesco muchisimo gracias por todo pero igual ahi pruebo y veo que pasa y les cuento ok gracias adios

SoloCodigo