| Asp.net conexion con access
HOLA NECESITO AYUDA URGENTE!!!! HIZE UN PROYECTO EN ASP.NET DE UN FORMULARIO TIPO ENCUESTA VIA WEB PERO QUIERO HACER LA CONEXION CON ACCESS, ME PASARON UN CODIGO PERO NOSE SI ESTE BIEN ESE CODIGO.
LES MANDO EL CODIGO QUE TENGO:
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Public Class _Default
Inherits System.Web.UI.Page
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim ap_paterno, ap_materno, nombre, curp, cargo, antig, resp1, des, prob1, prob2, prob3, dom01, dom02, tem, dom03 As String
Dim fechnac As Date
Dim porcex, porcsql, porcdelphi, porcfox, porcdbase As Integer
Dim domexcel, domsql, domdbase, domvfoxpro, domdelphi, ins, emis, reg, tuto, cert, mast As Boolean
Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
ap_paterno = TextBox1.Text
End Sub
Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox2.TextChanged
ap_materno = TextBox2.Text
End Sub
Protected Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged
nombre = TextBox3.Text
End Sub
Protected Sub TextBox4_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox4.TextChanged
curp = TextBox4.Text
End Sub
Protected Sub TextBox5_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox5.TextChanged
fechnac = TextBox5.Text
End Sub
Protected Sub TextBox6_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox6.TextChanged
cargo = TextBox6.Text
End Sub
Protected Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox7.TextChanged
antig = TextBox7.Text
End Sub
Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged
domexcel = CheckBox1.Checked
End Sub
Protected Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox8.TextChanged
porcex = TextBox8.Text
End Sub
Protected Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox9.TextChanged
porcsql = TextBox9.Text
End Sub
Protected Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox2.CheckedChanged
domsql = CheckBox2.Checked
End Sub
Protected Sub CheckBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox3.CheckedChanged
domdbase = CheckBox3.Checked
End Sub
Protected Sub TextBox10_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox10.TextChanged
porcdbase = TextBox10.Text
End Sub
Protected Sub CheckBox4_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox4.CheckedChanged
domvfoxpro = CheckBox4.Checked
End Sub
Protected Sub TextBox11_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox11.TextChanged
porcfox = TextBox11.Text
End Sub
Protected Sub TextBox12_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox12.TextChanged
porcdelphi = TextBox12.Text
End Sub
Protected Sub TextBox13_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox13.TextChanged
dom01 = TextBox13.Text
End Sub
Protected Sub TextBox14_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox14.TextChanged
dom02 = TextBox14.Text
End Sub
Protected Sub TextBox15_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox15.TextChanged
dom03 = TextBox15.Text
End Sub
Protected Sub CheckBox9_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox9.CheckedChanged
ins = CheckBox9.Checked
End Sub
Protected Sub CheckBox10_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox10.CheckedChanged
emis = CheckBox10.Checked
End Sub
Protected Sub CheckBox11_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox11.CheckedChanged
reg = CheckBox12.Checked
End Sub
Protected Sub CheckBox12_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox12.CheckedChanged
tuto = CheckBox12.Checked
End Sub
Protected Sub CheckBox13_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox13.CheckedChanged
cert = CheckBox13.Checked
End Sub
Protected Sub CheckBox14_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox14.CheckedChanged
mast = CheckBox14.Checked
End Sub
Protected Sub TextBox16_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox16.TextChanged
tem = TextBox16.Text
End Sub
Protected Sub TextBox17_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox17.TextChanged
resp1 = TextBox17.Text
End Sub
Protected Sub TextBox18_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox18.TextChanged
des = TextBox18.Text
End Sub
Protected Sub TextBox19_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox19.TextChanged
prob1 = TextBox19.Text
End Sub
Protected Sub TextBox20_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox20.TextChanged
prob2 = TextBox20.Text
End Sub
Protected Sub TextBox21_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox21.TextChanged
prob3 = TextBox21.Text
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\Users\Elba Alicia\Documents\base1.mdb;")
cn.Open()
'cmd = New OleDbCommand("INSERT INTO BASE(DOM_EXCEL, DOM_SQL, DOM_DBASE, DOM_VFOXPRO, DOM_DELPHI, INSCR_REINSCR, EMISION_BOLETAS) VALUES(" & domexcel & ", " & domsql & ", " & domdbase & ", " & domvfoxpro & ", " & domdelphi & ", " & ins & ", " & emis & ")", cn)
'cmd = New OleDbCommand("INSERT INTO BASE(DOM_EXCEL, DOM_SQL, DOM_DBASE) VALUES(" & domexcel & ", " & domsql & ", " & domdbase & ")", cn)
'cmd = New OleDbCommand("INSERT INTO BASE(A_PATERNO, A_MATERNO, NOMBRE, DOM_EXCEL, DOM_SQL) VALUES (" & ap_paterno & ", " & ap_materno & ", " & nombre & ", " & domexcel & ", " & domsql & ", " & domdbase & ")", cn)
cmd = New OleDbCommand("INSERT INTO BASE(A_PATERNO, A_MATERNO, NOMBRE) VALUES (" & ap_paterno & ", " & ap_materno & ", " & nombre & ")", cn)
cmd.Parameters.AddWithValue(" & ap_paterno & ", TextBox1.Text)
cmd.Parameters.AddWithValue(" & ap_materno & ", TextBox2.Text)
cmd.Parameters.AddWithValue(" & nombre & ", TextBox3.Text)
cmd.Parameters.AddWithValue(" &
Dim resp As Integer = cmd.ExecuteNonQuery()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
*este es el boton de salir
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
*'este es el boton de limpiar aun no lo tengo completo
End Sub
End Class |