mungkin dt_umpet nya ga diset connectionstringnya. coba ini Private Sub cmd_LIHAT_Click() dt_umpet.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jasakom\vb\DataAccess\Marketing3.mdb;Persist Security Info=False DT_Umpet.RecordSource = "SELECT No_Urut,Cd_barang,Description,Qty,unit_price,Amount,Remark FROM QRYinvoice WHERE No_invoice ='" & DataCombo1.Text & "'" DT_Umpet.Refresh
... .... dst --- In [email protected], "ridwansyah" <[EMAIL PROTECTED]> wrote: > > oh ya thank berat > berhasilll > baru aja bisa > tapi dalam menampilkan file yang disimpan masih errror > > dimana kalau file di adodc tidak bisa > adodc1= (Dt_umpet) Record sourcenya tidak bisa di kosongin...... (yang problem) > adodc2= (Dt_tampil) Record source QryInvoice > > tapi kalau pake DBGRID BERHASIL > Memakai mani fulasi > DBGRID1 =(Dt_umpet) Record Source dikosongin > DBGRID2= (Dt_tampil) Record Source QryInvoice > > sorce codenya :. > Private Sub cmd_LIHAT_Click() > DT_Umpet.RecordSource = "SELECT No_Urut,Cd_barang,Description,Qty,unit_price,Amount,Remark FROM QRYinvoice IN 'D:\jasakom\vb\DataAccess\Marketing3.mdb' WHERE No_invoice ='" & DataCombo1.Text & "'" > DT_Umpet.Refresh > > DBGrid1.HeadLines = 2 > DBGrid1.Columns(0).Caption = "NO" > DBGrid1.Columns(1).Caption = "DESCRIPTION" > DBGrid1.Columns(2).Caption = "KODE" > DBGrid1.Columns(3).Caption = "QTY" > DBGrid1.Columns(4).Caption = "UNIT PRICE" > DBGrid1.Columns(5).Caption = "AMOUNT" > DBGrid1.Columns(6).Caption = "REMARK" > > DBGrid1.Columns(0).Alignment = 2 > DBGrid1.Columns(1).Alignment = 2 > DBGrid1.Columns(2).Alignment = 2 > DBGrid1.Columns(3).Alignment = 2 > DBGrid1.Columns(4).Alignment = 2 > DBGrid1.Columns(5).Alignment = 2 > DBGrid1.Columns(6).Alignment = 2 > > DBGrid1.Columns(0).Width = 500 > DBGrid1.Columns(1).Width = 1500 > DBGrid1.Columns(2).Width = 1500 > DBGrid1.Columns(3).Width = 1500 > DBGrid1.Columns(4).Width = 2500 > DBGrid1.Columns(5).Width = 2500 > DBGrid1.Columns(6).Width = 2500 > > End Sub > > sekali lagi thank berat yaaaa > saya tunggu solusinya dari vb mania > ----- Original Message ----- > From: cahyo simbok > To: ridwansyah > Sent: Tuesday, February 13, 2007 9:25 AM > Subject: Hal: [indoprog-vb] Re: manifulasi data di ADODC > > > udah tak jawab di milis, dah berhasil blm? > > > ----- Pesan Asli ---- > Dari: ridwansyah <[EMAIL PROTECTED]> > Kepada: [email protected]; [EMAIL PROTECTED] > Terkirim: Jumat, 9 Febuari, 2007 2:04:44 > Topik: Fw: [indoprog-vb] Re: manifulasi data di ADODC > > > sory mas bikinn bingungin > ini data source sbb : > thank berat yaaaa > Adodc1(dt_NoInvoice ) > > Adodc2(Dt_Custemer) > > Adodc3(DT_InNOinvoi ce) data buat manifulasi > > Adodc4(Dt_invoice) Yang di save > > > > ini data source tambah data = berhasil > Private Sub cmd_tambah_Click( ) > > On Error Resume Next > > Dt_InNOInvoice. Recordset. AddNew > > Dt_InNOInvoice. Recordset! cd_barang = DataCombo2 > > Dt_InNOInvoice. Recordset! No_urut = Combo1 > > Dt_InNOInvoice. Recordset! Description = TXT_DESCRIPTION. Text > > Dt_InNOInvoice. Recordset! box = Txt_Box.Text > > Dt_InNOInvoice. Recordset! Remark = txt_remark.Text > > Dt_InNOInvoice. Recordset! qty = Val(txt_QTY. Text) > > Dt_InNOInvoice. Recordset! Unit_price = TXT_UnitPrice > > Dt_InNOInvoice. Recordset! AMOUNT = txt_amount.Text > > Dt_InNOInvoice. Recordset. Update > > Dt_InNOInvoice. RecordSource = "select*from Innoinvoice > in 'D:\jasakom\ vb\DataAccess\ Marketing3. mdb'" > > On Error GoTo 0 > > FORM_KOSONG2 > > > > End Sub > > ini data source simpan = tidak berhasil > > Private Sub cmd_simpan_Click() > Do While Not Dt_InNOInvoice.Recordset.EOF > If Not Dt_InNOInvoice.Recordset!Description <= Space(10) Then > Dt_invoice.Recordset.AddNew > Dt_invoice.Recordset!no_invoice = TXT_NOINVOICE.Text > Dt_invoice.Recordset!No_FakPajak = TXT_NOFPSSI.Text > Dt_invoice.Recordset!npwpssi = txt_npwpssi.Text > Dt_invoice.Recordset!manager = TXT_MANAGER.Text > Dt_invoice.Recordset!tanggal = DTPicker1.Value > 'DT_INVOICE.Recordset!tanggal = TXT_TANGGAL.Text > > Dt_invoice.Recordset!cd_custemer = DataCombo1.Text > Dt_invoice.Recordset!nama = Dt_Custemer.Recordset! nama > Dt_invoice.Recordset!alamat = Dt_Custemer.Recordset! alamat > Dt_invoice.Recordset!alamat2 = Dt_Custemer.Recordset! alamat2 > Dt_invoice.Recordset!telp = Dt_Custemer.Recordset! telp > Dt_invoice.Recordset!NPWP = TXT_NPWPCUSTEMER.Text > Dt_invoice.Recordset!NoFP = TXT_FPCUSTEMER.Text > > Dt_invoice.Recordset!No_urut = Dt_InNOInvoice.Recordset!No_urut > Dt_invoice.Recordset!cd_barang = Dt_InNOInvoice.Recordset!cd_barang > Dt_invoice.Recordset!Description = Dt_InNOInvoice.Recordset!Description > Dt_invoice.Recordset!Unit_price = Dt_InNOInvoice.Recordset!Unit_price > Dt_invoice.Recordset!qty = Dt_InNOInvoice.Recordset! qty > Dt_invoice.Recordset!AMOUNT = Dt_InNOInvoice.Recordset!AMOUNT > Dt_invoice.Recordset!Remark = Dt_InNOInvoice.Recordset!Remark > Dt_invoice.Recordset.Update > End If > Dt_InNOInvoice.Recordset.MoveNext > form_kosong > Loop > Dt_invoice.Refresh > End Sub > > ini data source data dikosongkan = berhasil > > Sub form_kosong() > TXT_NOINVOICE.Text = "" > TXT_NOFPSSI.Text = "" > TXT_MANAGER.Text = "" > TXT_TANGGAL.Text = "" > DataCombo1.Text = "" > DataCombo2.Text = "" > txt_nama.Text = "" > txt_alamat.Text = "" > txt_alamat2.Text = "" > TXT_telp.Text = "" > txt_npwpssi.Text = "" > TXT_NPWPCUSTEMER.Text = "" > TXT_FPCUSTEMER.Text = "" > txt_Description.Text = "" > txt_UnitPrice.Text = "" > txt_QTY.Text = "" > txt_amount.Text = "" > txt_remark.Text = "" > If Not Dt_InNOInvoice.Recordset.RecordCount = 0 Then > Dt_InNOInvoice.Recordset.MoveFirst > Do While Not Dt_InNOInvoice.Recordset.EOF > Dt_InNOInvoice.Recordset.Delete > Dt_InNOInvoice.Recordset.MoveNext > Loop > End If > On Error GoTo 0 > > > End Sub > > > > > ------------------------------------------------------------------- ----------- > Sekarang dengan penyimpanan 1GB > http://id.mail.yahoo.com/ > > [Non-text portions of this message have been removed] >
