elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con VB + Access
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con VB + Access  (Leído 1,310 veces)
jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Ayuda con VB + Access
« en: 1 Junio 2009, 03:54 am »

Pues eso, estoy tratando de usar el control DAO con visual basic para conectar una base de datos access y no hay caso, la abre sin problemas pero no me deja ingresar datos.

1) Tengo cargada la referencia DAO
2) Tengo un modulo donde declaro DB como mi base de datos, R como recordset y declaro la funcion abrir que abre la base de datos para poder usarla.

Este es el boton ingresar:

Código
  1.    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
  2.    R.AddNew
  3.        R("nven") = Val(Text1.Text)
  4.        R("nombres") = Trim(Text2.Text)
  5.        R("apellidos") = Trim(Text3.Text)
  6.        R("rut") = Trim(Text4.Text)
  7.        R("direccion") = Trim(Text5.Text)
  8.        R("comuna") = Trim(Text6.Text)
  9.        R("region") = Trim(Text7.Text)
  10.        R("com_ven") = Val(Text8.Text)
  11.        R("fono") = Val(Text9.Text)
  12.        R("afp") = Trim(Text10.Text)
  13.        R("salud") = Trim(Text11.Text)
  14.        R("fecha") = MonthView1.Value
  15.  
  16.       t = MsgBox("Los datos se guardaron", 48)
  17.    Text1.Text = ""
  18.    Text2.Text = ""
  19.    Text3.Text = ""
  20.    Text4.Text = ""
  21.    Text5.Text = ""
  22.    Text6.Text = ""
  23.    Text7.Text = ""
  24.    Text8.Text = ""
  25.    Text9.Text = ""
  26.    Text10.Text = ""
  27.    Text11.Text = ""

nven que es numero de vendedor es el indice de la tabla vendedores, a ver si alguien me puede ayudar a ver el maldito error que me canse de buscar :xD

Gracias de antemano!


En línea

sebaneo

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: Ayuda con VB + Access
« Respuesta #1 en: 1 Junio 2009, 04:15 am »

Hola, ya vuelvo con mi otro user..pero ¿que error te tira? ¿ que linea? es importante decirlo...

Saludos.


En línea

jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Re: Ayuda con VB + Access
« Respuesta #2 en: 1 Junio 2009, 04:31 am »

Perdon me explique mal, no hay error, compila y genera exe, incluso cuando lo ejecuto y le doy al boton ingresar me tira el mensaje del text :(

Citar
Los datos se guardaron

Por eso me extraña, he buscado toda la tarde revisando una y otra vez, y como en ocasiones uno se nubla de tanto leer lo mimsmo mejor lo posteo, ves algun error?
En línea

sebaneo

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: Ayuda con VB + Access
« Respuesta #3 en: 1 Junio 2009, 04:39 am »

te falta el .Update

saludos.
En línea

jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Re: Ayuda con VB + Access
« Respuesta #4 en: 1 Junio 2009, 04:55 am »

Muchas gracias, sabia que terminaria siendo una tontera :xD es una tarea a medias, sin calificacion pero de todas maneras cuando lo termine posteo el codigo completo que esta bien entretenido para principiantes como yo.

Quedo funcionando mil gracias!

Código
  1.    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
  2.    R.AddNew
  3.        R("nven") = Val(Text1.Text)
  4.        R("nombres") = Trim(Text2.Text)
  5.        R("apellidos") = Trim(Text3.Text)
  6.        R("rut") = Trim(Text4.Text)
  7.        R("direccion") = Trim(Text5.Text)
  8.        R("comuna") = Trim(Text6.Text)
  9.        R("region") = Trim(Text7.Text)
  10.        R("com_ven") = Val(Text8.Text)
  11.        R("fono") = Val(Text9.Text)
  12.        R("afp") = Trim(Text10.Text)
  13.        R("salud") = Trim(Text11.Text)
  14.        R("fecha") = MonthView1.Value
  15.    R.Update
  16.  
  17.       t = MsgBox("Los datos se guardaron", 48)
  18.    Text1.Text = ""
  19.    Text2.Text = ""
  20.    Text3.Text = ""
  21.    Text4.Text = ""
  22.    Text5.Text = ""
  23.    Text6.Text = ""
  24.    Text7.Text = ""
  25.    Text8.Text = ""
  26.    Text9.Text = ""
  27.    Text10.Text = ""
  28.    Text11.Text = ""
  29.    Text1.SetFocus

PD: Espero que vuelvas luego se te extraña en este subforo!  ;)
Gracias
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ACCESS AYUDA CON BD
Software
ALBUR 0 237 Último mensaje 17 Diciembre 2013, 18:30 pm
por ALBUR
ACCESS AYUDA CON BD
Programación Visual Basic
ALBUR 0 885 Último mensaje 22 Diciembre 2013, 00:38 am
por ALBUR
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines