ini sourcenya, tp ga saya tulis semua, karena die
langsung ngeblock query nya, jadi blm sempet jalanin
yg laen deh..
Private Sub CmdOutbound_Click()
If Txtsku.Text <> "" Then
Set rsOutBound = New ADODB.Recordset
rsOutBound.Open " SELECT dbo.PICKDETAIL.Storerkey,
dbo.PICKDETAIL.OrderKey, dbo.ORDERS.ExternOrderKey AS
SO_NO, dbo.ORDERS.OrderDate, " & _
" dbo.PICKDETAIL.EditDate AS
ShippedDate, dbo.ORDERS.ConsigneeKey AS Cust_Code,
dbo.ORDERS.C_Company AS Cust_Name, " & _
" dbo.ORDERS.IntermodalVehicle AS
Transport, dbo.PICKDETAIL.Sku,
dbo.SKU.DESCR,dbo.LOTATTRIBUTE.Lottable01 AS
Batch,SUM(dbo.PICKDETAIL.Qty) As QtyOut, " & _
" dbo.PICKDETAIL.Loc,
dbo.PICKDETAIL.Lot, " & _
" dbo.LOTATTRIBUTE.Lottable05 AS
ExpDate, dbo.LOTATTRIBUTE.Lottable04 AS ReceiptDate "
& _
" FROM dbo.ORDERS INNER JOIN
dbo.PICKDETAIL ON dbo.ORDERS.OrderKey =
dbo.PICKDETAIL.OrderKey INNER JOIN " & _
" dbo.LOTATTRIBUTE ON
dbo.ORDERS.StorerKey = dbo.LOTATTRIBUTE.StorerKey AND
dbo.PICKDETAIL.Storerkey = dbo.LOTATTRIBUTE.StorerKey
AND " & _
" dbo.PICKDETAIL.Lot =
dbo.LOTATTRIBUTE.Lot INNER JOIN " & _
" dbo.SKU ON dbo.PICKDETAIL.Storerkey
= dbo.SKU.StorerKey AND dbo.PICKDETAIL.Sku =
dbo.SKU.Sku AND " & _
" dbo.LOTATTRIBUTE.Storerkey =
dbo.SKU.Storerkey And dbo.LOTATTRIBUTE.SKU =
dbo.SKU.SKU " & _
" WHERE (dbo.ORDERS.Status = '9') " &
_
" GROUP BY dbo.PICKDETAIL.Storerkey,
dbo.PICKDETAIL.OrderKey, dbo.ORDERS.ExternOrderKey,
dbo.ORDERS.OrderDate, dbo.PICKDETAIL.EditDate, " & _
" dbo.ORDERS.ConsigneeKey,
dbo.ORDERS.C_Company, dbo.ORDERS.IntermodalVehicle,
dbo.PICKDETAIL.Sku, dbo.PICKDETAIL.Loc, " & _
" dbo.PICKDETAIL.Lot ,
dbo.LOTATTRIBUTE.Lottable01,
dbo.LOTATTRIBUTE.Lottable05,
dbo.LOTATTRIBUTE.Lottable04, dbo.SKU.DESCR " & _
" HAVING (dbo.PICKDETAIL.Storerkey =
'NZMI') AND dbo.PICKDETAIL.sku='" & Txtsku.Text & "'
AND dbo.LOTATTRIBUTE.lottable01='" & Txtbatch.Text &
"' ", con, adOpenDynamic, adLockOptimistic
Kill "C:\RECALL_NZMI\Outbound.xls"
Thanx...
--- destroyer_maniac <[EMAIL PROTECTED]>
wrote:
> itu error waktu menyimpan data. kalo bisa tulisin
> source yang
> menyebabkan error tersebut, munkin setelah itu bisa
> terdeteksi
> kesalahannya.
>
>
> regards,
>
>
> Destroyer_Maniac
>
>
> --- In [email protected], Hasan
> <[EMAIL PROTECTED]> wrote:
> >
> > Rekans...,minta infonya dong,mksd error ini apa
> > seh??Abis die muncul ga selalu seh,kadang bisa
> running
> > kadang error, padahal saya pake input yg sama,die
> > ngeblock querynya...Neh errornya..
> > Run-time error'-2147217887 (80040e21)':
> > Multiple-step OLE DB operation generated
> errors.Check
> > each OLE DB status value,if available. No work was
> done
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Tired of spam? Yahoo! Mail has the best spam
> protection around
> > http://mail.yahoo.com
> >
>
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
