|
|
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 - Jeremy
26
« en: Viernes 11 de Junio de 2004, 23:08 »
Shiquilla,muchísimas gracias. 
27
« en: Viernes 11 de Junio de 2004, 21:19 »
Hola de nuevo. Necesito vuestra ayuda... Al momento de guardar unos datos desde un form de visual a una tabla Access me aparece el siguiente error: El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.El código que tengo es el siguiente: Private Sub cmdaceptar_Click() Dim cmd As String Dim sql As String 'Dim cn As ADODB.Connection 'Dim rs As ADODB.Recordset 'mnulimpiar.Enabled = False 'cmd Crea una cadena de conexión cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Ruta BBDD".mdb;Persist Security Info=false" 'Establezco una conexión con la base de datos Set cn = New ADODB.Connection With cn .ConnectionString = cmd .Open End With 'Creo la consulta sql = "SELECT * FROM datos" 'Abro el recordset Set rs = New ADODB.Recordset With rs '.Open sql, cn, adOpenForwardOnly, adLockReadOnly .Open sql, cn .AddNew !tienda = txttienda.Text !nombre = txtnombre.Text !router = txtrouter.Text !servidor = txtservidor.Text !tipo = cbotipo.Text .Update .Close End With End Sub
Gracias por vuestra ayuda. º¿º
28
« en: Viernes 11 de Junio de 2004, 19:57 »
Hola amig@s. Necesito ayuda con la siguiente consulta: Tengo el campo Código postal, el cual se compone de código postal y la población, pero el problema está en que están juntos. Por ejemplo: 29004MALAGA 28012MADRID Necesito una consulta de actualización para de alguna manera ponga un espacion entre el código y la población, quedando el campo así: 29004 MALAGA 28012 MADRID Espero que puedan ayudarme, gracias a tod@s.  º¿º
29
« en: Viernes 11 de Junio de 2004, 19:55 »
Hola amig@s. Necesito ayuda con la siguiente consulta:
Tengo el campo Código postal, el cual se compone de código postal y la población, pero el problema está en que están juntos. Por ejemplo:
29004MALAGA
28012MADRID
Necesito una consulta de actualización para de alguna manera ponga un espacion entre el código y la población, quedando el campo así:
29004 MALAGA
28012 MADRID
Espero que puedan ayudarme, gracias a tod@s.
º¿º
30
« en: Jueves 10 de Junio de 2004, 23:37 »
Hola a tod@s. Hace tiempo que no tocaba el SQL y claro ahora ya lo tengo algo olvidado  . Por eso os pido que me ayudes con la siguiente consulta: Desde una aplicación de Visual Basic cojo todos los datos presentes en dos tablas Access. Las tablas son las siguientes: Tabla tienda *tienda nombre router servidor tipo Tabla clientes*tienda cliente1 cliente2 .... clienten Como imaginarán están relacionadas por el campo *tienda, ahora bien. En el formulario donde quiero visualizar los datos se mostrará el número de la tienda junto con sus datos además de los clientes correspondientes a esa tienda. Por ejemplo, el resultado de la consulta sobre el formulario sería así: Tienda: 258 Nombre: Shopping Center Router: 125.10.21.251 Servidor:125.10.21.1 Tipo: Red Clientes: comp1 - 125.10.21.2 comp2 - 125.10.21.3 comp3 - 125.10.21.4
Espero haberme explicado bien. Gracias a tod@s por vuestra ayuda. º¿º
31
« en: Jueves 10 de Junio de 2004, 21:49 »
Muchas gracias, me he dado cuenta de mi fallo y con tu ayuda he aprendido algo más
32
« en: Jueves 10 de Junio de 2004, 21:14 »
Hola amig@s, necesito vuestra ayuda: Estoy empezando a manejarme con las BBDD. Bueno voy al grano... Conecto mi aplicación VB con una Tabla de Access. Al introducir un valor en el form y al pulsar la tecla ENTER, necesito comprobar si ese dato existe o no en la tabla. He implementado el siguiente código para dicha comprobación, no sé en dónde puedo estar equivocado: 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 'Ejecuto una consulta SQL en la que comparo el valor introducido en un combo Set rs = New ADODB.Recordset With rs .Open sql, cn, adOpenForwardOnly, adLockReadOnly If sql = cbotienda.Text Then 'si el resultado devuelto de la consulta SQL es = al valor introducir entonces que me muestre los datos correspondientes cbotienda.Text = rs.Fields("tienda") txtnombre.Text = rs.Fields("nombre") txtrouter.Text = rs.Fields("router") txtservidor.Text = rs.Fields("servidor") txttipo.Text = rs.Fields("tipo") .Close ElseIf sql <> cbotienda.Text Then MsgBox "Esta tienda no existe" Exit Sub End If End With Set rs = Nothing cn.Close Set cn = Nothing ElseIf KeyAscii <> 13 Then Exit Sub End If End Sub
Gracias a todos por vuestra ayuda. º¿º
33
« en: Jueves 10 de Junio de 2004, 17:53 »
Muchas gracias amigo!!!, he ajustado el código a mi aplicación y me ha salido muy bien. Una vez más, muchas gracias 
34
« en: Jueves 10 de Junio de 2004, 11:16 »
Hola amig@s qué tal?. Os comento: quiero hacer un PING desde mi aplicación en Visual, os explico: En un form tengo un TextBox que muestra la dirección IP de un equipo, y luego el botón PING. Al hacer clic que implemente dicho comando(PING) para saber si hay o no conexión entre mi equipo y la IP de destino. Gracias por la ayuda que me puedan prestar. Un saludo,  º¿º
35
« en: Martes 8 de Junio de 2004, 17:55 »
También se puede crear el menú con todas las opciones que queramos sobre el propio form y ya por último hay que establecer la opción Visible a False dentro de la ventana de opciones del propio Menu. Y para implementarlo un código como este: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu mnuOp ' mnuOp tendrá todas las opciones del menú
End If
End Sub
36
« en: Martes 8 de Junio de 2004, 17:50 »
Muchas gracias amig@s. He visto lo fácil que ha sido. Así también se aprende 
37
« en: Lunes 7 de Junio de 2004, 13:26 »
Hola a tod@s. Por favor, necesito saber cómo crear un PopUpMenu para mi aplicación. De antemano, muchas gracias.
38
« en: Lunes 31 de Mayo de 2004, 21:45 »
Has visto como tienes la BBDD en ACCESS?? quizá debas compartirla ahí Y sino cambia el último valor de la conexión con la BBDD, de False a True: Persist Security Info=True Espero que te sirva º¿º 
39
« en: Lunes 31 de Mayo de 2004, 16:45 »
Hola a tod@s. Tengo una aplicación en VB6 la cual tiene un ComboBox llamado Tiendas. Ahí quiero cargar los números de las tiendas que tengo guardados en un tabla Access. Para la conexión con la BBDD utilizo DAO 3.6
Sé que debo utilizar un bucle, como el For Next por ejemplo, pero no estoy seguro de cómo implementarlo. Necesito que al momento que se cargue el Form principal muestre el ComboBox con todos los números de tiendas cargados.
Adjunto el Form para que lo veáis mejor...
De antemano, muchas gracias.
40
« en: Martes 25 de Mayo de 2004, 21:15 »
Hola amigos. Soy principiante en VB. Tengo dos tablas relacionadas cuyo contenido debo mostrar en un formulario de visual. He conseguido mostrar el contenido de la primera tabla relacionada, pero no consigo mostrar el contenido de la segunda tabla. Debería implementar una consulta SQL en cuya sentencia debo indicar tal relación y una vez ejecutada volcarlo al form de Visual??, o exactamente qué podría hacer? O si tenéis algún ejemplo que me sirva os agradecería mucho.
|
|
|
Mostrar Mensajes
