Deklarasinya sqlidr dan sqlusd, tapi yang diisi string SQL?
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of iwan gunawan Sent: Wednesday, August 29, 2007 9:23 AM To: [email protected] Subject: [indoprog-vb] run-time error halo para master vb, bantuin donk benerin script ini, pada waktu klik cmdsave muncul error : run-time error '-2147217908 (80040e0c)' Command text was not set for the command project kira2 dimanasalhnya yah, plz, ini script nya : Private Sub CMDSAVE_Click() If cmbcurrency.Text = "IDR" Then Call IDR Else Call usd End If Adodc1.Refresh DG1.Refresh End Sub Sub IDR() Dim sqlidr As String SQL = "insert into vendor (NOID,VENDOR,NOINVOICE,PEKERJAAN,INVOICEDATE,RECDATE,DUEDATE,INVOICE,IDR ,TOTAL)values" & _ "('" & txtid.Text & "','" & txtvendor.Text & "','" & txtnoinvoice.Text & "','" & txtpekerjaan.Text & "'," & _ "'" & txtinvoicedate.Text & "','" & txtrecdate.Text & "','" & txtduedate.Text & "','" & Val(txtinvoice.Text) & "'," & _ "'" & cmbcurrency.Text & "','" & Val(txttotal.Text) & "')" cn.Execute (sqlidr) End Sub Sub usd() Dim sqlusd As String SQL = "insert into vendor (NOID,VENDOR,NOINVOICE,PEKERJAAN,INVOICEDATE,RECDATE,DUEDATE,INVOICE,USD ,TOTAL)values" & _ "('" & txtid.Text & "','" & txtvendor.Text & "','" & txtnoinvoice.Text & "','" & txtpekerjaan.Text & "'," & _ "'" & txtinvoicedate.Text & "','" & txtrecdate.Text & "','" & txtduedate.Text & "','" & Val(txtinvoice.Text) & "'," & _ "'" & cmbcurrency.Text & "','" & Val(txttotal.Text) & "')" cn.Execute (sqlusd) End Sub Sebelumnya terima kasih atas bantuannya and tanggapannya. __________________________________________________________ Moody friends. Drama queens. Your life? Nope! - their life, your story. Play Sims Stories at Yahoo! Games. http://sims.yahoo.com/ <http://sims.yahoo.com/> [Non-text portions of this message have been removed] NOTICE - This message and any attached files may contain information that is confidential and intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error and that any dissemination, copying or use of this message or attachment is strictly forbidden, as is the disclosure of the information therein. If you have received this message in error please notify the sender immediately and delete the message. [Non-text portions of this message have been removed]
