Problemas con datos de excel

30/07/2004 - 16:44 por Juan Carlos | Informe spam
Hola a todo estoy haciendo lo siguiente mediante ASP.net
y me esta saliendo un error en cual es "Error de sintaxis
en la instrucción INSERT INTO"

Y lo que estoy haciendo es

Dim DS As New DataSet

Dim CnSt As String

Dim Cn As New OleDbConnection

Dim dr As Data.DataRow

Dim StRuta As String, StHoja As String

StRuta = Server.MapPath("PlantillaExcel\PDEVCADENA.xls")

StHoja = "devolucion"

CnSt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '"
& StRuta & "' ;Extended Properties=""Excel 8.0;"""

Cn.ConnectionString = CnSt

Cn.Open()

Dim DA As New OleDbDataAdapter("SELECT * FROM [" & StHoja
& "$]", Cn)

DA.Fill(DS, "PARAMETRO")

Dim CB As OleDbCommandBuilder

CB = New OleDbCommandBuilder(DA)

DA.InsertCommand = CB.GetInsertCommand

dr = DS.Tables("PARAMETRO").NewRow

dr.BeginEdit()

dr.Item("Ciclo") = 160

dr.EndEdit()

DS.Tables("PARAMETRO").Rows.Add(dr)

DGDatos1.DataSource = DS

DGDatos1.DataBind()

DA.Update(DS, "PARAMETRO") ' el error me sale aqui

Cn.Close()

Alguien me puede a ayudar a resolver este problema?

Un saludo Juan Carlos

Preguntas similare

Leer las respuestas

#1 DJ_MIAO
31/07/2004 - 06:11 | Informe spam
Has todo visual .No te compliques la vida con tanto
regrero.
Miao...
Hola a todo estoy haciendo lo siguiente mediante ASP.net
y me esta saliendo un error en cual es "Error de


sintaxis
en la instrucción INSERT INTO"

Y lo que estoy haciendo es

Dim DS As New DataSet

Dim CnSt As String

Dim Cn As New OleDbConnection

Dim dr As Data.DataRow

Dim StRuta As String, StHoja As String

StRuta = Server.MapPath("PlantillaExcel\PDEVCADENA.xls")

StHoja = "devolucion"

CnSt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '"
& StRuta & "' ;Extended Properties=""Excel 8.0;"""

Cn.ConnectionString = CnSt

Cn.Open()

Dim DA As New OleDbDataAdapter("SELECT * FROM [" &


StHoja
& "$]", Cn)

DA.Fill(DS, "PARAMETRO")

Dim CB As OleDbCommandBuilder

CB = New OleDbCommandBuilder(DA)

DA.InsertCommand = CB.GetInsertCommand

dr = DS.Tables("PARAMETRO").NewRow

dr.BeginEdit()

dr.Item("Ciclo") = 160

dr.EndEdit()

DS.Tables("PARAMETRO").Rows.Add(dr)

DGDatos1.DataSource = DS

DGDatos1.DataBind()

DA.Update(DS, "PARAMETRO") ' el error me sale aqui

Cn.Close()

Alguien me puede a ayudar a resolver este problema?

Un saludo Juan Carlos

.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida