necesito ayuda con ese registroa mi basa de datos creado en access no me registra nada cuando le doy
Publicado por Jhonson (1 intervención) el 18/02/2019 17:27:07
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
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
enlace()
Label9.Text = estado
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
comando = New OleDb.OleDbCommand("INSERT INTO tabla1(Codigo, Nombre, Apellido, Genero, Edad, Especialidad, Observaciones )" & Chr(13) &
"VALUES( TextBox1, TextBox2,checkbox1, checkbox2, TextBox3, DomainUpDown1, ComboBox1,TextBox4 )", conexion)
Dim a As String
If CheckBox1.Checked = True Then
a = (" Masculino")
ElseIf CheckBox2.Checked = True Then
a = (" Femenino")
End If
comando.Parameters.AddWithValue("@Codigo", TextBox1.Text)
comando.Parameters.AddWithValue("@Nombre", TextBox1.Text)
comando.Parameters.AddWithValue("@Apellido", TextBox1.Text)
comando.Parameters.AddWithValue("@Genero", value:="a")
comando.Parameters.AddWithValue("@Edad", DomainUpDown1.Text)
comando.Parameters.AddWithValue("@Especialidad", ComboBox1.Text)
comando.Parameters.AddWithValue("@Observaciones", TextBox4.Text)
comando.ExecuteNonQueryAsync()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
Private Sub Form1_FontChanged(sender As Object, e As EventArgs) Handles Me.FontChanged
conexion.Close()
End Sub
End Class
estos son los codigos del modulo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.DataImports System.Data.OleDb
Module Module1
Public conexion As New OleDbConnection
Public estado As String
Public comando As New OleDbCommand
Sub enlace()
Try
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\elpi3\OneDrive\Escritorio\base de datos\Database1.mdb"
conexion.Open()
estado = "conectado"
Catch ex As Exception
estado = "desconectado"
End Try
End Sub
End Module
Valora esta pregunta
0
