MyBlog

Component-component yang harus digunakan 1 buah Adodc 1 buah Command Button 1 buah Textbox 1 buah Label Langkah: Pertama-tama buatlah koneksi database dengan script dibawah ini Sub Buka_Pembeli() Set con = New ADODB.Connection Set rsa = New ADODB.Recordset conect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA" con.Open conect rsa.Open "Pembeli", con End Sub Untuk script auto numbernya, kopas dibawah ini Call Buka_Pembeli sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc" Set rsa = con.Execute(sql) With rsa If .EOF Then Label8.Caption = "001" TxtIDPembeli.Text = Label8.Caption Else Label8.Caption = rsa.Fields("ID_Pembeli") a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2)) b = Right("000" & Val(a + 1), 3) TxtIDPembeli.Text = b End If End With Semoga tutorial diatas dapat bermanfaat buat semua aja.

Download Program untuk membuat database dengan jumlah field tak terhingga. Sebuah aplikasi secanggih apapun pastinya membutuhkan pendukung dari posisi back end-nya hingga dikatakan handal. Sebuah back-end yang baik mampu memposisikan dirinya sebagai pensupport dari aplikasi tersebut tanpa menghilangkan sisi integralnya sendiri. Dari berbagai macam bahasa database, SQL Server merupakan salah satu database server terbaik saat ini. Didukung sepenuhnya oleh Microsoft menjadikan penggunaan aplikasi berbasis windows dengan mesin database setnagguh SQL Server semakin digandrungi oleh kebanyakan aplikator. SQL Server….hmm bagi sebagian database engineer merupakan sebuah database yang sangat baik. SQL Server adalah bagian dari produk Back Office Microsoft, yang juga menyertakan Back Office Server, Exchange Server, Proxy Server, Site Server, SBS atau Small Bussiness Server dan System Management Server. Pada dasarnya SQL Server berbasis bahasa SQL atau Structured Query Language. SQL Server 20

Disini saya akan menunjukan script VB6 yang digunakan untuk menyeleksi report yang akan dicetak melalui Crystal Report 8.5 Untuk Selection berdasarkan Text atau label yang berada di VB6, scriptnya seperti dibawah ini: With CrystalReport1 .reset .ReportFileName = App.Path &"\Report.rpt"                                                  'Letak File Report .WindowShowPrintBtn = True .SelectionFormula = "{Transaksi.NoTransaksi}='"& Text1.Text &"'"   .RetrieveDataFiles .Action = 1 End With Untuk Selection berdasarkan range Tanggal, scriptnya sama seperti dibawah ini: With CrystalReport1 .reset .ReportFileName = App.Path & "\Report.rpt"                                         'Letak File Report .WindowShowPrintBtn = True .SelectionFormula = "{Transaksi.Tgl_Transaksi} in date ('" DTPicker1.Value &"') to date ('"& DTPicker2.Value &"')" .RetrieveDataFi

Tutuorial yang sangat sederhana ini, saya buat untuk membantu teman-teman saya yang sedang mengerjakan Tugas Akhir. Didalam membuat Tugas Akhir berupa pembuatan sistem informasi, haruslah menggunakan Crystal Report untuk memudahkan didalam membuat struk maupun laporan. Namun, ketika kita add Crystal Report 8.5 pada Visual Basic 6.0, seketika langsung not responding. Tutorial ini muncul dari ide teman saya yang bernama Ignatius Bagas . Disini saya mencantumkan nama pemikir karena saya tidak ingin melanggar hak cipta seseorang. Yang saya inginkan dari pen-download ini, supaya tidak melanggar hak cipta seseorang. Untuk download Tutorial sederhana ini, click DISINI

Download Windows Loader 2.0.7.zip

PCI\VEN_8086&DEV_A011&SUBSYS_A0118086&REV_00  driver for Win7 32Bit Download for this driver, click HERE