hola a todos soy nuevo en esto principalmente la razon por la cual me agregue a este foro fue por que necesito un poco de ayuda estoy tratando de insertar un nuebo registro de visual basic 2005 a acces en una aplicacion aspx he podido realizar una consulta con el siguiente codigo:
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim cadconn As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
cadconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Max\Mis documentos\Visual Studio 2005\WebSites\pruebasesion\App_Data\prueba.mdb"
Dim cad As String
cad = " "
cad = "select * from articulos where clave = " + DropDownList1.SelectedValue()
Label1.Text = cad
conn = New OleDbConnection(cadconn)
da = New OleDbDataAdapter(cad, conn)
da.SelectCommand().CommandText() = cad
ds = New DataSet()
da.Fill(ds, "articulos")
GridView1.DataSource() = ds
GridView1.DataMember() = "articulos"
GridView1.DataBind()
End Sub
End Class
lo que ahora intento hacer es agregar un nuevo regitro si alguien me pudira ayudar se lo agradeceria infinitamente cuento con este codigo pero no me funciona es muy parecido al anterior
Imports System.Data
Imports System.Data.OleDb
Partial Class Default2
Inherits System.Web.UI.Page
Dim connn As OleDbConnection
Dim daa As OleDbDataAdapter
Dim dss As DataSet
Dim cadconnn As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
cadconnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Max\Mis documentos\Visual Studio 2005\WebSites\pruebasesion\App_Data\prueba2.mdb"
Dim cad As String
cad = " "
cad = "insert into prueba2.articulo values(3, " + DropDownList1.SelectedValue() + ", '" + TextBox1.Text + " '," + "'" + TextBox2.Text + "');"
Response.Write(cad)
connn = New OleDbConnection(cadconnn)
daa = New OleDbDataAdapter(cad, connn)
daa.InsertCommand.CommandText = (cad)
dss = New DataSet()
daa.Fill(dss, "articulo")
End Sub
End Class
son prueebas que estoy realizando para realizar un proyecto que tengo en mente pero no encuentro el problema gracias a todos de antemano y un saludo a todos lo usuarios de esta pagina espero y algun dia pueda ayudarlos saludos
