Imports [Link].
OleDb
Imports [Link]
Public Class Form1
Public conex As New [Link]
Public dr As [Link]
Public LineaSQL As String
Public comando As New [Link]
Dim adaptar As New [Link]
Dim registro As New DataSet
Public Sub conectar()
[Link] = ("Provider=[Link].12.0; Data Source=C:
C:\Users\galea\OneDrive\Documentos\WindowsLoal\[Link]")
[Link]()
End Sub
Public Sub limpiarcajas()
For Each CAJAS As Control In [Link]
If TypeOf CAJAS Is TextBox Then
[Link] = ""
If [Link] Then
[Link]()
End If
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Try
conectar()
LineaSQL = "insert into DirectorioTelefonico
values(@IdPersona,@Nombres,@Apellidos,@TelefonoFijo,@TelefonoCelular,@Ciudad,@Profes
ion,@Observacion)"
Dim cmd As New [Link](LineaSQL, conex)
[Link]("Nombres", [Link])
[Link]("Apellidos", [Link])
[Link]("TelefonoFijo", [Link])
[Link]("TelefonoCelular", [Link])
[Link]("Ciudad", [Link])
[Link]("Profesion", [Link])
[Link]("Observacion", [Link])
[Link] = [Link]
[Link]()
[Link]()
[Link]("SE AGREGO ESTE DIRECTORIO TELEFONICO DE " +
[Link])
limpiarcajas()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
End Class
