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 : ...