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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Foros Generales
| |-+  Dudas Generales (Moderador: engel lex)
| | |-+  Access 2007 y visual basic 2008, error ar guardar lo datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Access 2007 y visual basic 2008, error ar guardar lo datos  (Leído 4,138 veces)
01munrra

Desconectado Desconectado

Mensajes: 282



Ver Perfil
Access 2007 y visual basic 2008, error ar guardar lo datos
« en: 6 Febrero 2012, 03:52 am »

saludos le comento estoy con vb y una tabla access y lo que quiro es hacer es que me guarde los datos tipeado desde un formulario este es el codigo

Código
  1.  
  2.        Dim Consulta1 As String
  3.        Dim Consulta2 As String
  4.        Dim resultado1 As ADODB.Recordset
  5.        Dim resultado2 As ADODB.Recordset
  6.  
  7.        If accion = "nuevo" Then
  8.            If IdcedulaTextBox.Text = "" Or NombresTextBox.Text = "" Or ApellidosTextBox.Text = "" Or DireccionTextBox.Text = "" Or TelefonoTextBox.Text = "" Then
  9.                MessageBox.Show("le faltan Campos por completar", "Mensaje", MessageBoxButtons.OK)
  10.            Else
  11.                Consulta1 = "select * from cliente where idcedula = '" & IdcedulaTextBox.Text & "'"
  12.                Consulta2 = "select * from natural where cedula= '" & IdcedulaTextBox.Text & "'"
  13.  
  14.                resultado1 = Conexion.Execute(Consulta1)
  15.                resultado2 = Conexion.Execute(Consulta2)
  16.  
  17.                ' consulta de por si ya esta registrado
  18.                If resultado1.BOF <> True And resultado2.BOF <> True Then
  19.                    MessageBox.Show("El Cliente ya esta registrado", "Mensaje", MessageBoxButtons.OK)
  20.                    IdcedulaTextBox.Text = ""
  21.                    NombresTextBox.Text = ""
  22.                    ApellidosTextBox.Text = ""
  23.                    DireccionTextBox.Text = ""
  24.                    TelefonoTextBox.Text = ""
  25.                Else
  26.                    Registro1 = "insert into cliente(idcedula,direccion,telefono) values('" & IdcedulaTextBox.Text & "','" & DireccionTextBox.Text & "','" & TelefonoTextBox.Text & "')"
  27.                    Conexion.Execute(Registro1)
  28.  
  29.                    Registro2 = "insert into natural(cedula,nombres,apellidos) values('" & IdcedulaTextBox.Text & "','" & NombresTextBox.Text & "','" & ApellidosTextBox.Text & "')"
  30.                    Conexion.Execute(Registro2)
  31.  
  32.                    MessageBox.Show("Registro Exitoso", "Mensaje", MessageBoxButtons.OK)
  33.                    IdcedulaTextBox.Text = ""
  34.                    NombresTextBox.Text = ""
  35.                    ApellidosTextBox.Text = ""
  36.                    DireccionTextBox.Text = ""
  37.                    TelefonoTextBox.Text = ""
  38.                End If
  39.  
  40.                End If
  41.            End If
  42. Cerrar anuncio
  43.  
  44.  

me lanza un error en         

resultado2 = Conexion.Execute(Consulta2)

este es el errror
Error no especificado (Exepcion de HRESULT : 0x080004005(E_FAIL) )

que es cuando estoy tratando de consultar el registro, por si ya esta registrado...

cual sera el error???????


En línea

XxwiyavixX

Desconectado Desconectado

Mensajes: 4



Ver Perfil
Re: Access 2007 y visual basic 2008, error ar guardar lo datos
« Respuesta #1 en: 11 Febrero 2012, 02:00 am »

Hola;
No, tengo ni la mas minima idea  :huh:


En línea

> Si juegas con el mejor mueres como los demas <
01munrra

Desconectado Desconectado

Mensajes: 282



Ver Perfil
Re: Access 2007 y visual basic 2008, error ar guardar lo datos
« Respuesta #2 en: 11 Febrero 2012, 20:49 pm »

no ayudas mucho............  aunque ya descubri el problema,,,,, estaba en las tablas,,,,,,,,  gracias de igual forma
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines