Codigos para visual
CODIGOS PARA VISUAL NET.
Codigo para consultar
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
cn = New ADODB.Connection
cn.Open("dsn=;uid=;pwd=;")
rs =cn.Execute("select * from where =("&textBox1.Text &")")
TextBox2.Text = rs.Fields(0).Value.ToString
TextBox3.Text = rs.Fields(1).Value.ToString
Codigo para BORRAR
*PARA BORRAR UNA FILA ENTERA DELREGISTRO
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
cn = New ADODB.Connection
cn.Open("dsn=;uid=;pwd=;")
rs = cn.Execute("delete * from where =("& TextBox1.Text &")")TextBox1.Text = " "
TextBox2.Text = " "
*PARA BORRAR TODA LA TABLA
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
cn = New ADODB.Connection
cn.Open("dsn=;uid=;pwd=;")
rs = cn.Execute("delete *from ")
Codigo para GUARDAR
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
cn = New ADODB.Connection
cn.Open("dsn=;uid=;pwd=;")
cn.Execute("insert into values ('"& historia&"','"& apellido &"','"& nombre &"','"& fena &"', '"& lugar &"','"& prov &"','"& direc &"','"& parroq &"','"& edad &"','"& sexo &"','"& telf &"','"& nomrep &"','"& direlectro &"')")
MessageBox.Show("LOSDATOS HAN SIDO GUARDADOS", "Sistema")
cn.Close()
Codigo para BORRAR
UTILIZANDO FORMS
Paso 1 :
Hacemos un nuevo proyecto con el nombre que queramos
Paso 2 :
Creamosun Botón que se diga SALIR
Paso 3 :
Creamos una Nueva Windows Forms Siguiendo las instrucciones de la imagen
Paso 4 :
Pulsamos 2 veces sobre el botón salir y escrivimos Form2.Show
Paso 5 :
Creamos 2 botónes , el primero que siga SI y Ell Segundo NO
Paso 6 :
Creamos un Label Diciendo que si queremos Salir
Paso 7 :
Pulsamos 2 veces sobre elbotón SI y esrivimos
Me.Close
Form1.Close
Paso 8 :
Pulsamos Dos Veces sobre el botón NO y escrivimos
Me..CLose
Form1.SHow
Depuramos pulsando Allí
Paso 10 : ...
Regístrate para leer el documento completo.