Option Explicit On
Public Class Form1
Private Sub InsertaFila(ByVal cadenaConexion As String, ByVal nom As String,
ByVal tel As String, ByVal sld As Double)
Dim cadenaConsulta As String = _
"INSERT INTO amigos(nombre, telefono, sueldo) Values( " & nom & " ,...
More
Option Explicit On
Public Class Form1
Private Sub InsertaFila(ByVal cadenaConexion As String, ByVal nom As String,
ByVal tel As String, ByVal sld As Double)
Dim cadenaConsulta As String = _
"INSERT INTO amigos(nombre, telefono, sueldo) Values( " & nom & " , " &
tel & " , " & sld & ")"
Dim command As New Odbc.
OdbcCommand(cadenaConsulta)
Using Conexion As New Odbc.
OdbcConnection(cadenaConexion)
command.
Connection = Conexion
Conexion.
Open()
command.
ExecuteNonQuery()
La conexion es cerrada automáticamente al fin del bloque Using
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.
Object, ByVal e As
System.
EventArgs) Handles Button1.
Click
Dim cadenaConexion As String
Dim nombre As String
Dim telefono As String
Dim sueldo As Double = 0
If TextBox1.
Text <> "" And TextBox2.
Text <> "" Then
nombre = TextBox1.
Text
telefono = TextBox2.
Text
sueldo = CDbl(TextBox4.
Text)
cadenaConexion = "Provider=Microsoft.
Jet.
OLEDB.
4.
0;Data
Source=C:\bd\bdagenda2.
mdb"
cadenaCon
Less