Problema BDs, VB .NET

[Bygh]

Saludos.
Tengo un problema que no consigo resolver. Estoy de prácticas y me han
mandado hacer lo siguiente:

Se trata de importar un Excel a una tabla de Access:

* El excel tiene 3 campos(columnas) (ID_CLIENTE, FECHA_INICIO, NUM_EMPLEADOS)
* La tabla de access tiene 4 campos (ID_CLIENTE, FECHA_INICIO, FECHA_FIN,
NUM_EMPLEADOS)

El problema es el siguiente:

Hay que insertar un nuevo registro (fila) desde el excel a la tabla de
manera que cada nuevo registro se guarda sin fecha de fin en la tabla
(normal, pues no hay fecha de fin en el excel); el registro anterior al
instertado debe modificarse: Se añade la fecha de fin en base a la fecha de
inicio del nuevo registro (EJ: Si la FInicio es 10/10/2009 entonces la FFin
del anterior registro debe guardarse con un dia antes, es decir 09/10/2009)

Sinceramente, no se me ocurre como hacerlo. Si alguien puede ayudarme
estaria muy agradecido, es importante.

Muchas gracias.

[Bygh]

[Carlos@herrero J. Carlos Herrero]

"Bygh" <By...@discussions.microsoft.com> escribió en el mensaje de noticias
news:1074415E-4B80-45AC...@microsoft.com...

Hola:
En un Form con 1 boton, pega el siguiente codigo

Imports System.Data.OleDb

Public Class Form1
Friend msCadenaACCESS As String = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\XXXXXX\ZZZZZ.MDB"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim lbGrabar As Boolean = False
Dim lsCliente As String = ""
Dim lsQuery As String = ""
Using loConexion As New OleDbConnection(msCadenaACCESS)
Try
Dim loComando As New OleDbCommand
loComando.Connection = loConexion
Dim loDataTable As New DataTable
Dim loDataAdapter As New OleDbDataAdapter("Select * From
TUTABLA", loConexion)
loDataAdapter.Fill(loDataTable)
loConexion.Open()
Dim loFila As DataRow
'Recorrer el DataTable
For Each loFila In loDataTable.Rows
If lbGrabar = True Then
lsQuery = "Update TUTABLA Set F_FIN=@FFin Where
ID_CLIENTE=" & lsCliente
'añadir parametros al comando
loComando.Parameters.Add(New OleDbParameter("FFin",
OleDbType.Date))
loComando.Parameters("FFin").Value =
DateAdd(DateInterval.Day, -1, CDate(loFila.Item("F_INICIO")))
loComando.CommandText = lsQuery
loComando.ExecuteNonQuery()
Else
lbGrabar = True
End If
lsCliente = loFila.Item("ID_CLIENTE").ToString
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "lP_ActualizaGrid",
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Using
End Sub
End Class

Previamente has tenido que pasar los datos de Excell a Access.
¿ En el ultimo registro, de donde sacas el valor para modificar F_FIN ?

Espero que te sirva
Un saludo desde Bilbo
Carlos

[davidmarin]

oye ya cosneguiste ese a ejeplo sino creo que te puedo ayudar un poco paa despejar tu duda.

Bygh wrote:

Problema BDs, VB .NET
28-oct-09

Saludos.
Tengo un problema que no consigo resolver. Estoy de pr??cticas y me han
mandado hacer lo siguiente:

Se trata de importar un Excel a una tabla de Access:

* El excel tiene 3 campos(columnas) (ID_CLIENTE, FECHA_INICIO, NUM_EMPLEADOS)
* La tabla de access tiene 4 campos (ID_CLIENTE, FECHA_INICIO, FECHA_FIN,
NUM_EMPLEADOS)

El problema es el siguiente:

Hay que insertar un nuevo registro (fila) desde el excel a la tabla de
manera que cada nuevo registro se guarda sin fecha de fin en la tabla
(normal, pues no hay fecha de fin en el excel); el registro anterior al

instertado debe modificarse: Se a??ade la fecha de fin en base a la fecha de

inicio del nuevo registro (EJ: Si la FInicio es 10/10/2009 entonces la FFin
del anterior registro debe guardarse con un dia antes, es decir 09/10/2009)

Sinceramente, no se me ocurre como hacerlo. Si alguien puede ayudarme
estaria muy agradecido, es importante.

Muchas gracias.

Previous Posts In This Thread:

EggHeadCafe - Software Developer Portal of Choice
XML/XPath Query On Attributes
http://www.eggheadcafe.com/tutorials/aspnet/afcc434a-9125-4fc8-93c6-580045c565bf/xmlxpath-query-on-attrib.aspx