Assalamualaikum semua Programmer,
Saya minta bantuannya nih, saya sedang membuat suatu aplikasi yang
kira-kira listingnya begini:
Dim mCN_CONN As ADODB.Connection
Dim mCOM_OSET As ADODB.Command
Dim mRS_OSET As ADODB.Recordset
Private Sub Command1_Click()
Set mCN_CONN = New ADODB.Connection
mCN_CONN.ConnectionString = "Provider=SQLOLEDB; Server=www-senayan;" & _
"initial catalog=JKTIS;User ID=Sa; Password= "
mCN_CONN.Open
Set mCOM_OSET = New ADODB.Command
mCOM_OSET.ActiveConnection = mCN_CONN
mCOM_OSET.CommandText = "select * from ORDER_SHEET where supp_code=" '
& Text1.Text & '" and " & _
"order_date between"' & Text2.Text & '" and "'
& Text3.Text & '""
mCOM_OSET.CommandText = adCmdText
Set mRS_OSET = New ADODB.Recordset
mRS_OSET.CursorLocation = adUseClient
mRS_OSET.CursorType = adOpenKeyset
mRS_OSET.LockType = adLockOptimistic
'mRS_OSET.ActiveCommand = mCOM_OSET
mRS_OSET.Open mCOM_OSET <====(sistem debug ini)
With mRS_OST
If mRS_OSET.PageCount <> 0 Then
DataGrid1.Columns(1) = mRS_OSET.Fields("Supplier")
DataGrid1.Columns(2) = mRS_OSET.Fields("Order_Date")
DataGrid1.Columns(3) = mRS_OSET.Fields("ISBN")
DataGrid1.Columns(4) = mRS_OSET.Fields("MC")
DataGrid1.Columns(5) = mRS_OSET.Fields("Title")
DataGrid1.Columns(6) = mRS_OSET.Fields("Order_Qty")
DataGrid1.Columns(7) = mRS_OSET.Fields("Currency")
DataGrid1.Columns(8) = mRS_OSET.Fields("CPrice")
DataGrid1.Columns(9) = mRS_OSET.Fields("Reff_No")
DataGrid1.Columns(10) = mRS_OSET.Fields("Slip_No")
Else
MsgBox ("TIDAK ADA ORDER..."), vbOKOnly, "ORDER SHEET"
End If
End With
End Sub
Sampai disini, pada saat di execute (jalan), tapi saat mencoba
memasukan data (seperti di commandtext) muncul pesan di atas dan
sistem menunjukan statement (mRS_OSET.open mCOM_OSET).
Mohon pencerahannya, dimana salahnya? Dan seandainya nanti saya akan
menambahkan COMMAND untuk mengexport hasil querynya ke file Excel
bagaimana menulis statement nya?
Terimakasih,
