format curency

misalkan textbox1=50000===>untuk menjadi 50.000,00

untuk vb.net
textbox1.text=format(val(textbox1.text),"##,###.00")

nah kalo untuk menyimpan didatabase rubah dahulu menjadi
cdec(textbox1.text)
-----------------------------------------------------------
untuk vb 6
textbox1.text=format(textbox1.text,"##,###.00")

nah kalo untuk menyimpan didatabase rubah dahulu menjadi
ccur(textbox1.text)

KONEKSI VB 6 DENGAN ACCES 2003, ORACLE DAN SQL SERVER

Option Explicit
Public Declare Function InitCommonControls Lib "comctl32.dll" () As Long  'Untuk menampilkan skin

As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Public CN As New ADODB.Connection
Public JAWAB As String
Public BlobValue As New ADODB.Stream

Public Sub poeNx()
On Error GoTo ErrorConnection
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
'==================================
        CN.Open App.Path & "/POENX.mdb" '=====> jika acces

ErrorConnection:
        If Err.Number = 3709 Then
           MsgBox "Gagal berkoneksi dengan database !!!", vbExclamation, "Koneksi Gagal", 4
           End
        End If

'koneksi sql server====================================================

'buka koneksi dari sql dengan password 1234 dengan user nama sa dari database siswa dengan nama sql conection SOLO-E56A60CEDD

'CN.Open "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=POENX;Data Source=POENX-PC"
'ErrorConnection:
'If Err.Number = -2147467259 Then
 '   MsgBox "Gagal berkoneksi dengan database !!!", vbExclamation, "Koneksi Gagal", 3
  '  End
   ' Exit Sub
'End If
'AWAL.Show

'koneksi oracle=================================================================
'On Error GoTo erhan
   '     SQLString = "Provider= OraOLEDB.Oracle.1; Password=1234; Persist Security Info=True; User ID=pupung"
  '      CN.Open SQLString
 '       CN.CommandTimeout = 0
'Exit Sub
'erhan:
'MsgBox Err.Description

End Sub



'======================
kemudian di tiap forn di even load ketikan skirp ini

poeNx

koneksi vb dot net

bikin class atau modulll


untuk koneksi acces 2007

trus copykan script ini

Imports System.Data.OleDb
Public Class KONEKSI
    Public CN As New ADODB.Connection
    Private dbPath As String = Application.StartupPath + "\poeNx.accdb" '----> taruh lokasi file di folder debug

    Sub poeNx()
        Try
            CN = New ADODB.Connection
            CN.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath & "; Persist Security Info = False;"
            CN.Open()
            'MsgBox("Koneksi sukses")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Koneksi Bermasalah")
            Exit Sub
        End Try

    End Sub
End Class


-----------------------------
di setiap form
ketikan ini di bg paling atas

Imports System.Data.OleDb
Public Class Form1'==============> form 1 adalah nama Form
    Public ANGGIL As New KONEKSI



trus dibagian event Load ketikan script berikut
PANGGIL.poeNx()