|
|
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 - Shiquilla
176
« en: Sábado 12 de Junio de 2004, 01:55 »
En el programa que te he pasado está todo, desde bases de datos, tablas, campos, índices y relaciones entre tablas (pero esto es con DAO). De todas formas... * Para crear BD * Dim mdb as Database Set mdb = DBEngine.Workspaces(0).CreateDatabase _ (fichero, dbLangSpanish)
* Para Crear Tablas * Dim td As TableDef Set td = mdb.CreateTableDef(NombreTabla)
Siento no saber cómo se hacen con ADO  Saludos 
177
« en: Sábado 12 de Junio de 2004, 00:44 »
Mu buenas, yo tengo un programa que lo que hace es crear base de datos, miíratelo ^^.  Saludos.
178
« en: Sábado 12 de Junio de 2004, 00:38 »
Ok, perdon 
179
« en: Viernes 11 de Junio de 2004, 23:55 »
Tengo entendido de que si 
180
« en: Viernes 11 de Junio de 2004, 23:21 »
Mu buenas Jose Arriagada, yo tengo el vbSkinner 1.3, bájatelo de aquí (hazme caso, no te estoy timando) Enlace borrado por solocodigoY si no te fías... pues mándame un correo que te lo mando  Saludos
181
« en: Viernes 11 de Junio de 2004, 23:10 »
De ná 
182
« en: Viernes 11 de Junio de 2004, 23:02 »
Buenas, eso te ocurre porque estás abriendo el cursor en modo lectura, prueba a poner esto: * Bloqueando el registro * With rs '.Open sql, cn .Open sql, cn, adOpenKeyset, adLockPessimistic .AddNew !tienda = txttienda.Text !nombre = txtnombre.Text !router = txtrouter.Text !servidor = txtservidor.Text !tipo = cbotipo.Text .Update .Close End With
* Sin bloquear el registro * With rs '.Open sql, cn .Open sql, cn, adOpenKeyset, adLockBatchOptimistic .AddNew !tienda = txttienda.Text !nombre = txtnombre.Text !router = txtrouter.Text !servidor = txtservidor.Text !tipo = cbotipo.Text .UpdateBatch .Close End With
Saludos
183
« en: Jueves 10 de Junio de 2004, 21:36 »
If sql = cbotienda.Text Then 'si el resultado devuelto de la consulta SQL es = al valor introducir entonces que me muestre los datos correspondientesEl problema está en que tienes que tienes que comprobar esto: If Not rs.EOF then 'Mirar si el recordset no está vacio cbotienda.Text = rs![tienda] txtnombre.Text = rs![nombre] txtrouter.Text = rs![router] txtservidor.Text = rs![servidor] txttipo.Text = rs![tipo] end if
Es decir, tu código quedaría así: Private Sub cbotienda_KeyPress(KeyAscii As Integer) Dim cmd As String Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset If KeyAscii = 13 Then 'Si la tecla es INTRO entonces... cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\"Ruta de la BBDD".mdb;Persist Security Info=false" Set cn = New ADODB.Connection With cn .ConnectionString = cmd .Open End With sql = "SELECT * FROM DATOS WHERE TIENDA LIKE " & Me.cbotienda.Text & "%" 'Esto es para que busque la primera tienda que empieze por esos caracteres Set rs = New ADODB.Recordset With rs .Open sql, cn, adOpenForwardOnly, adLockReadOnly End With If Not rs.EOF then cbotienda.Text = rs![tienda] txtnombre.Text = rs![nombre] txtrouter.Text = rs![router] txtservidor.Text = rs![servidor] txttipo.Text = rs![tipo] rs.Close Else cbotienda.Text = "" txtnombre.Text = "" txtrouter.Text = "" txtservidor.Text = "" txttipo.Text = "" MsgBox "Esta tienda no existe" End If Set rs = Nothing cn.Close Set cn = Nothing End If End Sub
Saludos.
184
« en: Jueves 10 de Junio de 2004, 21:25 »
Muxas gracias, no veas que peso de encima mas quitao, jajajaja 
185
« en: Jueves 10 de Junio de 2004, 21:15 »
Re-holas . La he quitado hoy porque me he dao cuenta de que era muy grande (otra de mis cualidades fantásticas, el despiste xD). Sí soy yo, ¿por? ¿Salía mu desaliñá? 
186
« en: Jueves 10 de Junio de 2004, 20:59 »
Una preguntita The Black Boy, ¿me enviaste un mensaje privado hace un tiempo? Es que alguien de este foro me envió un mensaje pero no recuerdo quien y era un nick parecido al tuyo (lo pregunto porque sin querer lo borré). PD: El gusto es mio 
187
« en: Jueves 10 de Junio de 2004, 20:47 »
Mmm, vida personal... si es que la tenemos  . Bueno, voy a empezar rompiendo el hielo , me llamo Érika, (Shiqui pa los amigos, de ahi mi nick) y tengo 20 años... trabajo en una Partner de IBM con ERP's pero también estoy haciendo todo el tema informático a una empresa en mis tiempos libres, de ahí que esté en este foro haciendo preguntitas (y dando trabajo a los fore@s, dicho sea de paso  ). De esta forma conocí el foro. No suelo hablar mucho en el foro, pero lo suelo leer diariamente, siempre aprendo algo nuevo con todos vosotros. Mi padre es informático asi que esto de la informática como que lo llevo mamando desde muy pequeña, es mi principal hobby. Me encanta aprender cosas nuevas y soy muy perfeccionista (quizá llegue a límites extremos). Bueno, muxos besos a todos/as, seguid asi jejejeeje.
188
« en: Jueves 10 de Junio de 2004, 15:29 »
Muchas gracias a todos, este fin de semana probaré a ver si me funciona alguna de vuestras opciones.
PD: Kev, no puedo hacer eso en el evento KeyPress porque se ponen Enabled o no Enabled según ciertos datos, pero gracias.
Un saludo
189
« en: Domingo 6 de Junio de 2004, 18:33 »
Buenas tardes a todos/as los foreros. Mi pregunta es una tontería pero es que no doy con la respuesta!
No sé cuál es la propiedad (o código) para que, cuando tengo un TextBox con la propiedad Enabled a FALSE, no me salga el color de texto del TextBox en gris sino que esté negro.
Espero haberme explicado bien y que puedan ayudarme.
Un saludo, muchas gracias.
190
« en: Sábado 8 de Mayo de 2004, 12:04 »
Yo utilizo este código, si el carácter que ha metido no es un Número le saco un Beep (sonido vaya). Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 Then If Not IsNumeric(Chr(KeyAscii)) Then Beep KeyAscii = 0 End If End If End Sub
Suerte.
191
« en: Miércoles 5 de Mayo de 2004, 20:08 »
Crea un ODBC que apunte a esa tabla, y en VB lo único que tienes que hacer: Dim cn As New ADODB.Connection cn.ConnectionString = "DSN=Nombre del ODBC" cn.Open
Suerte.
192
« en: Lunes 12 de Abril de 2004, 21:46 »
Gracias Daniel_PC, al final estoy utilizando el control "Microsoft Tabbed Dialog" (SSTab) ya que es mucho más fácil de programar que el TabStrip. Aún así, muchas gracias por contestar e intentar ayudarme.
Un Saludo.
193
« en: Lunes 12 de Abril de 2004, 00:25 »
Buenas a todos/as. Estoy realizando un proyecto en VB6 y necesito utilizar el control TabStrip y no sé cómo se utiliza. Si alguien sabe utilizarlo o tiene alguna aplicación hecha utilizando este control agradecería mucho que me ayudara o que me enviase un ejemplo de cómo utilizarlo porque no sé por dónde empezar.
Email de contacto: erikapg@kidetza.com
Muchas gracias y un saludo a todos/as.
194
« en: Viernes 9 de Abril de 2004, 10:01 »
Gracias cpmario, al final lo solucioné, descubrí dónde estaba el problema pero no sabía nada de dicha propiedad, asi que borré el botón y creé otro . De todas formas, me sirve de mucho lo que me has dicho, porque ahora sé algo nuevo, si me vuelve a pasar ya sabré qué es lo que ocurre  . Muchas gracias.
195
« en: Jueves 8 de Abril de 2004, 20:52 »
Buenas a todos de nuevo, he hecho una serie de comprobaciones... pulsando el INTRO en las cajas de texto de ese formulario, si tienen asociado el evento KeyPress, KeyDown o KeyUp el formulario se descarga sin tener nisiquiera código asociado ese evento, por ejemplo si hago esto: Private Sub Text1_KeyPress(KeyAscii as Integer) End Sub
No entiendo por qué se descarga el formulario... estoy perpleja
196
« en: Jueves 8 de Abril de 2004, 20:36 »
Yo animo a que sigas con tu proyecto y no te dejes ganar por gente como esa. Hay mucha envidia y rivalidades en las empresas... y no porque te tengan monotorizado tienes que dejar de hacer tu proyecto.
Ánimo y sigue adelante, también felicito a todos los usuarios de este foro por la ayuda que nos otorgan.
197
« en: Jueves 8 de Abril de 2004, 15:54 »
Buenas a todos/as, me ocurre una cosa bastante extraña, tengo un textbox en el cual, si pulso enter inicio una serie de cosas, pero lo que ocurre es que ni entra por ahi, ni me recoge el programa que he pulsado el ENTER, es decir, si pongo esto: Private Sub Busqueda_KeyPress(KeyAscii As Integer) msgbox KeyAscii end sub
Si pulso cualquier tecla me muestra su código, sin embargo, al pulsar ENTER ni salta siquiera, es como si no hubiera pulsado nada. Lo extraño es que tengo lo mismo puesto en otros formularios y si funciona... ¿Alguien puede decirme qué es lo que ocurre? Gracias.
198
« en: Viernes 2 de Abril de 2004, 22:52 »
Hola a todos, tengo un problema. Tengo un proyecto en el cual tengo un formulario MDI y quiero que cuando yo pinche en el menú para mostrar el formulario correspondiente, quiero poner a éste en el centro de la pantalla del formulario MDI sin tener que decir que se maximize.. no sé si me explico bien.
Digamos que quiero que éste se acople al formulario MDI teniendo en cuenta la resolución de pantalla...
Bueno, espero que puedan ayudarme, saludos.
199
« en: Viernes 19 de Marzo de 2004, 00:44 »
A ver, según lo que dices yo lo haría de dos formas distintas... Pa empezar... ¿qué base de datos vas a utilizar? Si utilizas una base de datos potente (SQL Server o algo así) yo guardaría los datos del programa "Administrador" en una tabla cuyo acceso a modificar sólo tendrías tú y los demás usuarios (clientes en red supongo yo) sólo tengan acceso de lectura a la tabla donde coges los parámetros que dices y ya tendrían acceso de escritura y lectura en las demás tablas que vayas a usar para éstos. (Por supuesto que el programa de servidor y cliente de SQL Server estaría en tu pc protegido de autentificación de contraseña). Si lo que utilizas es Access, no te recomendaría que hicieses eso porque los parámetros que quieres pasar a los clientes no pueden estar en la base de datos ya que puden ser cambiados. Entonces, utilizaría ficheros INI ocultos en el sistema (carpeta Windows o una cosa asi) y que en tu programa accederías a ellos y leerías/escribirías en ellos... y los programas de cliente lo único que haría el programa sería leer ese fichero. Lo que está claro es que el programa de Administrador debe estar protegido por contraseña. También, por cada 'cliente' que maneje la Aplicación de cliente, le asignaría un usuario y una contraseña en una tabla para que se identifique cada vez que entre en la aplicación y así incrementar consecutivamente el ID (el número ese que dices ) que tú consideres necesario a cada uno en la tabla que estimes necesaria. No sé si me he explicado bien... sólo son ideas... * Programa Administrador --> El que manejas tú * Programa Cliente --> El que manejan los demás.
200
« en: Jueves 18 de Marzo de 2004, 17:26 »
Yo tengo éste... algo es algo xD . Espero que te sirva, byes! Enlace quitadoSaludos.
|
|
|
Mostrar Mensajes
