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]
