Testimoninya bener dari PGAA tapi saya yakin kalo yg posting ini BUKAN Guru Besar PGAA karena Beliau gak pernah main ke forum KASKUS... nomor hp juga bukan itu Mohon jgn menipu orang lain dgn mengatas namakan PGAA
Hapus energi Negatif#93011#medan Cinta...Kasih...Sayang #untuk semua mahluk Cinta...Kasih...Sayang #untuk semua mahluk Cinta...Kasih...Sayang #untuk semua mahluk Cinta...Kasih...Sayang #hermansentosa Beruntung...Selalu...Selamanya#hermansentosa Cinta...Kasih...Sayang #hermansentosa Beruntung...Sela
2 2 nya ane cobain tetep error :sorry waduh... masih error ya gan... capture lalu tampilkan di sini donk pesan error nya gan
lagi belajar round up nih butuh bantuan. pembulatan ke dalam ribuan itu kan kalo < 500 kok ikut pembulatan ke bawah yah.?? pengenya sih meskipun nominal 5200 jadi 6000 bukan hasilnya 5000 :capedes kenapa gak di tambah 0.5 aja pada hasil baginya... baru diround... contohnya : Label1 = Round( (
coba pake cara seperti ini gan Dim cConnStr as String = "Data Source=.;Initial Catalog=mahasiswa;Integrated Security=True" Dim cQuery as String = "SELECT * FROM tblBiodata" Dim conn As SqlConnection() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System
gan.. yg jadi masalahnya isi dari field yg menjadi index atau primary key-nya itu NULL... jadi tinggal di masukkan nilai aja pada field yg menjadi INDEX atau PRIMARY KEY newbie... gan.... maaf kalo salah....
Private Sub Command1_Click() Timer1.Enabled = True ProgressBar1.Value = 0 End Sub Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 1 If ProgressBar1.Value = ProgressBar1.Max Then List2.AddItem List1.List(0) List1.RemoveItem (0) List1.ListI
seperti ini x gan seharunya Private Sub txtKode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Koneksi() If txtKode.Text = "" Then MsgBox("Input Kode Terlebih Dahulu !", vbCritical + vbOKOnly, "Error") txtKode.Set
http://kkcdn-static.kaskus.co.id/images/2013/05/26/4111189_20130526070748.JPG ini gan untuk nampilin ane pake MSFlexGrid Sub TampilGrid1() tampil = "select * from karyawan order by id_karyawan" Set rskaryawan = DB.Execute(tampil) If rskaryawan.BOF Then Exit Sub Els
gan mw tanya .. cara menjumlahkan data dalam field datagrid ke text gimana ya gan?? tolong gan ....:sorry bisa kasih lebih mendetailnya gimana maksudnya gan ? Terima Kasih
mau nanya ne gan text1(1).text text1(2).text gimana buat program cara memindahkan angka dri text1(1) ke text(2) dan yang di text1(2) pindah ke text1(1) ane pake vb6 dim a as string a = text1(1).text text1(1).text = text1(2).text text1(2).text = a maaf kalo salah :D masih newbie bgt Terima Kasih
gan numpang tnya yah :malus ane mau bikin struk kasir lewat vb yg nantinya dcetak lwt printer kasir itu cara bikinya gmn ya ? ap ad perintah khusus buat printernya ? trims :) cetaknya pake RAWPrint gan...
http://kkcdn-static.kaskus.co.id/images/2013/05/23/996306_20130523121554.png http://kkcdn-static.kaskus.co.id/images/2013/05/23/996306_20130523121609.png ini gan :malu: jadi solusinya gimana gan ? :bingungs solusinya gan... tuh variabel sex, agama, jurusan dimnya jgn di private sub _click ny
Private Sub agama_Click(Index As Integer) Dim agama As String Select Case Index Case 0 agama = "Islam" Case 1 agama = "kristen" Case 2 agama = "hindu" Case 3 agama = "budha" End Select End Sub Private Sub Command1_C
ga bisa gan, query nya beda, ane pake sql server 2008 sql server ya gan... coba pake CAST gan... contoh CAST(10.00000 as float) atau CAST(round(10.564261,2) as numeric(12,1)) sorry kalo salah gan :D
