Hola a todos tengo una base de datos llamada prueba y su tabla vehiculos trato de guardar en la tabla en sus campos Num, Nombre, Color y no hace nada aqui les dejo el codigo del boton guardar ya hice la conexion y nada estoy trabajando en visual studio 2012 vb.net y access 2010.
Imports System.Data.OleDb
Public Class Form1
Dim conexion As New OleDb.OleDbConnection
Dim comandos As New OleDb.OleDbCommand
Dim adaptador As New OleDb.OleDbDataAdapter
Dim resgistro As New DataSet
Private _oleDbCommand As OleDb.OleDbCommand
Private Property OleDbCommand(p1 As String) As OleDb.OleDbCommand
Get
Return _oleDbCommand
End Get
Set(value As OleDb.OleDbCommand)
_oleDbCommand = value
End Set
End Property
Private Property registro As DataSet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conexion As OleDbConnection
Dim comandos As OleDbCommand
Try
comandos = New OleDbCommand("ISERT INTO vehiculos VALUE(Num, Nombre,Color) VALUES(TextBox1, TextBox2, Textox3)", conexion)
comandos.Parameters.AddWithValue("@Num", TextBox1.Text)
comandos.Parameters.AddWithValue("@Nombre", TextBox2.Text)
comandos.Parameters.AddWithValue("@Color", TextBox3.Text)
comandos.ExecuteNonQuery()
MsgBox("Guardado Correctamente", vbInformation, "Correcto")
Catch ex As Exception
MsgBox("Error al Guardar", vbExclamation, "Error")
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\prueba.accdb")
conexion.Open()
MsgBox("Conexión correcta", vbInformation, "Conectado")
Catch ex As Exception
MsgBox("Ha ocurrido un error al intentar conectarse con la base de datos", vbInformation, "Error")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim consulta As String
Dim lista As Byte
If TextBox1.Text <> "" Then
consulta = "SELECT * FROM vehiculos WHERE Num = " & TextBox1.Text & ""
adaptador = New OleDb.OleDbDataAdapter(consulta, conexion)
registro = New DataSet
adaptador.Fill(registro, "vehiculos")
lista = registro.Tables("vehiculos").Rows.Count
If lista <> 0 Then
TextBox1.Text = registro.Tables("vehiculos").Rows(0).Item("Num")
TextBox2.Text = registro.Tables("vehiculos").Rows(0).Item("Nombre")
TextBox3.Text = registro.Tables("vehiculos").Rows(0).Item("Color")
End If
End If
End Sub
End Class