Scribd
Upload
14 views2 pages

Visual

Uploaded by

fj145629
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
14 views2 pages

Visual

Uploaded by

fj145629
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Imports System.Data.

OleDb
Imports System.Data
Public Class Form1
Public conex As New OleDb.OleDbConnection
Public dr As OleDb.OleDbDataReader
Public LineaSQL As String
Public comando As New OleDb.OleDbCommand
Dim adaptar As New OleDb.OleDbDataAdapter
Dim registro As New DataSet

Public Sub conectar()


conex.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:
C:\Users\galea\OneDrive\Documentos\WindowsLoal\Programacion2.accdb")
conex.Open()
End Sub

Public Sub limpiarcajas()


For Each CAJAS As Control In Me.Controls
If TypeOf CAJAS Is TextBox Then
CAJAS.Text = ""
If CAJAS.TabIndex Then
CAJAS.Focus()
End If
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Try
conectar()
LineaSQL = "insert into DirectorioTelefonico
values(@IdPersona,@Nombres,@Apellidos,@TelefonoFijo,@TelefonoCelular,@Ciudad,@Profes
ion,@Observacion)"
Dim cmd As New OleDb.OleDbCommand(LineaSQL, conex)

cmd.Parameters.AddWithValue("Nombres", TextBox2.Text)
cmd.Parameters.AddWithValue("Apellidos", TextBox3.Text)
cmd.Parameters.AddWithValue("TelefonoFijo", TextBox4.Text)
cmd.Parameters.AddWithValue("TelefonoCelular", TextBox5.Text)
cmd.Parameters.AddWithValue("Ciudad", TextBox6.Text)
cmd.Parameters.AddWithValue("Profesion", TextBox7.Text)
cmd.Parameters.AddWithValue("Observacion", TextBox8.Text)
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
conex.Close()
MessageBox.Show("SE AGREGO ESTE DIRECTORIO TELEFONICO DE " +
TextBox2.Text)
limpiarcajas()
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class

You might also like