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
Leer las respuestas