STMIKBG MATARAM

Bagi pengguna situs jejaring sosial kini tidak senyaman dulu lagi, sekarang friendster banyak dihuni oleh para spamer, alih-alih kasih command malah kasih link yang menarik dilengkapi dengan capture video mesum, padahal linknya langsung kearang blog sipengirim spamer. Kalo cari trafik yang jujur lah gak usah neko-neko macam onta gurun pasir gitu haha.

Dan parahnya lagi banyak yang ketipu, dikira sipengirim comment tulus langsung diaprove, duh fs nya kini penuh sampah.

Coming soon!! Bagi warga mataram sekalian jika ingin menikmati menu yang nikmat yang bisa menggugah selera makan, kami menganjurkan langsung saja ke Rumah Makan Nusantara, Disamping masakannya yang lezat dan terjangkau, suasana rumah makan yang asik membuat betah, anda juga akan mendapatkan akses internet gratis.

Ketika anda membutuhkan tempat meeting yang nyaman, dilengkapi dengan fasilitas internet kenapa harus jauh-jauh dan merogoh kocek yang banyak, Solusinya kini didepan anda. Kunjungi segera RM. Nusantara.

Free Hotspot dengan koneksi internet broadband powered by Nusalink Cita Multimedia Next free for you at RM. Nusantara.

Pertama lihat pantai benete terkesan tidak kalah dengan pantai kuta bali ataupun senggigi dilombok, ombaknya yang tenang ditambah lagi pasir putihnya yang menghampar sepanjang mulut pantai makin menambah keindahaan pantai ini.

Sebenarnya alam sumbawa tidak kalah dengan pulau lainnya yang ada diindonesia, tetapi kini alam sumbawa kian terancam dengan adanya exploitasi besar-besaran yang hanya mengejar keuntungan semata, apa yang akan kita wariskan keanak cucu kita nanti ? Apa kita ingin seperti sidoarjo yang kini terendam lumpur? Atau ingin seperti planet merkurius yang udaranya membakar apa saja?

Atau mungkin kita ingin melihat grandcanyon pindah kepulau sumbawa, jangan sampai anak cucu kita mengutuk keserakahan kita

Sales & Marketing Staff (SM)

Requirements :
________________________________________

•    Female/Male
•    D3 or S1 from any discipline (computer background would be an advantage)
•    Min 2 years of experiences
•    Target oriented.
•    Good in Selling, Marketing, and Negotiating
•    Willing to be placed in Mataram
•    Job Type Full Time / Permanent
•    Salary Negotiable

General requirements :
________________________________________

It is preferable that you have a background in the Telecommunications or ISP Industries and knowledge of the Internet & latest IT Technology.
You are capable of working under pressure, self starter motivation, independent and being able to work as a part of the team. Having your own vehicle would be an advantage.

If you think that you fulfill the qualifications above, please send your application letter, recent passport size photograph, and academic documents to:

email : hrd@ncm.co.id
Or
NUSALINK CITA MULTIMEDIA
Pertokoan Griya Ellen Indah No. 19 Jl. Adisucipto, Pejeruk Ampenan
Nusa Tenggara Barat 83113

Secara tidak sengaja saya menemukan kesalahan pada ADODB versi 2.7 yakni kesalahan array, kesalahan array disini maksudnya kita tidak bisa mengambil nilai yang tersimpan dari recordset secara acak, Misalnya pada code berikut ini :

Private Sub CboSuplier_Click()
 Set RsSuplier = Nothing
 Set RsSuplier = New ADODB.Recordset
 StrSuplier = "Select [Suplier Id],[Suplier Name] " & _
              "From Suplier Where [Suplier Id] = '" & _
              Trim(CariKodeData(CboSuplier.Text)) & "'"
 RsSuplier.Open StrSuplier, Conn, adOpenDynamic, adLockOptimistic
 If RsSuplier.RecordCount <> 0 Then
  TxtNamaSuplier.Text = Trim(RsSuplier.Fields("Suplier Name").Value)
  TxtKodeSuplier.Text = Trim(RsSuplier.Fields("Suplier Id").Value)
 End If
End Sub

Akan terjadi kesalahan “Run-time Error ‘3201′ Either BOF or EOF is true, or the current record has been deleted. Requested operation requires is current record“, sebenarnya kesalahan ini terjadi karena kita mengambil data pada recordset (membinding data dari recordset ke control textbox) dilakukan secara acak (tidak berurutan) jika kita perhatikan kode listing diatas tidak bermasalah secara logical. Tetapi jika binding dilakukan secara berurutan permahasalah diatas tidak akan terjadi seperti code dibawah ini

If RsSuplier.RecordCount <> 0 Then
  TxtKodeSuplier.Text = Trim(RsSuplier.Fields("Suplier Id").Value)
  TxtNamaSuplier.Text = Trim(RsSuplier.Fields("Suplier Name").Value)
End If

Berurutan maksudnya disini sesuai urutan field yang dilakukan saat query.

 StrSuplier = "Select [Suplier Id],[Suplier Name] " & _
              "From Suplier Where [Suplier Id] = '" & _
              Trim(CariKodeData(CboSuplier.Text)) & "'"

Semoga programer lainnya yang menggunakan ADO 2.7 bisa terbantu dari tulisan ini.