Pregunta de principiante Abrir recorer y modificar tabla!

24/09/2006 - 00:07 por Dario | Informe spam
SalidasC.CursorLocation = ADODB.CursorLocationEnum.adUseClient

SalidasC.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

sSqlBusqueda = "select * from salida where salida = '" & txtSalida.Text &
"'"

ImportR.Open("select * from importado order by id", SalidasC,
ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

SalidasR.Open(sSqlBusqueda, SalidasC, ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic)

sSqlSalidas = "select * from salir where codigo = '" & txtSalida.Text & "'"

SalidasRR.Open(sSqlSalidas, SalidasC, ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic)

If SalidasR.EOF Then

SalidasRR.AddNew()

SalidasRR.Fields("codigo").Value = txtSalida.Text

ImportR.MoveLast()

SalidasRR.Fields("itemsfactura").Value = ImportR.Fields("id").Value

SalidasRR.Fields("itemsagrup").Value = 0



Mas o menos esto ahora como se hace??



Gracias

Preguntas similare

Leer las respuestas

#1 SoftJaén
24/09/2006 - 09:58 | Informe spam
"Dario" escribió:

SalidasC.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

Mas o menos esto ahora como se hace??



Hola, Darío:

En lugar de trabajar con los objetos de la biblioteca ADO clásica, deberás
de utilizar la clase OleDb existente dentro del espacio de nombres
System.Data, si tu intención es establecer una conexión con una base de
datos Microsoft Access.

Para que te vayas haciendo una idea de cómo se trabaja con ADO .NET, échale
un vistazo al ejemplo que aparece en el siguiente enlace:

Cómo crear un enlace de datos en tiempo de ejecución
http://mvp-access.com/softjaen/base...onet08.htm

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
Respuesta Responder a este mensaje
#2 Dario
27/09/2006 - 00:15 | Informe spam
muchas gracias lo probare

"Eduardo Alvarado Meza" <ealvarado_15@(eliminarestetexto)hotmail.com>
escribió en el mensaje news:
Bueno... todo comentario de SoftJaen es bueno, lo que preguntaste es muy
complejo y tendras que leer mucho, sin embargo me tome la molestia de
hacerte un codigo de ejemplo muy basico pero que si lo logras entender
veras que modificandolo se puede hacer muchas cosas. Esta hecho para
trabajar la bd de datos de Northwind, solo copia el codigo en el evento
click de un boton y pon la ruta correcta del archivo mdb para que
funcione.

'Crear la cadena de conexion
Dim ConnStringBuilder As New
System.Data.OleDb.OleDbConnectionStringBuilder
ConnStringBuilder("Provider") = "Microsoft.Jet.OLEDB.4.0"
ConnStringBuilder("Data Source") = "C:\Northwind.mdb"

'Se crea e inicializa la conexion
Using MyConnection As New
OleDb.OleDbConnection(ConnStringBuilder.ConnectionString)
'Tratamiento de errores
Try
'Abrir la conexion
MyConnection.Open()

'Crear el adaptador y las SQL Queries
Dim MyRegionAdapter As New OleDb.OleDbDataAdapter("Select *
From Region", MyConnection)
Dim MyCommandBuilder As New
OleDb.OleDbCommandBuilder(MyRegionAdapter)
MyRegionAdapter.InsertCommand =
MyCommandBuilder.GetInsertCommand
MyRegionAdapter.DeleteCommand =
MyCommandBuilder.GetDeleteCommand
MyRegionAdapter.UpdateCommand =
MyCommandBuilder.GetUpdateCommand

'Traer Registros
Dim dtRegions As New DataTable
If MyRegionAdapter.Fill(dtRegions) = 0 Then _
Windows.Forms.MessageBox.Show("No hay registros")

'Crear Fila Nueva
Dim drNewRecord As DataRow = dtRegions.NewRow
drNewRecord("RegionID") = 12345
drNewRecord("RegionDescription") = "Nueva Región"

'Agregar fila
dtRegions.Rows.Add(drNewRecord)

'Guardar o Aplicar Cambios
MyRegionAdapter.Update(dtRegions)

'Un poco de limpieza
dtRegions.Dispose()
MyRegionAdapter.Dispose()
MyCommandBuilder.Dispose()
Catch ex As Exception
'Capturar y mostrar el error
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

'En el fin del bloque Using se ejecuta el cierre de la
'conexion, de no tenerlo seria
'MyConnection.Close()
End Using



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