OK alexg 88 se realizo la conexion magnificamente
pero_!! jeje te tengo otra preguntita jaja ya tengo es problema de sintaxis me sale esto por ejemplo para realizar una busqueda
Cita: Private Sub BuscarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem.Click
Dim numero As String
Dim rs As ADODB.Recordset
numero = InputBox("Digite El numero de Cedula a Buscar")
conectar()
sql = "Select *from datos where Cedula='" & numero & "'"
rs = conexion.Execute(sql)
If rs.BOF <> True Then
rs.MoveFirst()
txt_id.Enabled = rs.Fields(0).Value
Txt_Cedula.Enabled = rs.Fields(1).Value
Txt_Nombre.Enabled = rs.Fields(2).Value----> aqui me sale esto " no se controlo invalidcastexeption "la conversion de la cadena "jesus" en el tipo "boolean" no es valida.
txt_Apellido.Enabled = rs.Fields(3).Value
txt_Edad.Enabled = rs.Fields(4).Value
txt_Ciudad.Enabled = rs.Fields(5).Value
txt_Direccion.Enabled = rs.Fields(6).Value
txt_Diagnostico.Enabled = rs.Fields(7).Value
txt_Tratamiento.Enabled = rs.Fields(8).Value
txt_Observacion.Enabled = rs.Fields(9).Value
txt_Cedula_Acompañante.Enabled = rs.Fields(10).Value
txt_Nombre_Acompañante.Enabled = rs.Fields(11).Value
txt_Apellido_Acompañante.Enabled = rs.Fields(12).Value
txt_Telefono_de_Acompañante.Enabled = rs.Fields(13).Value
Else
MsgBox("El Numero de cedula: " & numero & "no existe", MsgBoxStyle.Exclamation, "Busqueda de Registro")
End If
conexion.Close()
End Sub
ok un detalle de este error
[QUOTE]"La conversión de la cadena "jesus" en el tipo 'Boolean' no es válida."[/QUOTE
debe ser algo con el value que podria hacer solo id_registro es numero el resto es de tipo texto en la base de datos