LabQ5

Sekedar mengingatkan dan catatan bagi kami pribadi, apabila merasa lupa dan bingung semoga ini menjadi solusi dan pencerahan. Macam-macam koneksi Visual Basic 6 dengan DBMS, untuk kali ini saya post koneksi Visual Basic dengan MySQL dengan driver " MySQL Driver 5.1 ". Saratnya tentu sudah teristall MySQL server,  MySQL Driver 5.1 dan tentunya Visual Basic 6-nya sendiri. Buat satu buah project, langsung pilih menu Project >> pilih/klik Preference >> centang [ ] Microsoft Active Data Objects 2.8 Library . Ini nama-nama DataBase-nya, saya pilih " laporan_kegiatan "  : Ini contoh tabelnya " tbl_area "   : Langsung dobel klik form project Visual Basic 6-nya, masukkan koding ini : Option Explicit Dim cOnn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load () Set cOnn = New ADODB.Connection On Error GoTo Err Set cOnn = New ADODB.Connection cOnn.ConnectionString = "Provider=MSDASQL.1; Persist Se...

[Modul] Public Sub TB_Zone(frm As Form, Optional vntUseScaleValues As Variant) Dim bUseScaleValues As Boolean If Not IsMissing(vntUseScaleValues) Then bUseScaleValues = vntUseScaleValues End If With frm If bUseScaleValues Then TB_ZoneLeft = .ScaleLeft + .Left TB_ZoneTop = .ScaleTop + .Top TB_ZoneWidth = .ScaleWidth TB_ZoneHeight = .ScaleHeight Else TB_ZoneLeft = .Left TB_ZoneTop = .Top TB_ZoneWidth = .Width TB_ZoneHeight = .Height End If End With End Sub Public Sub TB_CenterForm(frm As Form, Optional vntOffsetLeft As Variant, Optional vntOffsetTop As Variant, Optional vntConsiderTaskbar As Variant) Dim lLeft As Long, lTop As Long Dim lOffsetLeft As Long Dim lOffsetTop As Long Dim bConsiderTaskbar As Boolean If Not IsMissing(vntOffsetLeft) Then lOffsetLeft = vntOffsetLeft End If...

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada ...

Option Explicit Dim KP As Boolean Dim SpaceBar As String Dim strResult, strTemp As String Private Sub KeyPress(KeyAscii As Integer) On Error Resume Next If Len(Text1) = 1 Then strResult = T ext1 strResult = UCase$(Left$(strResult, 1)) & Mid$(strResult, 2) Text1 = strResult Text1.SelStart = Len(strResult) + 1 ElseIf SpaceBar = "Y" Then strTemp = UCase$(Right$(Text1, 1)) Text1 = strResult & strTemp Text1.SelStart = Len(strResult) + 1 SpaceBa r = "" End If strResult = Text1 If KeyAscii = 32 Then KP = True ElseIf KP = True Then SpaceBar = "Y" KP = False End If End Sub

Private Sub MDIForm_Resize() ' minimum width and height of the form Const conMinHeight = 3000 Const conMinWidth = 9000 ' differentials between the flexgrid and the ' forms dimensions Const conFlxWidthDiff = 240 Const conflxHeightDiff = 1200 Dim lngFormWidth As Long Dim lngFormHeight As Long With Me ' determine the dimensions of the form lngFormWidth = .Width If lngFormWidth < conMinWidth Then lngFormWidth = conMinWidth End If lngFormHeight = .Height If lngFormHeight < conMinHeight Then lngFormHeight = conMinHeight End If If Not ((Me.WindowState = vbMaximized) Or (Me.WindowState = vbMinimized)) Then ' set form dimensions .Width = lngFormWidth .Height = lngFormHeight End If End With ' set flexgrid dimensions 'With flx '.Width = lngFormWidth - conFlxWidthDiff '.Height = lngFormHeight - conflxHeightDiff 'End With End Sub ' Form_Resize

Sediakan 1 Project, 1 Form, 1 Modul Option Explicit Public VAR_Tanggal, TglSekarang As String Public Function Format_Tanggal_Indonesia() As String Dim DataTanggal, DataBulan, DataTahun, NamaBulan As String VAR_Tanggal = Format(Date, "DD-MMM-YYYY") DataTanggal = Left$(VAR_Tanggal, 2) 'Mengambil data yg akan diolah menjadi data Tanggal DataBulan = Mid$(VAR_Tanggal, 4, 3) 'Mengambil data yg akan diolah menjadi data Bulan DataTahun = Right$(VAR_Tanggal, 4) 'Mengambil data yg akan diolah menjadi data Tahun If DataBulan = "Jan" Then NamaBulan = " Januari " ElseIf DataBulan = "Feb" Then NamaBulan = " Februari " ElseIf DataBulan = "Mar" Then NamaBulan = " Maret " ElseIf DataBulan = "Apr" Then NamaBulan = " April " ElseIf DataBulan = "May" Then NamaBulan = " Mei " ElseIf DataBulan = "Mei" Then NamaBulan = " Mei " ElseIf DataBulan =...

Kasus-nya..., kita ingin program memanggil Data dari database laporan harian Karyawan dengan prameter ID.Karyawan yang didapat/dipilih dari ComboBox, akan tetapi kita tidak ingin sistem memunculkan MessageBox "Data Tidak Ada" pada saat pertama Form diaktifkan yang disebabkan data belum ada karena event ComboBox-nya adl Click. Kita Ingin MessageBox "Data Tidak Ada" muncul ketika ComboBox telah kita klik. Logikanya dibuatkan pewaktu untuk memberikan "Opt_Value" bernilai 1. Dim Opt_Value As String Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 3 i = i If i = 3 Then Timer1.Enabled = False Opt_Value = 1 End If Next i End Sub Private Sub Form_Load() Opt_Value = 0 End Sub Ket : (3) : Jumlah loop-ing Interval : 1000 Opt_Value : Parameter kunci

Pesan error diatas menjunjukkan componen yang digunakan pada pemrograman visual basic tidak teregister atau tidak ada, langkah yang harus dilakuakan adalah gunakan componen yang lain dan sudah teregister pada PC anda. Pada kasus ini sya pernah menggunakan componen dan object " Microsoft Windows Common Controls(Sp6)", dan ketika saya menjalankan file compile-nya saya mendapatkan pesan System Error &H80070583. Class Does Not Exist Saya coba gunakan componen dan object "Microsoft Windows Common Controls(Sp5)" dan saya berhasil dijalankan file compile-nya"

'Made on 4th June 2009 BY Muh. Iqbal oo>LABQ5oo Private Sub DTPEntered_Change() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPEntered_Click() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPReturn_Change() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub DTPReturn_Click() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub TxtDateEntered_Change() If DTPEntered.Value > DTPReturn.Value Then MsgBox "Date entered must be less than or " & vbCrLf & _ "equal to the date of return",vbExclamation DTPReturn.Value = DTPEntered.Value End If End Sub Private Sub TxtDateReturn_Change() If DTPReturn.Value MsgBox "Date of return must be more or " & vbCrLf & _ "equal to the date of entry",vbExclamation DTPEntered.Value = DTPReturn.Value End If End Sub 'Query is Used Sub SQLQuery() Dim RSZZ As New ADODB.Recordset Dim SQLz As String MySql= ...