kalau ga salah sih, itu problem dengan koneksi d. coba cek connection string or recordsetnya d...
http://newbieprogrammer.blogspot.com On 8/29/07, iwan gunawan <[EMAIL PROTECTED]> wrote: > > 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/ > > [Non-text portions of this message have been removed] > > > [Non-text portions of this message have been removed]
