gan ane instal component koq eror ya ,, agan tau carangnya ngak?? bisa ditampilkan errornya? cara apa yang ts tanyakan? cara instalasikah? bukannya tinggal klik next..next.. lalu asep dan kawan kawannya..(kalo ada)?
maksudnya contoh source codenya gan jawaban dengan pertanyaan gak nyambung gan. coba disimak lagi pertanyaannya. supaya yang mau bantu tidak jadi bingung.
minta link downloadnya gan coba cari disini. http://www.devart.com/mydac/download.html bukan versi full, tapi buat latihan sudah cukup. sekalian download http://www.devart.com/dbforge/mysql/studio/ btw, aneh juga mysqlnya gak bisa di delete..
belum gan ,, tu instal komponen lagi ya? iya, download dan instal komponen. utk error di EMS, coba ganti delete dengan select, jika erorr juga EMSnya yang lagi aneh. coba direstart pc nya dulu
ia , cuma pake delete aja ,, bisa koq , udah ane coba .. tapi klemahannya ,, dihapusnya hanya data yang paling atas di grid ... pengennya menghapus data tergantung kursor yang di grid .. sudah lama gak pakai table, jadi sudah lupa caranya.. sudah pernah coba mydac? ane lebih suka pakai komponen ...
memang di table ada yang typenya boelan yaitu field status ,,di program ane , update , dan tambah semuanya lancar , kecuali yang hapus ini ,,, jika memake adotablel bisa jalan , tapi permasalahannya dia menghapus record yang diatas aja yang ada di grid gan ... stelah itu coba pake adocomand eh e...
coba tidak usah pakai parameter dulu, rubah kodenya sbb procedure TForm6.ConvexBtn2Click(Sender: TObject); begin with data.ADOCommand1 do begin CommandText := 'delete from perangkat_elektronik where no_seri = "001"'; CommandType := cmdText; Execute; showmessage ('data berhasil dihapus')...
sama gan ,, masih eror.. sama lagi erornya ane cuma bantu nebak errornya ada di baris perintah yang mana.. kalau masih sama erornya, kemungkinan besar. penyebab error ada di antara 3 baris perintah dibawah ini. CommandText := 'delete * from perangkat_elektronik where no_seri = :no'; Parameters
procedure TForm6.ConvexBtn2Click(Sender: TObject); begin with data.ADOCommand1 do begin CommandText := 'delete * from perangkat_elektronik where no_seri = :no'; Parameters.ParamByName('no').Value :=DBEditTyped1.Text; CommandType := cmdText; Execute; showmessage ('data berhasil dihapus'); end; c...
CommandText := 'delete * from perangkat_elektronik where no_seri = :no'; coba hapus tanda bintang (*) pada code di atas. cmiiw
kalau ts pakai win 7, setting internet connection sharing (ICS) nya. cara setting ICS ini. sangat banyak dan betaburan di internet. malas untuk menulis tentang hal ini lagi.. cari saja di google.
PERMISI MIN AND MOD, SAYA MAU JADI SEORANG PROGRAMER, BISA KAH ANDA MENGAJARI SAYA TENTANG PROGRAMER ? JIKA ANDA MAU MEMBANTU SAYA, SILAHKAN REPLY THERAD SAYA :) saran buat ts, sebelum belajar programming, sebaiknya tsbelajar sopan santun dan tata krama dahulu. apakah Caps Lock di keyboard ts ru