Consulta de access 2016 con VB 2019
Publicado por Oliver (2 intervenciones) el 19/05/2020 06:19:07
Estoy intentando realizar una consulta a una base de datos .accdb de Access 2016 con Visual Basic 2019 pero me marca un error, estoy retomando la programación y no puedo logar conectarlos, alguien que me pueda apoyar? Me urge! :(
El error es el siguiente:
Me lo marca en la línea 33 (comando.Connection = conexion)
System.NullReferenceException: Object reference not set to an instance of an object.
at
Customer_claims_application.Base_de_datos_de_quejas_de_cliente.Button4_Click(Object sender, EventArgs e)in
C:\Users\yo\source\repos\Customer claims application\Base de datos de quejas de cliente.vb:line 33
El código es el siguiente:
Saludos.
El error es el siguiente:
Me lo marca en la línea 33 (comando.Connection = conexion)
System.NullReferenceException: Object reference not set to an instance of an object.
at
Customer_claims_application.Base_de_datos_de_quejas_de_cliente.Button4_Click(Object sender, EventArgs e)in
C:\Users\yo\source\repos\Customer claims application\Base de datos de quejas de cliente.vb:line 33
El código es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Imports System.DataImports System.Data.OleDb
Public Class Base_de_datos_de_quejas_de_cliente
Dim ex, ey As IntegerDim Arrastre As Boolean
Dim conexion As New OleDbConnection
Dim comando As OleDbCommand
Dim consulta As String
Dim lectura As OleDbDataReader
Dim oda As OleDbDataAdapter
Dim ods As DataSet
Dim registro As Byte
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
Módulos.Close()
Login.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Buttonbuscar.Click
If TextBox11.Text <> "" Then
Try
Dim consulta As String
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Database\Customer.accdb"
conexion.Open()
comando.Connection = conexion
comando.CommandText = "Select * From Customertable Where Id = '" & TextBox11.Text & "'"
lectura = comando.ExecuteReader()
'Mostrar()If lectura.Read() Then
oda = New OleDbDataAdapter(consulta, conexion)
ods.Tables.Add("Customertable")
oda.Fill(ods.Tables("Customertable"))
DataGridView1.DataSource = ods.Tables("Customertable")
End If
Catch ex As Exception
MsgBox("Conectó pura madres con el data reader..." & vbCrLf & ex.ToString, vbInformation, "Aviso")
End Try
End If
End Sub
End class
Saludos.
Valora esta pregunta
0