Author Topic: <ask> listing simpan, ambil, hapus data (database postgresql)  (Read 1861 times)

0 Members and 1 Guest are viewing this topic.

Offline kamen321

  • Newbie
  • *
  • Posts: 13
<ask> listing simpan, ambil, hapus data (database postgresql)
« on: November 24, 2010, 01:29:21 PM »
assalamu'alaikum
selamat siang...

maaf mengganggu pekerjaan om dan tante
saya numpang tanya, saya baru belajar pake database postgresql
yang saya mau tanyakan bagaimana cara manipulasi data di database postgresql melalui visual foxpro?
untuk koneksi saya sudah buatdan berhasil..

tapi ketika saya input, ternyata data tidak bisa masuk sama sekali  ???

mohon pencerahannya... :icon_sunny:

terima kasih sebelumnya  :icon_thumleft:

Offline poison

  • Hero Member
  • *
  • Posts: 1.631
  • Poison 4 Women
Re: <ask> listing simpan, ambil, hapus data (database postgresql)
« Reply #1 on: November 24, 2010, 02:00:45 PM »
script nya gimana?
think BIG to get BIG thing

Offline kamen321

  • Newbie
  • *
  • Posts: 13
Re: <ask> listing simpan, ambil, hapus data (database postgresql)
« Reply #2 on: November 24, 2010, 02:08:38 PM »
untuk koneksi

phost="localhost"
pdatabase="iseng"
puid="Postgres"
ppwd="becarefulwithme"
lnconn ="Driver={PostgreSQL ANSI}"+";"+;
   "SERVER="+phost+";" + ;
   "port=5432"+";" +;
   "database="+(pdatabase)+";"+;
   "uid="+Alltrim(Lower(puid))+ ";"+ ;
   "pwd="+Alltrim(Lower(ppwd))+";"
skon = Sqlstringconnect(lnconn)
IF skon > 0
=MESSAGEBOX('Koneksi ke Server Berhasil',0,'Info')
   
ELSE
=MESSAGEBOX('Koneksi ke Server Gagal',0,'Info')
ENDIF
RETURN

untuk simpan

xnamabaru=ALLTRIM(THISFORM.txtnama.VALUE)
xalamat=ALLTRIM(THISFORM.txtalamat.VALUE)
IF MESSAGEBOX(’SIMPAN DATA INI?’,36,’COBA SIMPAN DATA’)=6 &&konfirmasi penyimpanan data
SQLEXEC(kon,”INSERT INTO tabeliseng(nama,alamat) VALUES(?xnamabaru,?xalamat)”)
ENDIF

untuk ambil data(tampil ke grid)

xnama=ALLTRIM(THISFORM.txtnama.VALUE)
THISFORM.grid1.RECORDSOURCE=”"
SQLEXEC(kon,”SELECT * FROM tabeliseng WHERE nama=?xnama”,”cursor1″)
THISFORM.grid1.RECORDSOURCE=”cursor1″

mohon pencerahannya  :icon_sunny:

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.605
    • Foxy Land
Re: <ask> listing simpan, ambil, hapus data (database postgresql)
« Reply #3 on: November 24, 2010, 02:51:26 PM »
kamen321:

Sekilas kelihatannya query yang Anda berikan benar. Tapi, ada banyak kemungkinan yang menyebabkan sebuah query tidak dijalankan oleh SQLEXEC. Karena itu, sangat penting untuk memeriksa hasil dari SQLExec. Bagaimana caranya Anda tau apakah query Anda berhasil atau tidak kalau tidak Anda periksa? Ingat, dengan menggunakan SQLExec, Anda menyerahkan kendali ke program lain (dalam kasus Anda PostgreSQL). Jadi, sebaiknya:
Code: [Select]
IF MESSAGEBOX(’SIMPAN DATA INI?’,36,’COBA SIMPAN DATA’)=6 &&konfirmasi penyimpanan data
   IF SQLEXEC(kon,”INSERT INTO tabeliseng(nama,alamat) VALUES(?xnamabaru,?xalamat)”) > 0

   ELSE
       AError(laErr)
       Messagebox(laErr(2), 64, "Insertion Gagal")
   ENDIF
ENDIF

 :)
regards,
foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline poison

  • Hero Member
  • *
  • Posts: 1.631
  • Poison 4 Women
Re: <ask> listing simpan, ambil, hapus data (database postgresql)
« Reply #4 on: November 24, 2010, 03:14:20 PM »
coba begini :
Code: [Select]
phost="localhost"
pdatabase="iseng"
puid="Postgres"
ppwd="becarefulwithme"
lnconn ="Driver={PostgreSQL ANSI}"+";"+;
   "SERVER="+phost+";" + ;
   "port=5432"+";" +;
   "database="+(pdatabase)+";"+;
   "uid="+Alltrim(Lower(puid))+ ";"+ ;
   "pwd="+Alltrim(Lower(ppwd))+";"
skon = Sqlstringconnect(lnconn)
IF [b]skon [/b]> 0
=MESSAGEBOX('Koneksi ke Server Berhasil',0,'Info')
   
ELSE
=MESSAGEBOX('Koneksi ke Server Gagal',0,'Info')
ENDIF

xnamabaru=ALLTRIM(THISFORM.txtnama.VALUE)
xalamat=ALLTRIM(THISFORM.txtalamat.VALUE)
IF MESSAGEBOX(’SIMPAN DATA INI?’,36,’COBA SIMPAN DATA’)=6 &&konfirmasi penyimpanan data
    nExe = SQLEXEC([b]skon[/b],”INSERT INTO tabeliseng(nama,alamat) VALUES(?xnamabaru,?xalamat)”)
    if nExe > 0
    messagebo('seeeeeeeeeeeeeeeep dah')
    else
       AError(laErr)
       Messagebox(laErr(2), 64, "Insertion Gagal")
   
    endif
ENDIF



****
monggo...
cuman bantu nyusun script anda dan Pa2 Foxy
silahkan perhatikan yg bold
think BIG to get BIG thing

Offline kamen321

  • Newbie
  • *
  • Posts: 13
Re: <ask> listing simpan, ambil, hapus data (database postgresql)
« Reply #5 on: November 24, 2010, 03:35:19 PM »
om poison ma om foxy terima kasih banyak ya...
sudah bisa...
ternyata bentrok sama apache om..

oya tadi kan ada listing untuk masukin data ke dalam grid..
kalo mau masukin data ke combo box atau ke list box bisa tidak?