Terima kasih Pak Das, pada dataGrid sudah muncul tanda koma.
Ada pertannyaaan lagi Pak Das, saya ada coding untuk report, gimana caranya
pada reportnya supaya muncul tanda koma juga ( dimana diisi format angkanya )
pada Field PRICE_TOT.
Script sbb:
Dim oRSCetak As ADODB.Recordset
Set oRSCetak = New ADODB.Recordset
Dim xQTY As Integer
VNomor = 1
With oRSCetak
.Fields.Append "UNIT", adVarChar, 10
.Fields.Append "QTY", adInteger, 4
.Fields.Append "TOT_PRICE", adInteger, 4
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With
oRS.Open strSQL, oKoneksi, adOpenForwardOnly
If Not oRS.BOF Then
Do While Not oRS.EOF
With oRSCetak
.AddNew
![unit] = oRS("UNIT_NAME")
![QTY] = oRS("QTY")
![TOT_PRICE] = oRS("PRICE_TOT")
Tolong bantu Pak Das
DAS mania <[EMAIL PROTECTED]> wrote:
coba syntax ini :
datagrid1.Columns(0).NumberFormat = "###,###,###"
atau bisa diset melalui property pages-nya datagrid. Klik kanan pada
datagrid, properties, pada tab Format, pilih kolom, set formatnya.
semoga membantu
Kadek Pong <[EMAIL PROTECTED]> wrote: Pak Das,
Saya telah melakukan apa yang Das, kasi tahu ke kita, kenapa di DataGridnya,
tidak muncul koma (,), jika saya input angka 100000, semestinya muncul di data
gridnya 100,000 kenapa ya Pak.
Tolong bantu Ya
Terima kasih
DAS mania <[EMAIL PROTECTED]> wrote:
karena query adalah string, maka lebih baik waktu kirim query gak usah
diformat & gak usah pake val, tapi waktu nampilin-nya aja yang di format,
mungkin lebih baik begini :
strSQL = "insert into TRANS values " & _
"('" & Trim(TXTNREF.Text) & "', " & _
"'" & Format(DTPicker1.Value, "mm/dd/yy") & "', " & _
"'" & CMBCG.Text & "', " & _
"'" & CMBNC.Text & "', " & _
"'" & CMBCOMP.Text & "', " & _
"'" & CMBUNIT.Text & "'," & _
"" & QTY.Text & ", " & _
"" & PRICETOT.Text & ")"
letak kesalahannya adalah pada petik satu yang jika dibaca oleh sql maka
isi pricetot dianggap sebagai text dan bukan numeric. Saran : kalau bisa
format tanggal yang paling aman adalah "yyyy-mm-dd"
Sebisa mungkin hasil akhir dari query seperti contoh ini :
insert into TRANS values ('TXTNREF', '2006-03-07', 'CMBCG.TEXT',
'CMBNC.Text', 'CMBCOMP.Text', 'CMBUNIT.Text', QTY.text, PRICETOT.Text)
cara melihatnya gampang, coba jalankan syntax sbb :
msgbox strSQL
Semoga membantu
Kadek Pong <[EMAIL PROTECTED]> wrote: Teman2, minta tolong
Jika saya input angka 125000, keluar Error " Syntact error converting
the varchar value '125,000' to coloumn of data type int.
Gimana caranya supaya format angka menjadi 125,000 tidak error.
Sedangkan codingnya sbb :
strSQL = "insert into TRANS values " & _
"('" & Trim(TXTNREF.Text) & "', " & _
"'" & Format(DTPicker1.Value, "mm/dd/yy") & "', " & _
"'" & CMBCG.Text & "', " & _
"'" & CMBNC.Text & "', " & _
"'" & CMBCOMP.Text & "', " & _
"'" & CMBUNIT.Text & "'," & _
"'" & Val(QTY.Text) & "', " & _
"'" & Format(PRICETOT.Text, "###,###,###,#0") & "')"
Type data untuk PRICETOT adalah Int ( Integer ).
Gimana caranya jika diinput angka ribuan, jutaan dst, keluarnya tanda
koma (,)
tolong bantu betuling codingnya.
Jika saya isi "'" & Format(Val(PRICETOT.Text, "###,###,###,#0")) & "')"
Setelah saya jalankan programnya Val-nya warna kuning
Trims atas bantuannya
---------------------------------
Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet
security Computer internet business
Computer internet access
Computer internet
privacy securities Computer internet
help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Best Regards,
DASmania Cool
Free 500 MB File Hosting at File Lodge
---------------------------------
Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet security Computer internet business Computer
internet access Computer internet privacy securities Computer internet
help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet
security Computer internet business
Computer internet access
Computer internet
privacy securities Computer internet
help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Best Regards,
DASmania Cool
Free 500 MB File Hosting at File Lodge
---------------------------------
Yahoo! Mail
Use Photomail to share photos without annoying attachments.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet security Computer internet business Computer
internet access Computer internet privacy securities Computer internet
help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
