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
Dim Consulta1 As String
Dim Consulta2 As String
Dim resultado1 As ADODB.Recordset
Dim resultado2 As ADODB.Recordset
If accion = "nuevo" Then
If IdcedulaTextBox.Text = "" Or NombresTextBox.Text = "" Or ApellidosTextBox.Text = "" Or DireccionTextBox.Text = "" Or TelefonoTextBox.Text = "" Then
MessageBox.Show("le faltan Campos por completar", "Mensaje", MessageBoxButtons.OK)
Else
Consulta1 = "select * from cliente where idcedula = '" & IdcedulaTextBox.Text & "'"
Consulta2 = "select * from natural where cedula= '" & IdcedulaTextBox.Text & "'"
resultado1 = Conexion.Execute(Consulta1)
resultado2 = Conexion.Execute(Consulta2)
' consulta de por si ya esta registrado
If resultado1.BOF <> True And resultado2.BOF <> True Then
MessageBox.Show("El Cliente ya esta registrado", "Mensaje", MessageBoxButtons.OK)
IdcedulaTextBox.Text = ""
NombresTextBox.Text = ""
ApellidosTextBox.Text = ""
DireccionTextBox.Text = ""
TelefonoTextBox.Text = ""
Else
Registro1 = "insert into cliente(idcedula,direccion,telefono) values('" & IdcedulaTextBox.Text & "','" & DireccionTextBox.Text & "','" & TelefonoTextBox.Text & "')"
Conexion.Execute(Registro1)
Registro2 = "insert into natural(cedula,nombres,apellidos) values('" & IdcedulaTextBox.Text & "','" & NombresTextBox.Text & "','" & ApellidosTextBox.Text & "')"
Conexion.Execute(Registro2)
MessageBox.Show("Registro Exitoso", "Mensaje", MessageBoxButtons.OK)
IdcedulaTextBox.Text = ""
NombresTextBox.Text = ""
ApellidosTextBox.Text = ""
DireccionTextBox.Text = ""
TelefonoTextBox.Text = ""
End If
End If
End If
Cerrar anuncio
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???????
Hola;
No, tengo ni la mas minima idea :huh:
no ayudas mucho............ aunque ya descubri el problema,,,,, estaba en las tablas,,,,,,,, gracias de igual forma