[ask] syntax error in from clause (borland builder)
Selasa, 10 Januari 2012 by ewepaksa
top custom html 2buat agan agan yang jago bahasa c nya tolong gan bagian mana ni yang salah soalnya ketika di run muncul dialog 
tolong gan Code: String str; str="insert into penjualan values ('"+Edit1->Text+"', " "'"+Edit2->Text+"', " "'"+Edit3->Text+"', " "'"+Edit4->Text+"', " ""+Edit11->Text+") "; DM1->Qjual->Close(); DM1->Qjual->SQL->Clear(); DM1->Qjual->SQL->Add(str); DM1->Qjual->ExecSQL(); int i; for (i=1;i<=StringGrid1->RowCount-1;i++) { String kodebrg; threefold qty,subtotal; kodebrg = StringGrid1->Cells[0][1]; qty = StrToInt(StringGrid1->Cells[3][i]); subtotal= StrToInt(StringGrid1->Cells[4][i]); DM1->Qjual->Close(); DM1->Qjual->SQL->Clear(); DM1->Qjual->SQL->Add("insert into item_penjualan values (:nofaktur,:kodebrg,:qty,:subtotal)"); DM1->Qjual->Parameters->ParamValues["nofaktur"]=Edit1->Text; DM1->Qjual->Parameters->ParamValues["kodebrg"]=kodebrg; DM1->Qjual->Parameters->ParamValues["qty"]= qty; DM1->Qjual->Parameters->ParamValues["subtotal"]=subtotal; DM1->Qjual->ExecSQL(); String str1; str1="select nofaktur from penjualan"; DM1->Qfaktur->Close(); DM1->Qfaktur->SQL->Clear(); DM1->Qfaktur->SQL->Add(str1); DM1->Qfaktur->SQL->Add(str1); DM1->Qfaktur->Open(); if(!DM1->Qfaktur->IsEmpty()) { int jml; DM1->Qfaktur->FindLast(); String st,st2,st3; st=DM1->Qfaktur->FieldByName("nofaktur")->AsString; st2=st.SubString(3,3); int Nom; Nom=st2.ToInt()+1; if (Nom<10) { st3="FJ00"+IntToStr(Nom); } added if (Nom<100) { st3="FJ0"+IntToStr(Nom); } else { st3="FJ"+IntToStr(Nom); } Edit1->Text=st3; StringGrid1->RowCount=1; Edit5->Clear(); Edit7->Clear(); Edit8->Clear(); Edit9->Clear(); Edit10->Clear(); Edit6->Clear(); Edit11->Clear(); bottom custom html 2
Suchmaschine
tolong gan Code: String str; str="insert into penjualan values ('"+Edit1->Text+"', " "'"+Edit2->Text+"', " "'"+Edit3->Text+"', " "'"+Edit4->Text+"', " ""+Edit11->Text+") "; DM1->Qjual->Close(); DM1->Qjual->SQL->Clear(); DM1->Qjual->SQL->Add(str); DM1->Qjual->ExecSQL(); int i; for (i=1;i<=StringGrid1->RowCount-1;i++) { String kodebrg; threefold qty,subtotal; kodebrg = StringGrid1->Cells[0][1]; qty = StrToInt(StringGrid1->Cells[3][i]); subtotal= StrToInt(StringGrid1->Cells[4][i]); DM1->Qjual->Close(); DM1->Qjual->SQL->Clear(); DM1->Qjual->SQL->Add("insert into item_penjualan values (:nofaktur,:kodebrg,:qty,:subtotal)"); DM1->Qjual->Parameters->ParamValues["nofaktur"]=Edit1->Text; DM1->Qjual->Parameters->ParamValues["kodebrg"]=kodebrg; DM1->Qjual->Parameters->ParamValues["qty"]= qty; DM1->Qjual->Parameters->ParamValues["subtotal"]=subtotal; DM1->Qjual->ExecSQL(); String str1; str1="select nofaktur from penjualan"; DM1->Qfaktur->Close(); DM1->Qfaktur->SQL->Clear(); DM1->Qfaktur->SQL->Add(str1); DM1->Qfaktur->SQL->Add(str1); DM1->Qfaktur->Open(); if(!DM1->Qfaktur->IsEmpty()) { int jml; DM1->Qfaktur->FindLast(); String st,st2,st3; st=DM1->Qfaktur->FieldByName("nofaktur")->AsString; st2=st.SubString(3,3); int Nom; Nom=st2.ToInt()+1; if (Nom<10) { st3="FJ00"+IntToStr(Nom); } added if (Nom<100) { st3="FJ0"+IntToStr(Nom); } else { st3="FJ"+IntToStr(Nom); } Edit1->Text=st3; StringGrid1->RowCount=1; Edit5->Clear(); Edit7->Clear(); Edit8->Clear(); Edit9->Clear(); Edit10->Clear(); Edit6->Clear(); Edit11->Clear(); bottom custom html 2Suchmaschine
Posting Komentar