Membuat paket instalasi vb + mysql dengan inno setup
Membuat paket instalasi yang mudah untuk aplikasi yang akan kita distribusikan memang gampang-gampang susah, gampang bagi kita untuk membuatnya hanya dengan menggunakan Package & Deployment Wizard.
Package & Deployment Wizard merupakan tool installer bawaan yang sudah disediakan oleh visual basic, tetapi apakah hasilnya akan cukup memudahkan bagi klien apalagi jika aplikasi yang kita buat menggunakan database yang membutuhkan konfigurasi atau setting-setting yang lumayan banyak pada saat instalasi, seperti MySQL atau Firebird (Maaf ya Ms Access enggak termasuk
).
Atau kita mencukupkan untuk membuat panduan instalasi yang dibagi menjadi beberapa bagian :
- Instalasi Program
- Instalasi Database Server (ex. MySQL/Firebird) + Konfigurasi
- Install Driver ODBC
- Mengcopy database/undump script sql
Atau kita ingin sedikit memaksakan diri dengan membuat paket instalasi yang mudah yang hanya dengan 6 kali klik bisa menyelesaikan semua masalah diatas. Jika iya kita langsung saja mempersiapkan tool-tool yang dibutuhkan :
- Inno Setup
- MySQL versi noninstall disesuaikan dengan versi MySQL yang terinstall di komputer Anda
- Connector ODBC yang sudah terinstall biasanya ada di C:\Program Files\MySQL\Connector ODBC 5.1
- Database yang sudah di backup/dump
Adapun versi yang terinstall di komputer saya :
- Inno Setup 5.0.8
- MySQL Server: 5.1.36-community
- Connector ODBC 5.1
Lakukan backup/dump database dengan cara :
- Aktifkan dos console
- Masuk ke folder instalasi MySQL misal C:\Program Files\MySQL\MySQL Server 5.1\bin
- kemudian ketikkan perintah: mysqldump -unama_user -ppassword_user –routines nama_database > c:\nama_database.sql
Parameter –routines wajib Anda ketikkan jika database Anda mempunyai prosedur/fungsi. Persiapan terakhir untuk struktur folder saya buat seperti berikut :
Untuk keterangan lebih lanjut skrip inno setup silahkan baca manualnya. Contoh skrip instalasi lengkap :
;Skrip instalasi by k4m4r82
;http://coding4ever.wordpress.com/
[Setup]
AppName=Sistem Pembelian Bahan Baku PT. ALBASI
AppVerName=Sistem Pembelian Bahan Baku PT. ALBASI Versi 1.0.0.50
AppPublisher=K4m4r82's Laboratory
AllowCancelDuringInstall = yes
DefaultDirName={pf}\PT ALBASI
DefaultGroupName=PT ALBASI
Compression = lzma
SolidCompression = yes
OutputBaseFilename=SetupAlbasiServer
AllowNoIcons = yes
AlwaysRestart = no
AlwaysShowComponentsList = no
DisableProgramGroupPage = yes
AppendDefaultDirName = yes
CreateUninstallRegKey = yes
DisableStartupPrompt = yes
LanguageDetectionMethod=none
ShowLanguageDialog=no
Uninstallable = yes
UninstallFilesDir={app}\uninst
UninstallDisplayIcon={app}\Albasi.exe,0
UninstallDisplayName=Sistem Pembelian Bahan Baku PT. ALBASI
WindowVisible = no
AppCopyright=Copyright © 2009. K4m4r82's Laboratory
FlatComponentsList = yes
PrivilegesRequired = admin
VersionInfoVersion=1.0.0.50
SetupIconFile=Setup.ico
WizardImageFile=SetupModern21.bmp
WizardSmallImageFile=SetupModernSmall21.bmp
[Languages]
Name: ina; MessagesFile: compiler:Indonesia.isl
Name: en; MessagesFile: compiler:Default.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: installmysql; Description: "Install MySQL"; GroupDescription: "Proses tambahan:"; Flags: checkedonce
[Files]
;Visual Basic Runtime
Source: dll&ocx\VB6STKIT.DLL; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\COMCAT.DLL; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\stdole2.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
Source: dll&ocx\asycfilt.dll; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\olepro32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\oleaut32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\msvbvm60.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
;daftar file MySQL
Source: mysql-5.1.36-win32\bin\*; DestDir: {app}\mysql\bin; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\Docs\*; DestDir: {app}\mysql\Docs; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\lib\*; DestDir: {app}\mysql\lib; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\share\*; DestDir: {app}\mysql\share; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\data\*; DestDir: {app}\mysql\data; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: mysql-5.1.36-win32\*; DestDir: {app}\mysql; Flags: ignoreversion; Tasks: installmysql
;daftar file MySQL ODBC 5.1
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.dll"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.lib"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.lib"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc-installer.exe"; DestDir: {sys}; Flags: onlyifdoesntexist
;My Application Runtime
Source: main\Albasi.exe.manifest; DestDir: {app}; Flags: ignoreversion
Source: main\Albasi.exe; DestDir: {app}; Flags: ignoreversion
Source: main\albasi.sql; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: main\exec.cmd; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: dll&ocx\MSMASK32.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cTreeOpt6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\Comdlg32.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalDTab6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCT2.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MyTextBox.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\LVbuttons.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalExpBar6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCTL.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalIml6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cPopMenu6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cNewMenu6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\scrrun.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalMDITabs6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\SSubTmr6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\msado21.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
[Icons]
Name: {group}\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}
Name: {userdesktop}\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}; Tasks: quicklaunchicon
[INI]
Filename: {app}\mysql\my.ini; Section: mysqld; Key: basedir; String: {app}\mysql; Tasks: installmysql
Filename: {app}\mysql\my.ini; Section: mysqld; Key: datadir; String: {app}\mysql\data; Tasks: installmysql
Filename: {app}\infoProgram.ini; Section: Sistem; Key: serverName; String: "127.0.0.1"
Filename: {app}\infoProgram.ini; Section: Sistem; Key: dbName; String: "albasi"
[Run]
;install service MySQL
Filename: "{app}\mysql\bin\mysqld.exe"; Parameters: "install ""MySQL"""; StatusMsg: "Sedang menginstall service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2; Tasks: installmysql
;jalankan service MySQL
Filename: {sys}\net.exe; Parameters: "start ""MySQL"""; StatusMsg: "Sedang menjalankan service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381; Tasks: installmysql
;mendaftarkan port default mysql (3306) ke firewall
Filename: "{sys}\netsh.exe"; Parameters: "firewall add portopening TCP 3306 ""Port MySQL"""; StatusMsg: "Sedang mendaftarkan port MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{sys}\netsh.exe"; Parameters: "firewall set service type = fileandprint mode = enable"; StatusMsg: "Mengaktifkan File and Printer Sharing ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;mengganti password default root (blank). ex : masterkey
Filename: "{app}\mysql\bin\mysqladmin.exe"; Parameters: "-uroot password masterkey"; StatusMsg: "Mengganti password root"; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;menghapus user default1 (user=blank, password=blank)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""DELETE FROM mysql.user WHERE Host='localhost' AND User=''"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;menghapus user default2 (user=root, password=blank)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""DELETE FROM mysql.user WHERE Host='127.0.0.1' AND User='root'"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;set agar user root bisa login dari mesin lain (kalo diperlukan)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""GRANT ALL PRIVILEGES ON *.* TO root@'%' IDENTIFIED BY 'masterkey'"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;membuat database kosong
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""CREATE DATABASE albasi"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;menjalankan file batch exec.cmd untuk melakukan proses undump
Filename: "{app}\mysql\bin\exec.cmd"; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;install driver myodbc
Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -a -n ""MySQL ODBC 5.1 Driver"" -t ""DRIVER=myodbc5.dll;SETUP=myodbc5S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 5.1.5"; Flags: runhidden
[UninstallRun]
Filename: {sys}\net.exe; Parameters: "stop ""MySQL"""; StatusMsg: "Menghentikan Service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381
Filename: "{app}\mysql\bin\mysqld.exe"; Parameters: "remove ""MySQL"""; StatusMsg: "Sedang menghapus service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -r -n ""MySQL ODBC 5.1 Driver"""; StatusMsg: "Tunggu sedang menghapus driver MySQL Connector ODBC 5.1.5"; Flags: runhidden
[UninstallDelete]
Type: files; Name: {app}\mysql\bin\*.*
Type: files; Name: {app}\mysql\Docs\*.*
Type: files; Name: {app}\mysql\lib\*.*
Type: files; Name: {app}\mysql\share\*.*
Type: files; Name: {sys}\myodbc5S.dll
Type: files; Name: {sys}\myodbc5S.lib
Type: files; Name: {sys}\myodbc5.dll
Type: files; Name: {sys}\myodbc5.lib
Type: files; Name: {sys}\myodbc-installer.exe
[Registry]
;mencatat lokasi instalasi program, ini dibutuhkan jika kita ingin membuat paket instalasi update
Root: HKCU; Subkey: "Software\PT ALBASI\SPBB"; ValueName: "installDir"; ValueType: String; ValueData: {app}; Flags: uninsdeletevalue
Di dalam skrip instalasi ada file exec.cmd, isinya adalah :
mysql -uroot -pmasterkey albasi < albasi.sql
Isi file exec.cmd sebenarnya untuk proses undump, tapi saya masih belum tau kenapa inno setup gagal menjalankannya padahal perintah-perintah yang lainnya sukses.
Contoh hasil instalasi :
Yuph mungkin itu saja, selamat mencoba












mas, nyetting nama odbc-nya bagaimana. Kan program kita konek ke DB pake nama odbc.
Oke masih mengacu ke skrip saya yg diatas, kita lakukan revisi sedikit :
1. bagian [Run]
;install driver myodbc Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -a -n ""MySQL ODBC 5.1 Driver"" -t ""DRIVER=myodbc5.dll;SETUP=myodbc5S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 5.1.5"; Flags: runhidden ;skrip baru yang ditambahkan Filename: "{sys}\myodbc-installer.exe"; Parameters: "-s -a -c1 -n ""dsn-albasi"" -t ""DRIVER=MySQL ODBC 5.1 Driver;SERVER=127.0.0.1;DATABASE=albasi;UID=root;PWD=masterkey"""; StatusMsg: "Tunggu sedang membuat DSN-ALBASI"; Flags: runhidden2. bagian [UninstallRun]
;skrip baru yang ditambahkan Filename: "{sys}\myodbc-installer.exe"; Parameters: "-s -r -c1 -n ""dsn-albasi"""; StatusMsg: "Tunggu sedang menghapus DSN-ALBASI"; Flags: runhidden ;skrip lama Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -r -n ""MySQL ODBC 5.1 Driver"""; StatusMsg: "Tunggu sedang menghapus driver MySQL Connector ODBC 5.1.5"; Flags: runhiddenSelamat mencoba
oooooh. oke. makasih banyak mas. hohoho
Mantap.. mas, terima kasih atas pencerahannya. Ini yang telah lama saya cari. Tapi mas tolong sekalian kalau aplikasi kita menggunakan crystal report 7, gimana run timenya ?
Ini daftar dll tambahan yg ketangkep klo pake Crystal Report 7, klo versi lain mungkin beda
Source: dll&ocx\p2smon.dll; DestDir: {sys}; Flags: sharedfile Source: dll&ocx\SSCSDK32.DLL; DestDir: {sys}; Flags: sharedfile Source: dll&ocx\crpaig32.dll; DestDir: {sys}; Flags: sharedfile Source: dll&ocx\craxdrt.dll; DestDir: {sys}; Flags: sharedfile regserver Source: dll&ocx\crviewer.dll; DestDir: {sys}; Flags: sharedfile regserver Source: dll&ocx\implode.dll; DestDir: {app}Skrip masih mengacu pada sample diatas.
Selamat mencoba
Wah wah hebat dah saya coba mas, berhasil…. siip, terimakasih sekali ya. Tapi datanya yang sy gunakan databasenya acces jadi sy g perlu sertakan bagian installasi mysql dan connectornya.
Giliran sekarang sy pake MySQL saya bingung, tolongin lagi donk mas maksud mas MySQL non install tuh gimana? Apa yang telah terpasang dikomputer atau installernya? Terima kasih sebelumnya.
mau tanya om apakah ini tidak usah ocx nya CR?
Ya tetap lah om, tool pembuat installer seperti Inno Setup atau NSIS, hanya untuk mempermudah distribusi aplikasi semua library pendukung seperti file ocx atw dll tetap harus diikutsertakan pd saat pembuatan paket.
mengapa y ocx nya CR sudah saya masukan ke instaler tetapi saat install di beberapa komputer gagal / reportnya tidak bisa jalan
Klo beberapa, berarti ada komputer yg berhasil ya om ngeload reportnya?
Kesimpulannya komputer yg gagal bermasalah
Makasih mas, tutorialnya mantap. Saya sudah cari-cari gimana cara menyertakan vb runtime di inno setup, ternyata ketemunya disini. Tks ya….
Oke sama2x, sebenarnya di situs resminya inno setup udah ada kok ini linknya :
Inno Setup Knowledge Base
salam kenal mas…langsung saja,kalau menggunakan ODBC 3.51 Driver bagaimana caranya?DLL apa saja yg diperlukan? dan cara buat DSNnya?terima kasih…
Salam kenal juga, oke kita masih mengacu skrip diatas untuk instalasi MySQL ODBC 3.5 + membuat DSN skripnya sbb:
1. [Files]
;daftar file MySQL ODBC 3.51 Source: {sys}\msvcr71.dll; DestDir: {sys}; Flags: onlyifdoesntexist Source: {sys}\myodbc3i.exe; DestDir: {sys}; Flags: onlyifdoesntexist Source: {sys}\myodbc3.dll; DestDir: {sys}; Flags: onlyifdoesntexist Source: {sys}\myodbc3.lib; DestDir: {sys}; Flags: onlyifdoesntexist Source: {sys}\myodbc3S.dll; DestDir: {sys}; Flags: onlyifdoesntexist Source: {sys}\myodbc3S.lib; DestDir: {sys}; Flags: onlyifdoesntexist2. [Run]
;install driver myodbc Filename: "{sys}\myodbc3i.exe"; Parameters: "-a -d -t""MySQL ODBC 3.51 Driver;DRIVER={sys}\myodbc3.dll;SETUP={sys}\myodbc3S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 3.51"; Flags: runhidden ;install dsn-albasi Filename: "{sys}\myodbc3i.exe"; Parameters: "-a -su -t""DSN=dsn-albasi;DRIVER=MySQL ODBC 3.51 Driver;SERVER=127.0.0.1;DATABASE=albasi;UID=root;PWD=masterkey"" -w"; Flags: runhidden; StatusMsg: "Tunggu sedang membuat DSN-ALBASI"3. [UninstallRun]
;uninstall driver myodbc Filename: "{sys}\myodbc3i.exe"; Parameters: "-s -r -su -n""dsn-albasi"""; StatusMsg: "Tunggu sedang menghapus DSN-ALBASI"; Flags: runhidden ;hapus dsn-albasi Filename: "{sys}\myodbc3i.exe"; Parameters: "-d -r -n""MySQL ODBC 3.51 Driver"""; StatusMsg: "Tunggu sedang menghapus driver MySQL Connector ODBC 3.51"; Flags: runhiddenSelamat mencoba
makasi banyak mas…kemaren seblum tanya sama mas sy sdh coba seperti itu,tetapi mengapa saat saat saya buka registri driver ODBC 3.51 di Regedit blm teregister,tetapi myodbc3.dll masuk ke system.Apakah di skrip diatas DLL ODBC tidak diregister dahulu mas?trims…
Maaf lanjut lagi sedikit : dan saat di remove,saya lht di regedit pada ODBCINST.ini,driver ODBC 3.51 belum teremove…bagaimana solusinya..trims lagi..he…
Iya file myodbc3.dll tidak perlu diregister, makanya di skrip inno setup di atas
Source: {sys}\myodbc3.dll; DestDir: {sys}; Flags: onlyifdoesntexisttidak menggunakan flag regserver
Sebenarnya kalo file dg type INI buatan kita pada saat instalasi bisa dihapus otomatis saat uninstall dengan menambahkan flag uninsdeletesection, tp untuk kasus yg mas tanyakan kayaxnya harus membuat program kecil yang menghapus informasi driver ODBC dari file ODBCINST.ini
trims banget yw mas atas semua infonya.Tetapi ada satu lagi yang ingin sy tanyakan.Tentang kompile exe project vb 6.0. Saya punya project buat tgs akhr,sebelum dikompile menjadi exe,berjalan baik-baik saja tidak ada bug.Tetapi mengapa setelah dikompile malah jadi rusk ya mas,salah satu msgnya adalah “runtime error 5,call prosedur or argument” padahal sebelum di kompile berjalan baik.Mohon solusinya ya,cz sy sudah bingung banget nih mas….trims…..
salah satu contoh kasus yg sering menyebabkan error seperti yg dimaksud sbb
Private Sub Command1_Click() Text1.SetFocus End Subsebenarnya tidak ada yg salah dg perintah diatas, tapi akan muncul error “runtime error 5,call prosedur or argument” jika properties Text1.Enabled = False
Mungkin itu saja, tapi jika ingin jawabannya lebih akuratnya otomatis sy harus tau kode yang menyebabkan errornya.
Selamat mencoba
wah saya sempat gak tidur 2 hari mas,gara2 nyari error itu,tadi malem sblm baca artikel ini errornya udah ketemu,memang seperti apa yang mas katakan…trims banget ya….
Yuph
sorri ni mas saya tanya terus,maklum baru belajar
Saya punya koding seperti ini:
Private Sub Timer1_Timer()
Dim wSekarang As Date
Dim wSelesai As Date
Dim jKeluar As date
Dim wKeluar As Date
Dim tKeluar As Date
Dim SQLCariWaktu As String
Dim RsCariWaktu As ADODB.Recordset
SQLCariWaktu = “select * from atur_waktu where kode_waktu = ’1′”
Set RsCariWaktu = New ADODB.Recordset
RsCariWaktu.Open SQLCariWaktu, conMySQL
If Not RsCariWaktu.EOF Then
wKeluar = Format(RsCariWaktu.Fields(“jam_keluar”), “hh:mm:ss”)
tKeluar = Format(RsCariWaktu.Fields(“T_jam_keluar”), “hh:mm:ss”)
End If
jKeluar = wKeluar – tKeluar
wSekarang = Time
If wSekarang = jKeluar Then
Label2 = “YES!”
End If
End Sub
———————
Tabel
———————
jam_keluar(date)=’15:30:00′
T_jam_keluar(date)=’00:10:00′
—————————
Mas ini yang juga bikin bingung,saat saya jalankan mengapa
kondisi true wsekarang=jkeluar terlewati? apakah tipe data yang salah?
Bagaimana cara mengurangi waktu jika diketahui a= pukul “00:00:00″ dikurangi 10 menit
seharusnya hasilnya 23:50:00…mohon pencerahannya…trims…
maaf bukan sok pintar ata u sok tau , tapi saya cuma mau bantu aja
Klaw mnurut saya ya itu karna format cara pengurangan jam anda salah
kalau menurut saya koding pengurangannya harus :
jKeluar = format(time(wKeluar) – time(tKeluar))
atau:
jKeluar = format(cdate(wKeluar) – cdate(tKeluar))
Oke om tq info tambahannya
lagi satu ketinggalan….apakah dengan tipe data date,bisa membandingkan 2 buah waktu mas?apakah sama dengan menggunakan timevalue?trims lagi sekali mas…he
Coba di debug.print aja mas variabel wSekarang dan jKeluar untuk melihat nilainya, saya biasa menggunakan variabel tipe String untuk menyimpan data jam. Saya baru menggunakan fungsi TimeValue jika akan dilakukan operasi ex. penambahan/pengurang
Private Sub Command1_Click() Dim wKeluar As String Dim tKeluar As String Dim jKeluar As String wKeluar = Format("13:14:00", "hh:mm:ss") tKeluar = Format("13:18:00", "hh:mm:ss") jKeluar = Format(TimeValue(wKeluar) - TimeValue(tKeluar), "hh:mm:ss") Debug.Print "jKeluar : " & jKeluar 'output = 00:04:00 End SubYa jelas bisa contohnya ini :
Private Sub Command1_Click() Dim jam1 As Date Dim jam2 As Date jam1 = Format(Now, "hh:mm:ss") 'output = 12:03:16 PM jam2 = Format(Now, "hh:mm:ss") 'output = 12:03:16 PM End Subjika jam1 = jam2 maka hasilnya true
TimeValue untuk mengkonversi tipe String ke tipe Time agar bisa dilakukan operasi perhitungan :
Private Sub Command1_Click() Dim jam1 As String Dim jam2 As String jam1 = "13:14:00" jam2 = "13:18:00" Debug.Print jam2 - jam1 'klo dikurangkan langsung akan error 'klo udah pake TimeValue enggak error lagi 'tapi outputnya mengerikan Debug.Print TimeValue(jam2) - TimeValue(jam1) 'output = 2.77777777777777E-03 'harus diformat agar outputnya lebih manusiawi Debug.Print Format(TimeValue(jam2) - TimeValue(jam1), "hh:mm:ss") 'output = 00:04:00 End SubMungkin bisa dicoba cara ngawur seperti berikut
Private Sub Command1_Click() Dim jam1 As String Dim jam2 As String Dim jam3 As String jam1 = "00:00:00" jam2 = "00:10:00" If jam1 = "00:00:00" Then jam1 = "23:59:59" jam3 = TimeValue(jam1) - TimeValue(jam2) jam3 = TimeValue(Format(jam3, "hh:mm:ss")) + TimeValue("00:00:01") Debug.Print Format(jam3, "hh:mm:ss") 'output = 23:50:00 End If End SubSelamat mencoba
makasi mas,saya coba dulu,kalau pake time value bisa dibandingin langsung gak data jamnya?trims banget ya
bisa klo variabel pake tipe String langsung bisa dibandingkan
Private Sub Command1_Click() Dim x As String Dim y As String x = "10:30:03" y = "10:30:02" Debug.Print (x > y) Debug.Print (TimeValue(x) > TimeValue(y)) End SubHasilnya sama = True
BTW kita stop aja ya bincang2x source codenya, soalnya udah jauh dari pembahasan artikelnya ngGax enax diliat orang
ok2….mas terima kasih banyak sudah saya coba n hasilnya memang sesuai dengan keinginan…..trims……
Oke sama2
Bos, gua udah install mysql tapi kok gak ada folder data di mysqlnya ya? bermasalah ga bos?? Thanks.
coba aja login ke mysqlnya om, bisa enggak ? klo enggak bisa berarti bermasalah
soalnya setau sy di folder data itu ada folder mysql untuk menyimpan user dan setting lainnya.
oke bos bisa sorry… oiya mau nanya lagi nih, runtime untuk crystal report 2005 gimana ya
Sy belum pernah coba crystal report di vb.net 2005, biasanya file2x librarnya kan semuanya ngumpul di folder Debug atw Release
nanya lagi bos, code untuk delete registry saat unistall gimana ya bos? thnks
Tinggal tambah aja flag uninsdeletekey
Ex :
[Registry] ;mencatat lokasi instalasi program, ini dibutuhkan jika kita ingin membuat paket instalasi update Root: HKCU; Subkey: "Software\PT ALBASI\SPBB"; ValueName: "installDir"; ValueType: String; ValueData: {app}; Flags: uninsdeletekeySelamat mencoba
bagus.. senang sekali artikel ini.. sesuai yang saya cari dan butuhkan ..trimakasih
Sama2x
Pak mohon bantuannya lagi.. untuk mendaftarkan DSN yang menggunakan Firebird. Jadi kalau dari vb, saat program kira run maka cek FileDSN kalau belum ada maka create DSN. Atau mungkin bisa langsung dimasukan pada saat pertama kali proses instalasi program? Soalnya saya cari di google gak ketemu, yang ada cuma untuk Access, SQL Server dan MySQL. Trims..
Saya kadang2x bingung sendiri, pada hal ada cara yg lebih mudah untuk melakukan koneksi ke database firebird tanpa harus melalui ODBC DSN dan sy rasa Anda sudah tau caranya.
Private Sub cmdTesKoneksi_Click() Dim conn As ADODB.Connection strCon = "DRIVER=Firebird/Interbase(r) Driver;UID=NAMA_USER;PWD=PASSWORD;DBNAME=LOKASI_DATABASE" Set conn = New ADODB.Connection conn.ConnectionString = strCon conn.Open End SubTapi jika ingin tetap membuat ODBC DSN untuk firebird via program berikut langkah-langkahnya :
1. Tambahkan entri berikut di file ODBC.ini, dg asumsi kita akan menambahkan ODBC DSN dengan nama fb-odbc
File ODBC.ini ada di folder windows
2. Tambahkan entri berikut di registry windows
Selamat mencoba
oke pak admin, trims.. ya kebetulan saja saya mau buat aplikasi yang berdiri sendiri terpisah dari aplikasi utama, jadi untuk koneksinya menurut saya lebih enak langsung ambil nama DSN saja, makanya waktu proses instal Aplikasi utama, sekalian mendaftarkan DSN nya. Gitu pak admin.
Oke deh, apa pun caranya yg penting bisa konek
Ada 2 jenis file distribusi MySQL utk Windows
1. Berupa paket installer (berekstensi .msi), ini yg biasa di pakai karena bisa langsung dijalankan layaknya paket installer yang berekstensi .exe
2. Berupa file arsip (berekstensi .zip yg biasa disebut MySQL non install), nah ini dikhususkan bagi yang ingin menginstall MySQL secara manual
Klo paket installer mysql yg berekstensi .msi ini kita sertakan dalam pembuatan paket aplikasi kita tentu akan sedikit merepotkan karena akan butuh interaksi dari user pada saat instalasi mysqlnya, inilah bedanya kalo menggunakan MySQL non install semua prosesnya bisa kita atur via skrip dalam hal ini skrip inno setup.
Mungkin itu saja penjelasan tambahannya, dan mudah-mudahan tambah bingung
Terima kasih sekali lagi mas, dah gamblang alias sangat jelas alias g bingung lagi. He… he. Dah ketemu kok mas yg MySQL non install. Uenaaaak tenan. Matur Thank You buanget.
bagaimana membuat paket aplikasi vb.net 2005 + sql server 2005 + ada serial numbernya dan juga ada versi trial dan full. . .
mohon penjelasannya
terima kasih
1. jangan lupa ditambahkan .net frameworknya
2. saya belum pernah kepikiran untuk mempaketkan sql server dalam 1 paket aplikasi, ini bakalan ribet
3. ada serial numbernya? maksudnya menambahkan serial number pada saat instalasi? kalo iya coba baca artikel INI
4. dan juga ada versi trial dan full? klo ini langsung dihandle dari aplikasinya aja mas
Oke sama2x, berarti udah case closed ya.
Enggak juga he he, ada case lagi nih, mohon pencerahannya sekali lagi. Saya pake MySQL 5.1.47 versi non-install, perubahan yang saya lakukan untuk script di atas adalah :
1. tidak melakukan dump database, tetapi database sy include di direktori data MySQL, perlu diketahui saya pake MyIsam untuk enginenya.
2. menghilangkan bagian [Run] baris 116 s.d. 135, karena database saya tidak ber password.
Pernyataannya :
1. Setelah sy coba pasang di komp lain service mySQL nya g mau jalan, kenapa ya mas?
2. Sy pernah nyoba membuat file exec.cmd langsung sy coba jalankan direktori root mySQL selalu gagal, pesannya “tidak ditemukan database (nama file sql dihilangkan huruf pertamanya)”, why brother?
Sebelumya terima kasih 1000 kali.
Oke klo ini enggak masalah
1. baris 117, 132, 135 dihapus
2. baris 120 s.d 129 hanya parameter -pmasterkey nya aja yg dihapus
Makanya jangan main hapus sembarangan
Sample file exec.cmd yg sy buat diatas dengan asumsi file exec.cmd dan file backup/dump dicopykan ke folder MySQL\Bin dan nama database harus sudah ada.
mas bantu dong.
saya membuat Sistem Informasi perhitungan Nilai Rapot berbasis Client Server denga Vb6 dan SQL Server 2000.
gimana cara bikin instalasinya.Kalau kalo dah jadi kita gak perlu lagi instal SQL Server 2000nya bisa gak Ya????
Klo utk masalah ini saya belum bisa bantu, soalnya sy sudah coba googling paket non-installernya enggak ketemu.
oya lupa koneksinya yang saya gunakan ADODB
Tanya dikit aja om,,, runtime C 8.5
Sory om untuk saat ini sy belum punya installer CR 8.5, jd blm bisa bantu
Tapi cara ngecexnya kan gampang om, tinggal buat dulu paketnya menggunakan Package & Deployment Wizard, trus tinggal cari file setup.lst yg di hasilkan dari proses Package & Deployment Wizard.
File setup.lst ini berisi semua daftar file yg dibutuhkan aplikasi kita, termasuk runtimenya CR 8.5
Selamat mencoba
mas, lg bingung bgt nih..
Tugas akhir saya pake vb 6 trus crystal report 8.5 tp klo sy compile ko ga bs ya? Trus sy pake inno setup ttp ga bs klo di komputer org lain. Mohon bantuannya mas. Tlg bgt ya, trims
Masa2x tugas akhir memang sering bikin bingung
Kemungkinan masih ada kode programmnya yg error, coba sebelum compile tekan dulu CTRL+F5
Enggak bisanya karena apa? Apakah karena inno setupnya atw jangan2x sudah berhasil diinstall tapi setelah dijalankan aplikasinya yg enggak bisa, klo ini mungkin waktu membuat paket instalasinya ada komponen/libraray belum diikut sertakan.
siang… mohon bantuannya gan…
saya pake vb6 dan inno untuk buat instalernya… dan berhasil
kendala yg saya dapet sekarang, pada saat client menginstal akan muncul pc client di registrinya…
nah yg saya mau tanyakan, bagaimana membuat instaler agar pada saat client meng uninstal program, di registri client tersebut reg PCclientnya terhapus juga pada sat uninstal….
thank’s before….
Pertanyaannya sama dg komentar om “kacebaza” sebelumnya dan udah sy jawab, silahkan dicek om
mas. file dll dan ocx yang kita butuhin itu bisa kita lihat dimana, terus apakah innodb bisa buat bikin instalasi java ?
thanks before
Gampang jalankan dulu tools Package & Deployment Wizard, cek file setup.lst (cukup pake notepad) yg dihasilkan dari proses ini. File setup.lst berisi informasi file2x yg berhubungan dg aplikasi yg kita buat.
Artikel ttg Package & Deployment Wizard sudah banyak diinternet.
Sy ralat dulu bukan innodb tapi inno setup, bisa aja asalkan om sudah bisa menginstall JRE secara manual, setting class path dan lain2x sehingga JREnya bisa dikenali aplikasi javanya.
iyaa maas, inno setup, heehehe.
install jre lewat inno setup bisa tidak ?
Yg jelas bisa, tapi sy sendiri belum pernah coba
Ini sy kasih gambaran skripnya silahkan dicoba sendiri
[Files] ;disesuaikan dg lokasi jre yg terinstall di komputer Anda Source: "C:\Program Files\Java\jre6\*"; DestDir: {app}\jre6; Flags: ignoreversion recursesubdirs [Registry] ;mendaftarkan jre ke Environment variabel Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueName: "Path"; ValueType: String; ValueData: {code:GetEnvironmentPath}{app}\jre6\bin; MinVersion: 4.1.1998,4.0.1381 [Code] var EnvironmentPath : string; function InitializeSetup(): Boolean; begin // mendapatkan nilai Environment variabel yg sudah ada RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', EnvironmentPath); Result := True; end; function GetEnvironmentPath(Param: string): string; begin Result := EnvironmentPath + ';'; end;Selamat mencoba
oiya mas, satu lagi. project vb yang sudah kita buat itu harus di bikin exe-nya dulu yaaa lewat Package & Deployment Wizard atau gimana ?
soalnya saya liat di coding mas itu programnya udah jadi .exe !
Source: main\Albasi.exe.manifest; DestDir: {app}; Flags: ignoreversion
Source: main\Albasi.exe; DestDir: {app}; Flags: ignoreversion
Source: main\albasi.sql; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: main\exec.cmd; DestDir: {app}\mysql\bin; Flags: ignoreversion
mohon pencerahannya ? !
terimakasih
Klo cuma untuk menjadikan Exe kan cukup dari menu File -> Make NamaProject, nah klo Package & Deployment Wizard kan sama seperti Inno Setup tool untuk membuat paket instalasi.
nanya lagi nih mas, kalo program kita client-server bagaimana ?
maksudnya apakah database itu masih bisa di akses oleh komputer lain ?
Ya jelas bisa, sudah di bahas di SINI
dengan kata lain semua tutorial diatas membuat kita bisa meninstall program yang kita buat di komputer manapun yang masih kosong, (belum ada mysql atau database) dan tanpa harus repot setting odbc secara manual melalui control panel yaaa mass ?
terima kasih banyakk mas atas pencerahannya, semoga ilmunya bermanfaat dunia akhirat . .
heheheeh (amiin)
Yaph benar sekali
Sama2x
Bos, ane ada kendala nih, ane udah selesai buat installernya tapi filenya jadi gede banget bos 72 MB, karena ane masukin installer yang ane buat dari Vb.net 2005 biar sekalian instal .net framework and CR nya maksud ane. Tapi jadinya gede banget filenya, bos bisa kasih solusi nggak?? Need help bos.
Kayaxnya enggak ada yg aneh dan wajar saja hasil paketnya segede itu, klo dalam paket instalasinya mengikutsertakan .net framework dan cr.
Coba aja deh diakumulasi secara manual semua ukuran filenya sebesar apa, yang aneh itu klo ukuran file aslinya misal cuma 30 mb setelah di pakcage menjadi 72 mb itu baru aneh
.
Ada Solusi lain nggak bos? Gimana cara ngakalinnya? Maksudnya Runtimenya Vb.net sama Crystal Report .
1. Install dot net framework sesuai versinya untuk referensi bisa cek disini dan sini.
2. Copy semua file aplikasi kita (biasanya ada difolder bin\release)
3. Install runtime crystal report (CRRedist200x_x86.msi) sudah tersedia di cd .NETnya untuk referensi cek disini
Kang, pas di compile ga ada masalah, tetapi pas mau di Run ada masalah malah keluar pesan “not valid win32 application gitu”???apa yang menyebabkan permasalahan tersebut???
terus intaller inno setup nya juga ga bisa di klik 2 kali, tadinya saya mau ngeinstal ulang tools installer tersebut, kantanya file coruppt, obtain apa gitu pesannya…
Wah kemungkinan komputer om kena virus tuh
owh gitu yach….
kirain innosetup nya error….
kang, coba donk share tentang runtime CR 8.5???
klo gak ya,, komponen apa aja yang berhubungan gitu..
kang kalo tulisan “193 %1″ apa maksudnya???
itu terjadi pada pesan error tadi,saat mu nge-run pada inno setup.
Sory sy enggak punya CR 8.5
Klo cuma error “193 %1″ ya sy juga enggak ngerti, biasanya juga kan ada pesan error lainnya.
lah kalau delphi apa saja yang harus di include kan ( Delphi Runtime )
Berhubung sy bukan programmer delphi, masnya mungkin bisa nanya2x disini.
mas, kalo kita pakenya file dsn gimana ?
soalnya di contoh diatas kan database yang dibuat adalah user dsn,
oiya, mungkin gga sih kalo databse kita itu dibikin tidak berpassword
Kayaxnya tinggal diikutkan dalam paket instalasi trus dicopykan ke folder yg seharusnya (masnya yg lebih taukan) karena sy belum pernah pake file dsn.
tanya lagi, kalo ada error “either BOF or EOF is true, or database has been deleted …..
itu kenapa mas,
sedangakan sebelum dibuat exe normal2 aja
Ini ada hubungannya dengan kode navigasi ya (MoveFirst, MovePrevious, MoveNext, MoveLast) klo iya divalidasi aja dengan mengecek nilai properties BOF dan EOF nya, sebelum memanggil ke empat methode diatas.
udah bisa, tapi satu masalah lagi, begitu mau buka report ada error message. katanya phusical database not found !
kenpaa yaa ?
Kayaxnya sih salah nyebutin lokasi databasenya om
Assalamu’alaikum, salam kenal Mas. Saya masih pemula neh.
Mas, saya pake beberapa file dlm vb6, gak tahu cara bikin file setupnya pake inno setup.
Mohon penjelasan untuk masing2 file berikut supaya bisa jadi paket instalasi, saya copy dari file Project.vbp sebagai berikut:
Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#C:\Program Files\Common Files\system\ado\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library
Reference=*\G{56BF9020-7A2F-11D0-9482-00A0C91110ED}#1.0#0#C:\WINDOWS\system32\MSBIND.DLL#Microsoft Data Binding Collection
Object={C368D713-CC5F-40ED-9F53-F84FE197B96A}#4.7#0; MapWinGIS.ocx
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
Waalaikumsalam warahmatullahi wabarakatuh
Pake ISTool aja akh untuk konversi dari file lst yang dihasilkan dari proses Package & Deployment Wizard ke skrip inno setup.
Selamat mencoba
Makasih mas. Alhamdulillah udah berhasil, ternyata MapWinGIS OCX nya yg bermasalah, udah lihat d webnya Mapwindow.
Oke om, wah kren udah bisa buat aplikasi GIS ya?
Tidak ada komentar yg ingin saya ucapkan selain ” Terima Kasih ”
saya baca komentar dari atas ampe akhir… dan Admin selalu menjawab semua pertanyaan dari pembaca… Jarang sekali ada Admin blog seperti Anda… sekali lagi saya ucapkan ” Jazakumullah khoiron katsiron ”
tanpa perlu saya bertanya.. semua permasalahan saya terjawab
Waiyyakum
Name: ina; MessagesFile: compiler:Indonesia.isl doesn’t exist, gimana solusinya mas..
File Indonesia.isl bisa didownload disini disesuaikan dengan versi inno setupnya, trus dicopykan ke folder “C:\Program Files\Inno Setup 5″
proses packaging selesai dengan selamat, tapi pas diinstall program error, gmn tuh?
apanya kira2 yang salah
Pesan errornya di posting ke sini om, karna sy bukan paranormal
Registration failed :
Register TypeLib failed ; code 0x8002801c
Trus, sy trus install aja, pas mau dijalankan ada pesan error :
The size of manifest exceeds the maximum allowed
.manifest itu tipe file untuk apa?
Gimana bikinnya?
Soalnya waktu saya bikin, caranya file.exe ditambah .manifest aja.
Betul gak y? Maklum pemula
Mas maaf y bnyk tanya, pengen blajar vb. Trus lg kerja praktek juga..
Mdh2an ilmunya manfaat dunia akhirat..
Thx b4
Salam kenal,
Syarif, Tasikmalaya
Mungkin pengesetan nilai flagnya kurang tepat om, terutama untuk file-file yang berekstensi dll, ocx, tlb
1. File DLL
kombinasi nilai flag yang biasa digunakan :
Nah masalahnya ada beberapa file dll yang malah error klo menggunakan flag regserver jadi otomatis kombinasi nilai flagnya cukup :
Trus bagaimana cara mengetahui file dll yang bakalan error klo menggunakan flag regserver, berikut caranya :
1. copykan file dll tersebut ke folder windows\system32
2. kemudian dari start -> run : ketik regsvr32 nama_file_dll.dll :
jika muncul warning “NAMA_FILE.DLL was loaded, but the DLLRegisterServer entry point wast not found.” berarti tidak perlu menggunakan flag regserver
2. File OCX
kombinasi nilai flag yang biasa digunakan :
3. File TLB
kombinasi nilai flag yang biasa digunakan :
Nah sekarang terlihat perbedaan penting cara mendaftarkan ke 3 file sistem diatas untuk file DLL dan OCX menggunakan flag regserver sedangkan file TLB menggunakan flag regtypelib.
Jadi coba di cek lagi kombinasi nilai flagnya, untuk informasi lengkap tentang nilai flagnya bisa dilihat disini.
Kegunaan file manifest agar komponen2x standar aplikasi kita menggunakan style XP, hasilnya juga hanya akan terlihat jika aplikasi sudah dicompile (klo masih dirunning via project belum keliatan).
Informasinya bisa dilihat disini.
Selamat mencoba
Selama sy pk kepala yg ini sampe skrng, br kali ini nemuian admin blog se-responsif Mas Admin ini
Top markotop..
Mas, masalah sudah yg kmr dah ada jalan keluarnya, cm ada 1 pertanyaan lagi.
Kalo script agar mysql selalu aktif dan konek ke database saat saat startup windows..
Gimana tuh?
Thx brother..;-)
Ada 2 cara yang biasa digunakan agar aplikasi otomatis aktif :
1. Dijadikan service, saya sudah bahas pembuatannya disini.
2. Daftarkan diregistry windows, ada beberapa key yang bisa dicoba :
Saran saya pake yang terakhir, karena loadnya lebih cepat.
Untuk menulisnya dari aplikasi bisa menggunakan fungsi API atau pada saat instalasi program (lihat skrip inno diatas dibagian [Registry])
Selamat mencoba
Oh iya lupa,
Mas, yg exe.manifest bole minta penjelasan pk bhs mas g?
Kalo bisa script-nya jg. Soalny wkt kmrn sy pk script yg d sana. Error mas.
Tolng dibantu ya..
Untuk menggunakan XP Stype ada 2 cara
1. Menggunakan file manifest
File ini bisa ditulis dengan editor biasa, trus isinya apa bisa dilihat disini, selain itu penamaan file manifestnya harus menggunakan format : nama_file.exe.manifest.
Penggunaan file manifest sedikit merepotkan karena harus diikut sertakan dalam distribusi aplikasi, belom lagi klo ada yg iseng menghapus file manifestnya
, jadi sebaiknya menggunakan cara yang ke dua aja.
2. Menggunakan file Resource
Ini ada source memanfaatkan XP Style menggunakan file resource, dan jangan lupa untuk melihat hasilnya project harus di complile terlebih dulu.
Selamat mencoba
Untuk menulisnya dari aplikasi bisa menggunakan fungsi API atau pada saat instalasi program (lihat skrip inno diatas dibagian [Registry])
maksudnya syntax yang mana mas.???
maksud saya skrip inno yang mana yang menunjukkan yang saya maksud?
Yang ini :
[Registry] ;mencatat lokasi instalasi program, ini dibutuhkan jika kita ingin membuat paket instalasi update Root: HKCU; Subkey: "Software\PT ALBASI\SPBB"; ValueName: "installDir"; ValueType: String; ValueData: {app}; Flags: uninsdeletevaluediganti menjadi
[Registry] ;SET AUTO RUN Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run"; ValueName: "Aplikasi Presensi"; ValueType: String; ValueData: {app}\Presensi.exe; Flags: uninsdeletevalueNilai ValueName dan ValueData menyesuaikan.
Klo kita cek di registry windows hasilnya lebih kurang seperti ini.
Selamat mencoba
afwan berat mas.. saya coba ya..
Oke om slamet mencoba
Alhamdulillah proses install berhasil. Tp p’tanyaan msh ada..:-P
1. Biar ibd-nya dibuat per tabel, biasa pada file my.ini saya tambah innodb_file_per_table. Srcipt innosetupnya gmn, soalnya pas sy cari file my.ini g ada d folder aplikasi yg sdh t’install atau mysql noninstall-nya
2. Cara biar icon uninstall dan setup beda (sy pk innosetup 5.4)?
3. Kalo Cara bikin file cmd buat restore database, gmn y?
Thx b4
File my.ini nya kan bisa dibuat pada saat instalasi, coba perhatikan lagi DENGAN TELITI contoh skrip diatas terutama dibagian/section [INI].
Ya tinggal bedakan aja nilai icon untuk SetupIconFile dan UninstallDisplayIcon lihat lagi di section [Setup]
Udah ada yang nanya disini, cek dibagian komentar.
Mau tanya bang admin :”>
apa bisa membuat user admin lain mysql tanpa melalui user root
karna di komputer tersebut sudah ada mysql untuk program lain dan tidak tahu password rootnya :”>
thx b4
Coba password rootnya direset aja.
mas, untuk no 1. sebetulnya saya juga lihat section [ini], tapi saya belum tahu cara menambahkan script yang saya maksud ke file my.ini. yang saya tahu biasanya file my.ini itu adanya di folder (kalo di komputer saya : xampp/mysql/bin). pas saya masukkkan script tadi jadilah ibd-nya pertable. maaf mas saya masih sangat awam.. ^_^
untuk no 2, dah saya coba g berhasil. apa saya yang salah y?. sy tulisnya : uninstalldisplayicon:uninstall.ico.. bgitu, atau salah?? ^_^
untuk yang no 3, Alhamdulillah berhasil. cuma rencananya file backup dan restore itu sy simpan di bawah folder program saya yang ada di start menu. kalo saya mau ganti iconnya gimana? ^_^
Mas Admin, maaf ya saya banyak tanya.. maklum saya salah satu manusia bodoh yang dimiliki indonesia.. hehe..
Coba skrip yang mau ditambahkan di file my.ini nya seperti apa sih ?
Contoh :
dibagian section [Files] tambahkan skrip informasi nama file uninstall.iconya
[Files] Source: uninstall.ico; DestDir: {app}; Flags: ignoreversiontrus tinggal sesuaikan di section [Setup]
[Setup] UninstallDisplayIcon={app}\uninstall.icoPengaturannya ada di section [Icons] dengan menambahkan parameter IconFilename
[Icons] Name: {group}\Backup & Restore; Filename: BackupAndRestore.exe; WorkingDir: {app}; IconFilename: {app}\BackupAndRestore.icoselain itu section [Files] juga harus didaftarkan nama iconnya.
[Files] Source: BackupAndRestore.ico; DestDir: {app}; Flags: ignoreversionSelamat mencoba
mas, no 2 & 3 Alhamdulillah beres..
untuk yang no 1, script yang ingin saya tambahkan adalah : innodb_file_per_table. nanti hasilnya adalah file ibdata itu dibuat otomasi pertable tidak satu aja, dimaksudkan untuk antisipasi kerusakan databasase secara keseluruahan..
saya bingungnya, my.ini di folder saya itu adanya di : mysql/bin bukan di folder mysql/data. mohon penjelasannya mengenai, my.ini ini itu file apa dan untuk apa?
makasi sebelumnya ya mas..
anda sangat membantu dalam proses penyelesaian kerja praktekku..
mudah2an balsannya berlipat-lipat..
^_^
Sory ya om sy belum pernah coba mengaktifkan fitur innodb_file_per_table dan belum sempat juga untuk mencoba fitur tersebut
.
Tapi sekilas dari referensi yang saya baca, intinya cuma ada 2 ya ?
1. Menjalankan service mysql dengan menambahkan option –innodb_file_per_table
berarti tinggal revisi section [Run], di skrip menjalankan service mysql
2. Menambahkan entri innodb_file_per_table = 1 di file my.ini, jadi tinggal revisi section [INI]
[INI] Filename: {app}\mysql\my.ini; Section: mysqld; Key: innodb_file_per_table; String: 1; Tasks: installmysql Filename: {app}\mysql\my.ini; Section: mysqld; Key: basedir; String: {app}\mysql; Tasks: installmysql Filename: {app}\mysql\my.ini; Section: mysqld; Key: datadir; String: {app}\mysql\data; Tasks: installmysqlthx mas.. saya coba dulu
Oke om
Alhamdulillah berhasil mas..
Tp waktu di-uninstall ko folder aplikasi sy msh ada, d dalamnya ada file dan folder pd folder mysql/data.
Biar abis smua t’msuk folder app, gmn script-nya?
Trus ada g, script buat hidden file tertentu yg ada d folder app qt?
Lagi2..
makasi y mas..
mdh2an blm bosan jawabnnya..
Ya dihapus manual om satu2x coba liat lagi di section [UninstallDelete] diatas.
Manfaatin aja om perintah attrib trus dipanggil di section [Run]. Ex:
[Run] Filename: "{sys}\attrib.exe"; Parameters: "+s +h <nama_file_yg_mau_dihidden>"; Flags: runhiddenSelamat mencoba
Ok mas, saya coba..
Makasi y infonya..
sukses selalu
Oke om sama2x
Mau tanya mas. mysql saya versi 5.0.51b, pas bikin setup nya pake mysql non install versi yang terbaru bisa ga ya? thanks ya..
Harusnya enggak ada masalah om.
mas,itu kan make inno setup,kalo make setup factory gimana caranya ?
mohon bantuannya.
Setup Factory ya? Udah lamaaa banget om sy cobanya, jadi belum bisa bantu nih.
Bukannya dengan Inno Setup dan NSIS semua kebutuhan pembuatan paket instalasi sudah terpenuhi om ?
om aq udah nyoba kenapa ya tetap ga bisa masuk ke Mysql, permsalahannya adalah service mysql tidak bisa dijalankan,,apabilan dijalankan error terus
Coba ke komputer laen om, jangan2x komputer om yg bermasalah
udah dicoba om admin tetap ga bisa…ne coding inno setp saya
;Menginstal Mysql
Filename: “{pf}\mysql\Mysql Server 5.0\bin\mysqld-nt.exe”; Parameters: “install “”MySQL”"”; StatusMsg: “Sedang menginstall service MySQL …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2; Tasks: installmysql
;Filename: “{pf}\mysql\mysql server 5.0\bin\install_service.bat”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;Menjalankan Service Mysql
Filename: {sys}\net.exe; Parameters: “start “”MySQL”"”; StatusMsg: “Sedang menjalankan service MySQL Uey …”; Flags: runhidden; MinVersion: 0.0,4.0.1381; Tasks: installmysql
;Mendaftarkan port 3306
Filename: “{sys}\netsh.exe”; Parameters: “firewall add portopening TCP 3306 “”Port MySQL”"”; StatusMsg: “Sedang mendaftarkan port MySQL …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: “{sys}\netsh.exe”; Parameters: “firewall set service type = fileandprint mode = enable”; StatusMsg: “Mengaktifkan File and Printer Sharing …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;membuat database kosong
Filename: “{pf}\mysql\Mysql Server 5.0\bin\mysql.exe”; Parameters: “-uroot -e “”CREATE DATABASE coba”"”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: “{app}\sispendik.exe”; Description: “{cm:LaunchProgram,Sispendik Baru}”; Flags: nowait postinstall skipifsilent
Filename: “{sys}\myodbc3i.exe”; Parameters: “-a -d -t”"MySQL ODBC 3.51 Driver;DRIVER={sys}\myodbc3.dll;SETUP={sys}\myodbc3S.dll”"”; StatusMsg: “Tunggu sedang mendaftarkan driver MySQL Connector ODBC 3.51″; Flags: runhidden
Filename: “{sys}\myodbc3i.exe”; Parameters: “-a -su -t”"DSN=dsn-coba;DRIVER=MySQL ODBC 3.51 Driver;SERVER=127.0.0.1;DATABASE=coba;UID=root;PWD=”" -w”; Flags: runhidden; StatusMsg: “Tunggu sedang membuat DSN-ALBASI”
Filename: “{pf}\mysql\mysql server 5.0\bin\cek.bat”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
[UninstallRun]
;uninstall driver myodbc
Filename: “{sys}\myodbc3i.exe”; Parameters: “-s -r -su -n”"dsn-albasi”"”; StatusMsg: “Tunggu sedang menghapus DSN-ALBASI”; Flags: runhidden
;hapus dsn-albasi
Filename: “{sys}\myodbc3i.exe”; Parameters: “-d -r -n”"MySQL ODBC 3.51 Driver”"”; StatusMsg: “Tunggu sedang menghapus driver MySQL Connector ODBC 3.51″; Flags: runhidden
kalo dibuka melalui services.msc untuk path di komputer asal adalah sebagai berikut :
“C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqld-nt” –defaults-file=”C:\Program Files\MySQL\MySQL Server 5.0\my.ini” MySQL
kalo sewaktu diinstal dikomputer lain seperti ini :
“C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqld-nt.exe” MySQL
distart juga ga bisa running untuk komputer yang lain…
terima kasih
Coba om di copas juga skrip di section [Files] yang berhubungan dengan file-file MySQLnya, trus sekalian info lengkap versi MySQLnya.
Contoh : mysql-5.0.xx
[Files]
;MySQL version 5.0.85
Source: “C:\Program Files\Mysql\Mysql Server 5.0\bin\*”; DestDir: {pf}\Mysql\mysql server 5.0\bin; Flags: ignoreversion; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\share\*”; DestDir: {pf}\Mysql\mysql server 5.0\share; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\data\*”; DestDir: {pf}\Mysql\mysql server 5.0\data; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\*”; DestDir: {pf}\mysql\Mysql Server 5.0\; Flags: ignoreversion; Tasks: installmysql
;File MyODBC Connector 3.51
Source: “D:\Sispendik\msvcr71.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3i.exe”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3S.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3S.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
MySQL Versi 5.0.85
Coba seperti ini om :
[Files] ;file-file MySQL Source: "C:\Program Files\MySQL\MySQL Server 5.0\bin\*"; DestDir: "{pf}\MySQL\MySQL Server 5.0\bin"; Flags: ignoreversion; Tasks: installmysql Source: "C:\Program Files\MySQL\MySQL Server 5.0\share\*"; DestDir: "{pf}\MySQL\MySQL Server 5.0\share"; Flags: ignoreversion recursesubdirs; Tasks: installmysql Source: "C:\Program Files\MySQL\MySQL Server 5.0\data\*"; DestDir: "{pf}\MySQL\MySQL Server 5.0\data"; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql Source: "C:\Program Files\MySQL\MySQL Server 5.0\*"; DestDir: "{pf}\MySQL\MySQL Server 5.0"; Flags: ignoreversion; Tasks: installmysql [INI] Filename: "{pf}\MySQL\MySQL Server 5.0\my.ini"; Section: mysqld; Key: basedir; String: "{pf}\MySQL\MySQL Server 5.0"; Tasks: installmysql Filename: "{pf}\MySQL\MySQL Server 5.0\my.ini"; Section: mysqld; Key: datadir; String: "{pf}\MySQL\MySQL Server 5.0\data"; Tasks: installmysql [Run] ;install service MySQL Filename: "{pf}\MySQL\MySQL Server 5.0\bin\mysqld-nt.exe"; Parameters: "install ""MySQL"""; StatusMsg: "Sedang menginstall service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2; Tasks: installmysql ;jalankan service MySQL Filename: {sys}\net.exe; Parameters: "start ""MySQL"""; StatusMsg: "Sedang menjalankan service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381; Tasks: installmysql ;mendaftarkan port default mysql (3306) ke firewall Filename: "{sys}\netsh.exe"; Parameters: "firewall add portopening TCP 3306 ""Port MySQL"""; StatusMsg: "Sedang mendaftarkan port MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2 Filename: "{sys}\netsh.exe"; Parameters: "firewall set service type = fileandprint mode = enable"; StatusMsg: "Mengaktifkan File and Printer Sharing ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2 ;membuat database kosong Filename: "{pf}\MySQL\MySQL Server 5.0\bin\mysql.exe"; Parameters: "-uroot -e ""CREATE DATABASE coba"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2 [UninstallRun] Filename: {sys}\net.exe; Parameters: "stop ""MySQL"""; StatusMsg: "Menghentikan Service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381 Filename: "{pf}\MySQL\MySQL Server 5.0\bin\mysqld-nt.exe"; Parameters: "remove ""MySQL"""; StatusMsg: "Sedang menghapus service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2Jangan lupa sebelum membuild setupnya, service mysqlnya di stop dulu.
Selamat mencoba
bos tetap ga mau jalan service mysqlnya,,dijalankan erornya yang muncul malah kaya gini
Could not start the MySql service on Local Computer
Error 1067 : The Process terminated unexpectedly
boleh bos saya kirimkan file inno setupnya yang sudah saya build ke email bos,untuk nyoba filenya..jadi penasaran padahal mau dipakai client saya untuk menginstalke komputernya
terima kasih
Wah klo file setupnya keGEDEan om, mendingan skrip inno setupnya aja trus di SENSOR skrip2x yang enggak dibutuhkan.
ini bos skrip inno setupnya mohon dicek kali aja ada yg salah
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{E9CC053D-758B-4DB6-90E9-0E4D956B15AA}
AppName=Sispendik Baru
AppVerName=Sispendik Versi 2.0
AppPublisher=Erwan Production
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\Sispendik Baru
DefaultGroupName=Sispendik Baru
OutputDir=D:\contoh
OutputBaseFilename=setup
SetupIconFile=D:\Projectku\Iril\_gambar\1253369983_HP-Blank-Folder-Dock-512.ico
Compression=lzma
SolidCompression=yes
[Languages]
Name: en; MessagesFile: compiler:Default.isl
[Tasks]
;Name: “desktopicon”; Description: “{cm:CreateDesktopIcon}”; GroupDescription: “{cm:AdditionalIcons}”; Flags: unchecked
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: installmysql; Description: “Install MySQL”; GroupDescription: “Proses tambahan:”; Flags: checkedonce
[Files]
Source: “D:\NPSN\sispendik.exe”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\BACKUP_REPORT\*”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs
Source: “D:\NPSN\_REPORT\*”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs
Source: “D:\NPSN\foxhhelp9.exe”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\TestEqeus.pfx”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\zlib.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\vfp9t.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\VFP9RENU.DLL”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\VFP9rdeu.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\vfp9r.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\msvcr71.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\hndlib.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\GdiPlus.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\NPSN\foxhhelpps9.dll”; DestDir: “{app}”; Flags: ignoreversion
Source: “D:\Contoh\harat.sql”; DestDir: {pf}\mysql\mysql server 5.0\bin; Flags: ignoreversion
Source: “D:\Contoh\cek.bat”; DestDir: {pf}\mysql\mysql server 5.0\bin; Flags: ignoreversion
;Source: “D:\CONTOH\install_service.bat”; DestDir: {pf}\mysql\mysql server 5.0\bin; Flags: ignoreversion
;file-file MySQL
Source: “C:\Program Files\MySQL\MySQL Server 5.0\bin\*”; DestDir: “{pf}\MySQL\MySQL Server 5.0\bin”; Flags: ignoreversion; Tasks: installmysql
Source: “C:\Program Files\MySQL\MySQL Server 5.0\share\*”; DestDir: “{pf}\MySQL\MySQL Server 5.0\share”; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: “C:\Program Files\MySQL\MySQL Server 5.0\data\*”; DestDir: “{pf}\MySQL\MySQL Server 5.0\data”; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: “C:\Program Files\MySQL\MySQL Server 5.0\*”; DestDir: “{pf}\MySQL\MySQL Server 5.0″; Flags: ignoreversion; Tasks: installmysql
Source: “D:\Sispendik\msvcr71.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3i.exe”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3S.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “D:\Sispendik\myodbc3S.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
; NOTE: Don’t use “Flags: ignoreversion” on any shared system files
[Icons]
Name: “{group}\Sispendik Baru”; Filename: “{app}\sispendik.exe”
Name: “{group}\{cm:ProgramOnTheWeb,Sispendik Baru}”; Filename: “http://www.example.com/”
Name: “{commondesktop}\Sispendik Baru”; Filename: “{app}\sispendik.exe”; Tasks: desktopicon
[INI]
Filename: “{pf}\mysql\Mysql Server 5.0\my.ini”; Section: mysql; Key: basedir; String: {pf}\mysql\Mysql Server 5.0; Tasks: installmysql
Filename: “{pf}\mysql\Mysql Server 5.0\my.ini”; Section: mysql; Key: datadir; String: {pf}\mysql\Mysql Server 5.0\data; Tasks: installmysql
[Run]
;Menginstal Mysql
;install service MySQL
Filename: “{pf}\MySQL\MySQL Server 5.0\bin\mysqld-nt.exe”; Parameters: “install “”MySQL”"”; StatusMsg: “Sedang menginstall service MySQL …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2; Tasks: installmysql
;jalankan service MySQL
Filename: {sys}\net.exe; Parameters: “start “”MySQL”"”; StatusMsg: “Sedang menjalankan service MySQL …”; Flags: runhidden; MinVersion: 0.0,4.0.1381; Tasks: installmysql
;mendaftarkan port default mysql (3306) ke firewall
Filename: “{sys}\netsh.exe”; Parameters: “firewall add portopening TCP 3306 “”Port MySQL”"”; StatusMsg: “Sedang mendaftarkan port MySQL …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: “{sys}\netsh.exe”; Parameters: “firewall set service type = fileandprint mode = enable”; StatusMsg: “Mengaktifkan File and Printer Sharing …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;membuat database kosong
Filename: “{pf}\MySQL\MySQL Server 5.0\bin\mysql.exe”; Parameters: “-uroot -e “”CREATE DATABASE coba”"”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;Filename: “{sys}\netsh.exe”; Parameters: “firewall add portopening TCP 3306 “”Port MySQL”"”; StatusMsg: “Sedang mendaftarkan port MySQL …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;Filename: “{sys}\netsh.exe”; Parameters: “firewall set service type = fileandprint mode = enable”; StatusMsg: “Mengaktifkan File and Printer Sharing …”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
;membuat database kosong
;Filename: “{pf}\mysql\Mysql Server 5.0\bin\mysql.exe”; Parameters: “-uroot -e “”CREATE DATABASE coba”"”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: “{app}\sispendik.exe”; Description: “{cm:LaunchProgram,Sispendik Baru}”; Flags: nowait postinstall skipifsilent
Filename: “{sys}\myodbc3i.exe”; Parameters: “-a -d -t”"MySQL ODBC 3.51 Driver;DRIVER={sys}\myodbc3.dll;SETUP={sys}\myodbc3S.dll”"”; StatusMsg: “Tunggu sedang mendaftarkan driver MySQL Connector ODBC 3.51″; Flags: runhidden
Filename: “{sys}\myodbc3i.exe”; Parameters: “-a -su -t”"DSN=dsn-coba;DRIVER=MySQL ODBC 3.51 Driver;SERVER=127.0.0.1;DATABASE=coba;UID=root;PWD=”" -w”; Flags: runhidden; StatusMsg: “Tunggu sedang membuat DSN-ALBASI”
Filename: “{pf}\mysql\mysql server 5.0\bin\cek.bat”; Flags: runhidden; MinVersion: 0,5.01.2600sp2
[UninstallRun]
;uninstall driver myodbc
Filename: “{sys}\myodbc3i.exe”; Parameters: “-s -r -su -n”"dsn-albasi”"”; StatusMsg: “Tunggu sedang menghapus DSN-ALBASI”; Flags: runhidden
;hapus dsn-albasi
Filename: “{sys}\myodbc3i.exe”; Parameters: “-d -r -n”"MySQL ODBC 3.51 Driver”"”; StatusMsg: “Tunggu sedang menghapus driver MySQL Connector ODBC 3.51″; Flags: runhidden
Om Sorry td saya uprek2 sendiri akhirnya ketemu permasalahannya,,,ada pada File My.INI dikomputer saya kalo my.ini untuk basedir dan databasedir saya defaultkan ke lokasi D:/Mysql/MySql Server 5.0/ ,,sedangkan service nya menjalankan yg ada dilokasi C:/Program Files/Mysql/Mysql Server 5.0 akhirnya servicenya ga bisa RUN,,terus saya rubah dari LOKASI D ke C start lagi akhirnya jalan om…
makasih ya om atas ilmunya, sangat bermanfaat sekali dan sangat membantu pekerjaan saya
Oke om sama2x
, sukses slalu yo
Om mau nanya ada ga caranya agar user tidak menginstal file installer 2x…kecuali apabila user melakukan uninstall baru bisa diinstal lagi file installernya
misal aplikasi sudah terinstal pada waktu user ingin menginstall lagi tidak bisa.. sehingga muncul pesan error aplikasi sudah terinstall dikomputer mohon agar di uninstall dulu
terima kasih
Ya jelas ada om, cukup 2 langkah :
1. Daftarkan aplikasi pada saat instalasi, misal dengan mencatat lokasi instalasi di section [Registry]
[Registry] ;INSTALL DIR Root: HKCU; Subkey: "Software\PT. ALBASI\AplikasiKasir"; ValueName: "installDir"; ValueType: String; ValueData: {app}; Flags: uninsdeletevalueJangan lupa flags uninsdeletevaluenya
2. Pengecekan sudah terinstall atw belum dilakukan di prosedur InitializeSetup (section [Code])
[Code] var installDir : string; function InitializeSetup(): Boolean; begin Result := True; // ambil informasi instalasi program RegQueryStringValue(HKEY_CURRENT_USER, 'Software\PT. ALBASI\AplikasiKasir', 'installDir', installDir); if installDir <> '' then // berarti belum diuninstall begin MsgBox('Maaf aplikasi bla.. bla.. bla.., sudah terinstall.'#10'Silahkan uninstall terlebih dulu', mbCriticalError, MB_OK); Result := False; end end;Selamat mencoba
waaah mas ini admin yg plng mantap di jagad dunia maya,sangat aktif menjawab semua pertanyaan.
Saya mau tanya ne mas,
Klu saya develop pake vb.net 2005, inno setup versiberapa yg mendukung?.
apakah carnya sama percis seperti yg mas ajarin sekarang ne?
tolong pencerahannya mas.
Thx
Pake aja om inno yg versi 5x, klo yg terbaru versinya isetup-5.4.0 saat jawaban ini ditulis
.
Tapi saran sy pake yang versi 5.1.11 aja, alasannya sederhana karna file translate bhs indonesianya di situs resmi inno setup baru nyampe versi ini.
Klo caranya sama aja om.
Selamat mencoba
Saya mau tanya mas
Bagaimana kalo di aplikasi yg kta buat ada program tambahan
misalnya OsenXPSuite yg memerlukan kode lisensi
bagaimana scrip di Inno nya
Trims….
Setau sy komponen2x yg butuh lisensi hanya dibutuhkan pada saat proses devlop, pada saat pendistribusikan sudah tidak dibutuhkan lagi.
Jadi yg butuh lisensi itu hanya komputer devlopernya aja.
CMIIW
Mas Admin,kalau pakai Active Report untuk laporan, cara buat setupnya gmn ya…??? dl saya pernah pakai CreateInstallFree,untuk buat file setup, trus file2 dari active report aku masukin, tp tetep ga bisa, kalau pakai Inno Setup gmn ya solusinya..?? terima kasih atas pencerahannya…
Klo reportnya langsung dipanggil (enggak diembed ke form) cukup ditambahkan file arpro2.dll dan klo diembed tinggal tambahkan file ARVIEW2.OCX.
Selamat mencoba
sudah mas admin, kedua cara sudah dijalankan tapi pas dirun di komputer yang tidak ada active report nya, ada pesan error:
Run-time error ’429′:
ActiveX component can’t create object
thx,
Emang om ngetik skrip di innonya kayax apa sih ?
gan, mau nanya kok,setelah sukses instal -> finish setup[dari inno] nya, kok yang tertulis malah : “can’t connect mysql serverl on ‘localhost’ (10061)”
tolong bantuannya gan, x_x s udah ulang beberapa kali dan hasilnya tetap sama… thanks b4
Coba install mysqlnya secara manual dulu om, setelah itu coba login jika gagal berarti permasalahannya ada di windows om, jadi stop dulu membuat packagenya
sampai permasalahannya ketemu.
jika instal manual, Mysql nya jalan,:) tapi jika diinstall melalui inno, kok muncul error “can’t connect mysql serverl on ‘localhost’ (10061)” x_x mysql nya gak terbaca setelah s install setup [hasil dari inno]. kira2 permasalahan nya apa itu gan?
gan, ini lebih rincinya:
gan, pd saat s jalankan mysql di services [control panel]
errornya :
windows could not start the MySQL service on local computer
error 1067: the process terminated unexpectedly
ini kira2 solusinya gimana gan?
jika s install ulang Mysql nya dan atur ulang konfignya, mysql nya jalan kembali..
s pake MySQL 5.1
gan, udah s dapat, ternyata permasalahan ada pada my.ini datadir. thanks ya gan
Oke om sama2x
Mau, Tanya gini :
Saya membuat database “Data Barang” udah berhasil menggunakan Sql Server 200 dengan Adodc.
pertanyaan saya :
gimana pembuatan searching untuk pencarian data barang “untuk mempermudah pencarian secara simple” contoh ; yang mau di cari “Komik”
padahal buku komiknya banyak dan juga data barang lainya “Komik A” , “Komik B” , “Komik C”, “Buku Gambar”, Dll
Tolong Dong Code VBnya, menggunakan Database SQL Server dengan AdoDc? Di tunggu tank
Pake klausa LIKE om, contoh :
Jadi perbedaannya hanya diquerynya saja, untuk kode VBnya tetap sama.
Selamat mencoba
Aku coba :
di Tabel datanya gini “pakai ListView1″
KODE NAMA BARANG ST HARGA JUAL
3000563000 Komik A BUAH 20000
3000563050 Komik B BUAH 21000
3000563040 Komik C BUAH 21500
3000563040 Komik d BUAH 21500
3000563041 Buku Tulis BUAH 10000
3000563039 Buku Gambar BUAH 5000
3000563039 Pulpen BUAH 4000
3000563020 kapus tulis BUAH 2000
Pada waktu “TextCari.Text” Entry “Komik” jadi yang pingin muncul …adalah
KODE NAMA BARANG ST HARGA JUAL
3000563000 Komik A BUAH 20000
3000563050 Komik B BUAH 21000
3000563040 Komik C BUAH 21500
3000563040 Komik d BUAH 21500
Kami Udah coba caranya seperti ini pakai “Like” tp Ga bisa
‘—–
Dim dbDatabase As New ADODB.Connection
Dim rsRecodset As ADODB.Recordset
dbDatabase.Open “Provider=MSDASQL.1;Persist Security Info=False;Data
Source=DataProgram;Initial Catalog=Toko”
Set rsRecodset = dbDatabase.Execute(“select * from TabelBarang where Nama_Barang like ‘ & TextCari.Text & ‘ “)
If Not rsRecodset.EOF Then
ListView1.ListItems.Clear
Do Until rsRecodset.EOF
With ListView1
‘ .ListItems.Clear
.ListItems.Add , , rsRecodset!Kode
.ListItems(.ListItems.Count).SubItems(1) = rsRecodset!Nama_Barang
.ListItems(.ListItems.Count).SubItems(2) = rsRecodset!Kategori
.ListItems(.ListItems.Count).SubItems(3) = rsRecodset!Jenis
.ListItems(.ListItems.Count).SubItems(4) = rsRecodset!Satuan
.ListItems(.ListItems.Count).SubItems(5) = rsRecodset!ppn_Beli
.ListItems(.ListItems.Count).SubItems(6) = rsRecodset!Harga_Beli
.ListItems(.ListItems.Count).SubItems(7) = rsRecodset!ppn_Jual
.ListItems(.ListItems.Count).SubItems(8) = rsRecodset!Harga_Jual
End With
rsRecodset.MoveNext
Loop
Else
TextCari.Text = “”
End If
‘——–
hasilnya : masih tetap….. gimana yah..!!! please Tenk
Kurang karakter % om, harusnya :
Set rsRecodset = dbDatabase.Execute("SELECT * FROM TabelBarang WHERE Nama_Barang LIKE '%" & TextCari.Text & "%'") ' diapit karakter %Selamat mencoba
Sip… Bagus. Thank Teman.
Mas … Kalau bikiin Icon Buat Program VB, pakai apa yah.. Di Adobe Photoshop bisa ga yah, atau corell. Caranya gimana yah.. Thenk
Coba pake AWicons Pro.
Lagi Nanya melulu ni… Hehe..
Gini ”
Mas, Kalau Listing Searcing Tadi saya pakai “textbook” tampil ke listviw.
kalau menggunakan “tekan Tab” gimna mas ….untuk menampilkan Database tamoil ke “textbokk”
Perintahnya gini …. :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
Dim dbDatabase As New ADODB.Connection
Dim rsRecodset As ADODB.Recordset
dbDatabase.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=DataProgram;Initial Catalog=Toko”
Set rsRecodset = dbDatabase.Execute(“select * from TabelBarang where kode = ‘” & Trim(Text1.Text) & “‘”)
If Not rsRecodset.EOF Then
Text1.Text = rsRecodset!Kode
Text2.Text = rsRecodset!Nama_Barang
Text3.Text = rsRecodset!Kategori
Text4.Text = rsRecodset!Jenis
Text5.Text = rsRecodset!Satuan
Text6.Text = rsRecodset!ppn_Beli
Text7.Text = rsRecodset!Harga_Beli
Text8.Text = rsRecodset!ppn_Jual
Text9.Text = rsRecodset!Harga_Jual
Text2.SetFocus
Else
Text2.SetFocus
End If
End If
hasilnya : masih tetap….. gimana yah..!!! please Tenk
Wah enggak ngerti sy pertanyaannya
Atw coba aja perintah diatas dipindah ke event LostFocus
Private Sub Text1_LostFocus() ' TODO : PERINTAH DIATAS DIPINDAH KESINI End SubBagus bGt artikelnya….
kLw ke C++ Builder caranya sama y, mas??
Sama kok om, yang penting daftarin runtime aplikasinya yg lengkap.
Mau nanya lagi .. hehehe
Data ini :
DATA BARANG ————–> Judulnya
KODE, NAMA BARANG, ST, HARGA JUAL ——– > Tabel Recordsetnya.
3000563000 Komik A BUAH 20000
3000563050 Komik B BUAH 21000
3000563040 Komik C BUAH 21500
3000563040 Komik d BUAH 21500
3000563041 Buku Tulis BUAH 10000
3000563039 Buku Gambar BUAH 5000
3000563039 Pulpen BUAH 4000
3000563020 kapus tulis BUAH 2000
jumlah : ? —–> Jumlahnya
kode program untuk mencetak laporannya gimana ya mas .. !!!
kalau pake cristalrefort tuh gampang dah jalan.
Error ga bisa jalan .
di tunggu. blsannya Thank..
Cetaknya kemana dulu om ?
MAS GINI PERINTAHNYA…!!!! Kok Ga Jalan Yah.
——————————————————————————–
Dim SW, NO As String
Private Sub Label6_Click()
NO = 1
SW = 1
Form6.Show 1
Cetak
End Sub
——————————————————————————-
Private Sub Cetak()
With Adodc1.Recordset
.MoveFirst
Do While Not .EOF
If SW = 1 Then
Form5.FontBold = True
Form5.FontSize = 14
Form5.Print “LAPORAN DATA BARANG”
Form5.Print “===================”
Form5.FontBold = False
Form5.FontSize = 10
Form5.Print
Form5.Print “————————————————————————–”
Form5.FontBold = True
Form5.Print Tab(3); “NO”
Form5.Print Tab(9); “KODE”
Form5.Print Tab(15); “NAMA BARANG”
Form5.Print Tab(28); “KATEGORI”
Form5.Print Tab(36); “JENIS”
Form5.Print Tab(42); “SATUAN”
Form5.FontBold = False
SW = 0
End If
Form5.Print Tab(3); Format(NO, “####”);
Form5.Print Tab(9); !Kode
Form5.Print Tab(15); !Nama_Barang
Form5.Print Tab(28); !Kategori
Form5.Print Tab(36); !Jenis
Form5.Print Tab(42); !Satuan
.MoveNext
Loop
Form5.Print “————————————————————————–”
End With
End Sub
———————————————————————————
Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;” + _
“Data Source=DataProgram;Initial Catalog=Toko”
Adodc1.RecordSource = “TabelBarang”
Adodc1.CommandType = adCmdTable
End Sub
———————————————————————————
Di Tunggu bls-nya…!!!
Tambahkan perintah “NO = NO + 1″ diatas .MoveNext
dan jangan lupa tipe data NO diganti Integer atw Long
Mas Cristal Report ver.8 Full Versi..download gratis di situs apa ya…
Coba googling aja om, itu merupakan salah satu proses pembelajaran
Yg jelas di rental2x cd banyak om
Assalamuaikum. salam kenal mas. begini saya agak bingung klo instal dengan inno setup. kan klo pake bawaan vb sendiri ada mdac_typ.exe. itu file sebenarnya buat apa?. klo pke inno setup ditaruh dimana?. pengaruh ga klo mdac_typ.exe di hilangkan. karena kemarin sempat nyoba. ternyata di komputer lain mlh ga jln. sempat juga instal dengan silent instal dengan kode begini
Filename: “msiexec.exe”; Parameters: “/i “”{tmp}\mysql-essential-5.1.54-win32.msi”" /qn”
memang begitu selesai instalasi mysql udah langsung terinstal di PC. tapi konfigurasinya tetap manual.bisa tidak ya dari silent install agar konfigurasinya bisa otomatis. soalnya klo model masuk masukin begini
;MySQL version 5.0.85
Source: “C:\Program Files\Mysql\Mysql Server 5.0\bin\*”; DestDir: {pf}\Mysql\mysql server 5.0\bin; Flags: ignoreversion; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\share\*”; DestDir: {pf}\Mysql\mysql server 5.0\share; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\data\*”; DestDir: {pf}\Mysql\mysql server 5.0\data; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: “C:\Program Files\Mysql\Mysql Server 5.0\*”; DestDir: {pf}\mysql\Mysql Server 5.0\; Flags: ignoreversion; Tasks: installmysql
disamping ribet saya gagal mulu. saya juga bingung dengan versi non install di masukinnya dimana?
untuk driver udah sukses bisa terpasang dengan baik. mohon penjelasannya.
Waalaikumussalam
1. Jika databasenya menggunakan MySQL tidak memerlukan Microsoft Data Access Components (mdac_typ.exe). MDAC biasanya digunakan jika databasenya menggunakan SQL Server itupun klo OSnya masih menggunakan windows 9x, mulai windows xp sudah tidak memerlukan MDAC lagi (CMIIW).
Jadi intinya untuk MySQL cukup mengikutsertakan driver MySQL ODBC.
2. Nah itulah kelebihan distribusi MySQL dalam versi non install dibandingkan dengan versi installer (.msi) karena dengan versi non install, proses instalasi bisa kita atur via skrip jadi tanpa perlu campur tangan user.
3. Intinya om coba download aja MySQL versi non install disini, kemudian pilih yang “mysql-noinstall-5.1.56-win32.zip”, lihat gambar.
Terakhir coba dibaca ulang lagi artikel diatas, karna sebelum sy publish sudah melalui tahap uji coba
.
Walaupun sedikit ribet, insya Allah sesuai dengan hasil yang didapat
Makasih mas, dah sukses, cuma saya nyoba dengan wizardnya dulu kemudian baru mengeditnya lagi. klo dengan wizard kan di belakang flag ada tambahan begini
Flags: ignoreversion
dan dalam vb kan ada komponen aktif ky dll ocx itu. agar flag nya jadi begini :
Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
secara otomatis bisa tidak ya?. atau memang harus manual di editnya.?
Klo pake wizard bawaan Inno memang harus manual om ngedit flagnya, klo mau yg lebih mudah coba pake ISTool atau InnoIDE jadi ada GUInya gitu.
Selamat mencoba
Mas Mau Tanya :
Aku Kan Bikin Database Penjualan pakai SQLServer,pakai ADODC Tabelnya gini :
Nama Tabel ;Penjualan
Column Nime ; Type
___________________________________
Nomor;varchar
Tanggal;datetime
Waktu;datetime
Kode_Barang;varchar
Nama_Barang;varchar
Satuan;varchar
Quantity;float
Harga;float
Jumlah;float
——————————
Private Sub Simpan()
Dim dbDatabase As New ADODB.Connection
Dim rsRecodset As ADODB.Recordset
dbDatabase.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=DataProgram;Initial Catalog=Toko”
Set rsRecodset = dbDatabase.Execute(“select *from Penjualan where Nomor =’” & Text1.Text & “‘”)
If rsRecodset.EOF Then
dbDatabase.Execute (“insert into Penjualan(Nomor,Tanggal,Waktu,Kode_Barang,Nama_Barang,Satuan,Quantity,Harga,Jumlah) values (‘” & Text1.Text & “‘,’” & Text2.Text & “‘,’” & Text3.Text & “‘,’” & Text4.Text & “‘,’” & Text5.Text & “‘,’” & Text6.Text & “‘,’” & Text7.Text & “‘,’” & Text8.Text & “‘,’” & Text9.Text & “‘)”)
Bersih
MsgBox “Data Selesai Tersimpan ……”, vbQuestion + vbOKOnly, “Konfirmasi”
End If
End Sub
Private Sub Bersih()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text1.SetFocus
End Sub
Pada Waktu Mau Di Simpan Kenapayah Kok Jadinya !!!(TAMPIL informasi error dibawah ini)) Pada TabelTanggal & Waktu,
—–
Run-time error ‘-2147217913(80040e07)’:
[Microsft][ODBC SQL Server Drive][SQL Server The converiso of cha data type to a datetime data type sesulted in an out-of-rangedatetime value
-----
Tp Kalau tidak di isi "Tanggal & Waktu", bisa Tersimpan tapi isinya di tabel :
Tanggal = 01-01-2000
Waktu=01-01-2000
Begituuuuuu.....
Balas Tolong Dong Mas....CODING- nya
Coba di debug dulu perintah insertnya :
Private Sub Command1_Click() Dim strSql As String strSql = "insert into Penjualan(Nomor,Tanggal,Waktu,Kode_Barang,Nama_Barang,Satuan,Quantity,Harga,Jumlah) values ('" & Text1.Text & "',’" & Text2.Text & "',’" & Text3.Text & "',’" & Text4.Text & "',’" & Text5.Text & "',’" & Text6.Text & "',’" & Text7.Text & "',’" & Text8.Text & "',’" & Text9.Text & "')" Debug.Print strSql End SubHasilnya langsung dijalankan di Query Analyzer biar lebih gampang untuk mengecek kesalahannya.
Sama ini Mas Kalau, ingin mengetahui “NOMOR” terakhir Giamana Mas…, Code Vb-nya?
Pada waktu Klick Command “BARU”
Tank di tunggu balasannya……..
Emang format nomor fakturnya gimana om? Apakah urut ? klo urut bisa pake query berikut :
Halo juragan,
Biasanya aku bikin setup dari visual studionya nah kalo scrip ini aku agak gak mudeng deh ( maaf pemula ) pertanyaanya :
1. itu script di ketik manual ? atau hasil compile dari inno nya ?
2. ambil sumber file yang mau di bikin setup itu di tulis di scripnya ?
3. buat folder untuk file setup itu harus di dalem sumber filenya ada bisa sembarang?
4. ini bisa untuk bikin setup di vb.net yang di develop pakai vs 2005 keatas engak?
thanks ya juragan
Klo untuk vb 6 biasanya sy buat dulu pake tool Package & Deployment Wizard gunanya untuk mengecek file dll/ocx yg dibutuhkan dibagian [Files], kemudian sy konversi menggunakan ISTool, setelah itu baru dimodif sesuai kebutuhan.
klo file sumber digabung dengan file skripnya cukup menyebutkan nama filenya
bebas, klo beda lokasi harus menyebutkan lokasi file sumbernya secara absolute, misal “c:\file_sumber\file.ocx”
Ya jelas bisa om, sy sendiri sekarang devlop pake VB 2005
Untuk file sumbernya sy langsung ambil dari folder Release, trus flag skripnya diignoreversion aja.
Selamat mencoba
bang admin….
aku pakai vb6; xampp; mysql connector odbc 5.1 driver; crystal report 8.5…
aku dah buat aplikasinya… bentuk .exe; nah saya ingin membuat semua (vb6; xampp; mysql connector; crystal report) jadi 1 instaler… nah yang saya bingungkan…
nanti setting akun untuk databasenya bagaimana? kan harus setting odbc connectornya… apakah bisa otomatis??
kemudian membuat databasenya bagaimana??? sebab saya sudah ada database menggunakan xampp….
maaf bang admin saya sudah baca2 post bang admin yang berhubungan dengan installer tapi tetap tidak mengerti soalnya saya masih pemula….
jika berkenan mohon dikirim email saja cara2nya….
terima kasih sebelumnya
Si om ini bercanda kali butuhnya cuma MySQL kok harus menginstall XAMPP segala, klo om developnya aplikasi web ini masih masuk akal, karna XAMPP itukan paket kompilasi beberapa program (Apache Web Server, MySQL, PHP, dan Perl) dengan tujuan mempermudah proses instalasi ke empat aplikasi tersebut.
Sebenarnya sih enggak masalah om menggunakan XAMPP waktu develop, yang penting waktu distribusi program ke klien mengikutsertakan MySQL.
Jadi yang wajib itu MySQlnya bukan XAMPPnya.
lalu bagaimana bang admin??? apa saya harus Uninstall XAMPP?
Enggak perlu om, nanti waktu buat skrip inno setupnya lokasi sumber MySQLnya langsung diarahkan ke “C:\xampp\mysql”
bang database yang dari XAMPP bisa di export ke MySQL apa tidak?? bagaimana caranya?
XAMPP itu 1 buah aplikasi yang intinya berisi apache ( web server ) dan Mysql ( databse ) kalau anda develop desktop aplikasi yang di perlukan cuma mysqlnya saja.
mysql di databse bisa di export buka saja pakai phpmyadmin yang defaultnya sudah terinstall pada saat anda install XAMPP.
Yg jelas bisa om, seperti kata om Arief pake phpmyadmin aja
Gan,
Kalo saya baca2 tutorial di int, pada saat kompile pakai inno setup itu di perlukan file .exe, nah file exe sendiri bukanya file jadi yang sudah siap di instal? jadi engak perlu inno setup pun dah bisa kan ? atau saya salah paham ?
bisa engak misal kita develop pakau vs 2005 belum di jadiin exe kan masih dalam folder biasa dengan beberapa file form terus kita mau buat file instaler pakai inno setup.
tolong gan kalo dari vs mesti di apain dulu baru bisa di bikin pakai inno setup.
thanks
Iya om sebenarnya inno setup atw tool sejenisnya hanya untuk mempermudah kita melakukan distribusi program. Nah klo om mau melakukan langkah-langkah berikut secara manual berarti enggak perlu tool installer :
1. membuat folder aplikasi
2. mengcopy file exe aplikasi
3. mengcopy file library(ocx/dll) ke windows system trus meregisternya satu2x dg perintah regsvr32
4. membuat key uninstall di registry
5. membuat shortcut didesktop/start program
Enggak om harus dijadikan exe dulu.
1. Aktifkan toolbar Show All Files pada Solution Explorer, kemudian expand node References pilih satu2x library yg ingin diikut sertakan pada saat instalasi set properties Copy Local = true. Lihat gambar
2. Kemudian pada toolbar cari pilihan Solution Configurations, aktifkan pilihan jadi Release. Lihat gambar
3. Build Solution (menu Build -> Build Solution)
4. Terakhir cek folder Release di project om, lihat gambar
Nah pada saat membuat skrip inno setup lokasi instalasi file diarahkan ke folder releasi. ex :
[Files] ;My Application Runtime Source: E:\Project IC\my_repo\SmartActivationV2\bin\Release\*"; DestDir: {app}; Flags: ignoreversionSelamat mencoba
Oh begono toh juragan, tengkiu ya gan…
Iya om, lebih kurang gitu
Mau Tanya Mas Gini….
Kalau Membuat Pencarian memakai kategori DrTanggal s/d Tgl gimana mas ?
Aku Udah Bikin Kodenya tapi kok Nggak Jalan Jalan …seperti di bawah ini :
——————————————————————-
Private Sub TextCari_Change()
NO = 1
Dim dbDatabase As New ADODB.Connection
Dim rsRecodset As ADODB.Recordset
dbDatabase.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=DataProgram;Initial Catalog=Toko”
Set rsRecodset = dbDatabase.Execute(“select *from Penjualan where Tgl_Jual between #” & TglDari.Text & “# and #” & TglSampai.Text & “#, Nama_Barang LIKE ‘%” & Trim(TextCari.Text) & “%’”)
If Not rsRecodset.EOF Then
ListView1.ListItems.Clear
Do Until rsRecodset.EOF
With ListView1
.ListItems.Add , , NO
.ListItems(.ListItems.Count).SubItems(1) = rsRecodset!No_Jual
.ListItems(.ListItems.Count).SubItems(2) = rsRecodset!Tgl_Jual
.ListItems(.ListItems.Count).SubItems(3) = rsRecodset!Waktu
.ListItems(.ListItems.Count).SubItems(4) = rsRecodset!Operator
.ListItems(.ListItems.Count).SubItems(5) = rsRecodset!Kode_Customer
.ListItems(.ListItems.Count).SubItems(6) = rsRecodset!Nama_Customer
.ListItems(.ListItems.Count).SubItems(7) = rsRecodset!Kode_Barang
.ListItems(.ListItems.Count).SubItems(8) = rsRecodset!Nama_Barang
.ListItems(.ListItems.Count).SubItems(9) = rsRecodset!Satuan
.ListItems(.ListItems.Count).SubItems(10) = rsRecodset!Quantity
.ListItems(.ListItems.Count).SubItems(11) = rsRecodset!Harga_Jual
.ListItems(.ListItems.Count).SubItems(12) = rsRecodset!Disc
.ListItems(.ListItems.Count).SubItems(13) = rsRecodset!Jumlah
.ListItems(.ListItems.Count).SubItems(14) = rsRecodset!Kategori
.ListItems(.ListItems.Count).SubItems(15) = rsRecodset!Jenis
.ListItems(.ListItems.Count).SubItems(16) = rsRecodset!Stok
End With
rsRecodset.MoveNext
NO = NO + 1
Loop
JumTransaksi.Caption = ListView1.ListItems.Count
Else
End If
End Sub
—————————————————————-
Di Tunggu Konfirmasinya… Thank
Kode Yang ininya gimana mas…gitu aja.
Set rsRecodset = dbDatabase.Execute(“select *from Penjualan where Tgl_Jual between #” & TglDari.Text & “# and #” & TglSampai.Text & “#, Nama_Barang LIKE ‘%” & Trim(TextCari.Text) & “%’”)
Tolong mas Yah… Makasih.
Querynya masih salah om, antar kondisi dipisahkan dengan operator bisa AND, OR atw lainnya :
Jadi bukan menggunakan koma seperti querynya om.
Cari ke sana kemari tak taunya di sini baru ketemu artikel yang mantap. Ijin copas semuanya mas.
Ok om
Salam Kenal
Mas Admin rasanya saya tidak bisa tanpa mengucapkan terimakasih kepada mas Admin karena saya membaca semua artikel dari blog anda sehingga dpt sy manfaatkan dengan program vb yg saya develop, sekalian juga saya mau tanya apakah InnoSetup dapat digabungkan dengan Merge Module dari CrystalReports XI, trims sekali lagi dan semoga ilmu yg anda sebarkan jadi berkah untuk anda Amin…
Coba link ini om, soalnya sy bukan pengguna Crystall Report jadi belom bisa bantu ngoprex
assalammualaikum.
mw nanya om,knp ya setiap install visual basic 6.0 gagal truz.
selalu ada bacaan’can’t find DA0350.DLL’.
mohon bantuannya,om.
terima kasih.
Mungkin kena di Installer vb 6 nya.
Kang mau tanya, gimana cara nulis di file .INI yang langsung nulis stringnya.
Jadi gini kasusnya, installer saya sudah berhasil install mysql tapi nilai yang ditulis di file my.INI selalu kurang “skip-name-resolve”. Padahal string ini butuh banget biar client bisa konek ke server. Sintak yang aku tulis seperti ini.
[INI]
Filename: {app}\mysql\my.ini; Section: mysqld; Key: basedir; String: {app}\mysql; Tasks: installmysql
Filename: {app}\mysql\my.ini; Section: mysqld; Key: datadir; String: {app}\mysql\data; Tasks: installmysql
Filename: {app}\mysql\my.ini; Section: mysqld; String: skip-name-resolve; Tasks: installmysql
Apa ada yang salah ya kang? karena hasil dari sintak ini, 2 baris atas berhasil dijalankan (nilainya keluar). Tapi baris ke 3 tidak tertulis.
Terima kasih banyak kang.
Kayaxnya enggak bisa om, soalnya var “skip-name-resolve” tidak ada valuenya
Trus ada akal ga untuk memasukkan “skip-name-resolve” ke dalam file my.INI
Thanks banget kang.
Coba seperti ini om :
[Files] ; tambahkan skrip berikut pada section [Files], lokasi source mysql disesuaikan Source: mysql-5.1.36-win32\my.ini; DestDir: {app}\mysql; Flags: ignoreversion; Tasks: installmysql; AfterInstall: modifMyINI [INI] ; perintah berikut dinonaktifkan ;Filename: {app}\mysql\my.ini; Section: mysqld; Key: basedir; String: {app}\mysql; Tasks: installmysql ;Filename: {app}\mysql\my.ini; Section: mysqld; Key: datadir; String: {app}\mysql\data; Tasks: installmysql [Code] procedure modifMyINI(); var DestFile: String; var SrcFile: String; var SrcContent: String; begin // lokasi file my.ini yg akan diedit SrcFile := ExpandConstant('{app}\mysql\my.ini'); // lokasi file temporary dg nama my2.ini DestFile := ExpandConstant('{app}\mysql\my2.ini') // tulis ulang nilai basedir, datadir dan skip-name-resolve disini SetIniString('mysqld', 'basedir', ExpandConstant('{app}\mysql'), SrcFile); SetIniString('mysqld', 'datadir', ExpandConstant('{app}\mysql\data'), SrcFile); SetIniString('mysqld', 'skip-name-resolve', '', SrcFile); // baca file my.ini LoadStringFromFile(SrcFile, SrcContent); // ganti skip-name-resolve= menjadi skip-name-resolve StringChange(SrcContent, 'skip-name-resolve=','skip-name-resolve'); // simpan file temporary my.ini dg nama my2.ini SaveStringToFile(DestFile,SrcContent, False); DeleteFile(SrcFile); // delete file my.ini // ganti nama file my2.ini menjadi my.ini RenameFile(DestFile,ExpandConstant('{app}\mysql\my.ini')); end;Selamat mencoba
Ok kang sudah bisa, tapi pas dicoba di win 7 ga bisa. seperti ga ada perubahan sebelumnya. Kalo dengan sintak diatas maka yang muncul di my.ini nya adalah :
[mysqld]
basedir:….
datadir:…
skip-name-resolve
kalo yang muncul di win 7 :
basedirnya tidak terubah seperti yang diinstall
datadinya juga tidak berubah seperti yang diinstall
skip-name-resolve juga tidak ada.
aku dah coba untuk naruh di tempat lain file my.ini tsb kemudian aku replace-kan ke drive installernya lokasinya di drive sistem win7. tapi ga ada efek. Pas aku coba replace manual muncul pesan access denied. kira2 apa yang salah ya kang? Thx banget.
Klo nampil pesan “access denied” ya waktu nginstallnya pake login Admin om
permisi mas admin..
saya programmer support untuk pembuatan aplikasi Payroll…
aplikasi kami menggunakan vb 6.0 + ActiveReport + SQL Server 2000
tapi kami ingin mencoba membuat aplikasi Trial yang menggunakan MySQL Server 5.5
nah yang ingin saya tanyakan adalah, untuk masalah ODBC nya itu bagaimana ya ?
saya sudah ikuti petunjuk yang mas admin kasih. tapi selalu gagal di ODBC (DSN Not found, Dll)
apakah komputer harus terinstall ODBC&mySQL terlebih dahulu atau tidak ?
terima kasih.
ditunggu jawabanya ya
Ini om ringkasan skrip diatas khusus untuk mendaftarkan MySQL ODBC Connector :
[Files] ;daftar file MySQL ODBC 5.1 Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll"; DestDir: {sys}; Flags: onlyifdoesntexist Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.dll"; DestDir: {sys}; Flags: onlyifdoesntexist Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.lib"; DestDir: {sys}; Flags: onlyifdoesntexist Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.lib"; DestDir: {sys}; Flags: onlyifdoesntexist Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc-installer.exe"; DestDir: {sys}; Flags: onlyifdoesntexist [Run] ;install driver myodbc Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -a -n ""MySQL ODBC 5.1 Driver"" -t ""DRIVER=myodbc5.dll;SETUP=myodbc5S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 5.1.5"; Flags: runhidden [UninstallRun] ;uninstall driver myodbc Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -r -n ""MySQL ODBC 5.1 Driver"""; StatusMsg: "Tunggu sedang menghapus driver MySQL Connector ODBC 5.1.5"; Flags: runhiddenJangan lupa dicek versi MySQL ODBC Connector yg om gunakan, contoh skrip diatas menggunakan versi MySQL ODBC 5.1
Selamat mencoba
ketemu lagi nih kang!
ada bocoran gmana caranya membuat auto backup untuk aplikasi vb 6 dengan database mysql ngak?
Ngapain report2x om buat aplikasi lagi, manfaatin aja fasilitas Scheduled Tasks nya windows
maksud saya saya buat aplikasi dengan mysql misalnya saya ingin di dalam aplikasi terdapat fasilitas untuk backup manual dan auto backup dan mengeset waktu di dalam aplikasi itu sendiri, untuk backup manual saya udah baca postingan akang nah saya ingin mencoba menambahkan backup otomatisnya. kira2 source untuk menjalankan file batch pada schedule task yg akang suruh di postingan lain untuk saya gmana caranya? sebelumnya terima kasih
salut buat ilmunya….
Salut sih salut om, klo ditanyain trus babak belur juga sy
Langkah-langkahnya lebih kurang seperti ini om :
1. Buat file batch misal dg nama backup.cmd, trus file ini dicopykan aja ke folder MySQL\bin
for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set year=%%c for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set month=%%a for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set day=%%b for /f "tokens=1 delims=: " %%h in ('time /T') do set hour=%%h for /f "tokens=2 delims=: " %%m in ('time /T') do set minutes=%%m for /f "tokens=3 delims=: " %%a in ('time /T') do set ampm=%%a rem MEMBUAT FILE BACKUP DATABSE DENGAN FORMAT NAMA_DATABASE_tahun-bulan-hari_jam_menit rem NAMA_DATABASE MENYESUAIKAN set FILE_BACKUP=NAMA_DATABASE_%year%-%month%-%day%_%hour%-%minutes%-%ampm% rem USER_NAME, USER_PASSWORD dan NAMA_DATABASE menyesuaikan mysqldump -uUSER_NAME -pUSER_PASSWORD --routines NAMA_DATABASE > "E:\Backup Database\%FILE_BACKUP%.SQL"2. Pelajari bagaimana membuat scheduled task untuk menjalankan file batch disini.
Jangan sebentar2x nanya ya, entar malah sy yg tambah pintar
Selamat mencoba
mas,aq mau tanya nih.aq udh coba pake inno seperti yg diatas tapi pas berhasil di instal ketika setup nya di jalanin ga bisa mas.muncul error [ODBC][MySQL] not found.
saya cari instalan connector odbc nya di C:\program files\MySQL…..ga ada mas,
bisa kasih pencerahan ga mas?
lg bikin setup buat skripsi nih..
makasihhh..^_^
Ini mba2x kan? Bukan om2x
Jadi gini mba, ODBC MySQL bukan bawaan Windows jadi harus diinstal terlebih dahulu. Untuk file setupnya bisa didownload disini.
Setelah diinstall coba dijankan lagi inno setupnya
ya bukan donk,hehehe…bagi ym nya donk mas…:D
udah berhasil bikin setup nya mas,mslahnya pas saya jalankan programnya muncul pesan error tentang odbc itu mas??
saya nambahin script ini dimana mas,orang saya instal connectornya ga ada di C:\program files\mysql\….
script ini lho mas :
[Files]
;daftar file MySQL ODBC 5.1
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc-installer.exe”; DestDir: {sys}; Flags: onlyifdoesntexist
Berarti errornya pada saat menjalankan programnya ya?
Bukan pada saat proses pembuatan paket instalasinya ?
Klo iya mungkin lupa menambahkan perintah berikut di skrip inno setupnya.
[Run] ;install driver myodbc Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -a -n ""MySQL ODBC 5.1 Driver"" -t ""DRIVER=myodbc5.dll;SETUP=myodbc5S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 5.1.5"; Flags: runhiddenYM ID : k4m4r82 (tapi jarang online
)
kalau untuk jaringan LAN bisa? setting odbcnya gmn ya, soalnya saya pake connectionstring…
Buat aja form input untuk memasukkan informasi yg dibutuhkan connectionstringnya, contohnya ada disini.
assalmualaikum om..
om mo nanya knp ya hasil compile inno setup vb dg active report kok load reportx lama buanget padahal dah disertai arpro2.dll.,
Harusnya enggak lah om, enggak ada hubungannya lagi antara ngeload ActiveReportnya lambat dengan Inno setup.
Klo ngeload ActiveReportnya lambat berarti hubungannya dg aplikasi yg kita buat
gitu ya om..tapi waktu aq instal active report baru bisa load reportx..emang ada dll selain arpro2.dll yg harus disertakan dlm compile ya om???
Klo langsung menampilkan reportnya dll yg dibutuhkan cukup file arpro2.dll tapi klo laporannya diembed ke form menggunakan komponen ActiveReports Viewer perlu file dll tambahan yaitu arview2.ocx
Sy juga pernah ketemu kasus dimana ngeload laporannya lama banget, tp waktu koneksi internet dimatikan ngeloadnya normal, mungkin tips yg ini bisa om coba
sudah saya coba om,,tapi masih blum ada efekx,q cek pada IDE Visual Basicx ternyata untuk buka desain reportx aja menghabiskan memori kompt, padahal sblmx tdk. n q cek pada sample report bawaanx tidak ada masalah..kmrn forum sebelah jg ada yg sprt ini n katax suruh edit n copas field2 di reportx tapi g ada efekx juga, aq desainx pake win7 n reportx ar 2.4.0.1279 (ato repotx tidak stabil pd win7 ya om??)
Enggak kok OS sy juga pake Win 7, coba aktifkan setting “Disable desktop compotition”.
Caranya :
1. keluar dari IDE VB 6
2. Klik kanan shortcut VB 6 -> Properties
3. Lihat gambar
sudah saya coba om,,emang lebih cepat om tapi tkadang masih lambat lagi buka report di IDEx n sampe menyedot banyak memori komptr..
Ya udah om disyukuri aja
iya om makasih..
kenapa ya om, ane nyoba bkn setup pek inno setup, pass di compile ada yang error di bagian file dll(pelengkap ocx richtextbox vb) kalo ane apus bagian scrip tuh, bisa di compile om. tapi pas instal gagal, di bagia ini om.
Source: dll&ocx\stdole2.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
regtypelib nya ga mau….. kalo ane plh ignore, pass app dijalanin, ada warning runtime error (6)
gmana tuh ya om???
ane pake istool(yg buat buka file setup.lst pd vb), n dilanjutkan dgn compile pke inno setup…
Kemungkinan besar file stdole2.tlbnya belum ada difolder dll&ocx om
udah bisa om heheh thq… kematin g bsa karna riched32.dll nya unsafe data…..
jadi g mau dia….
untuk stdole.tlbnya, itu karna versinya yang berbeda (saya bkn projek di xp, saya coba di win 7… sipaya mau di install, compatibility file setupnya harus di ganti, run as admin dan jalankan sebagai win xp sp3) thq bgt om, bener” brmanfaat banget postingnya heheh…. thq berat deh pokoknya hehehhe
Sama2x om
Om K4M4R88 ,, saya mempunyai masalah saat package development wizard saat di klik finish dan mau eksekusi writting setup.lst file yaitu berupa pesan : “Unexpected error numbern 28 has occurred : Out of stack space..”
Kira2 itu masalahnya dimana yah??
Terima kasih sebelumnya…:)
Mungkin masih ada kode program yg error om, buka lagi projectnya trus tekan tombol CTRL+F5
selalu Om.. saya selalu pake with full compile …
ga ada error… dan saat di jadikan .exe pun ga masalah… di operasikan juga jalan dengan baik kok om..
Tapi anehnya kok saat waktu di package development wizard keluar pesan sperti itu..
Apakah ada pengaruh dari komponen (.ocx) om?
saya punya komponen CtrlLine.ocx …
Bisa jadi om coba aja di build tanpa komponen itu
kalo udah jadi file exe..bisa di balikin lagi ga mas ke vb.net lagii…mau liat source codenya..
makasih
Mungkin langsung aja om coba cari pake keyword “decompiler vb.net”
thanks om..mantabss dah…kalo udah di copyright apa masih bisa di akalin biar codenya keluar semua..
Itu udah paling mentox om, walaupun udah pake tools decompiler tepat aja kodenya masih mirp2x assembly
okay om saya coba…
terima kasih banyak pak.DosDunYa[Dosen Dunia Maya]
Karena telah banyak membantu saya dengan secara tidak face to face, selama setahun lebih ini selalu mengunjungi,menyimak,mempraktikan apa yg di share blog anda om…Dan banyak ilmu yg dpt saya terapkan dalam pengembangan program2 saya dari blog om.
Smoga semakin banyak manusia2 sperti anda om di indonesia …
Terima kasih seali lagi..Semoga sukses..
________________________________________________________________________
Salam Sukses..
Sy jadi terharu om
Ternyata om salah satu korban keusilan sy di blog ini, sy jadi merasa bersalah
Oke om salam sukes juga
wiwwww… baru liat neh gambar Om admin yg asli…
Perhatiin trus aja om fotonya, entar lama kelamaan kepalanya bakalan muter ke belakang xixixixi
kalo instal di windows seven muncul pesan kesalahan “error accessing registry”, solusinya bagaimana nih admin
Untuk mengakses registry windows kan butuh login sebagai ADMINISTRATOR
Jadi waktu nginstallnya om harus login sebagai ADMIN
bapak klo vb.net + sqlserver . saya mw pindahkan ke komputer lain tanpa menginstall keduanya itu gimana? katanya dibuat paket ntu caranya gimana pa?tolong bantuannya pa?
Enggak bisa om sql servernya tetap harus diinstall klo cuma 1 komputer, tapi klo kliennya banyak sql servernya cukup diinstall di 1 komputer yg dialokasikan untuk menjadi server.
Untuk aplikasi yg didistribusikan ke klien2x cukup dot NET framework klo pake XP + aplikasi jadi VB .NETnya biasanya ada difolder bin\Release atau bin\Debug
Pertanyaan saya adalah, gimana kalau dikomputer yang akan diinstall sudah terdapat mysql
Maksudnya gini om, kalau di komputer yang akan diinstall sudah mysql gimana caranya. Tapi kita tetap perlu untuk membuat odbc dan database yang tentunya terdapat password yang tidak boleh diketahui client
Klo cuma untuk mengetahui MySQL udah diinstall atw tidak masih bisa om, kan bisa dicek dari windows service, tp untuk mengetahui passwordnya yg enggak bisa (CMIIW).
Klo passwordnya lupa aja kita cuma bisa meresetnya kok.
Nah, scriptnya gimana tuh…..boleh dibantuin nggak?
Begitu juga untuk mengetahui apakah sudah diinstall myodbc lom…..
Kalau udah terpasang, mysql, mau create database scriptnya gimana dan buat DSN nya gimana…..
Semua pertanyaan om sudah ada jawabannya di blog ini om :
1. Mengecek service windows
2. Informasi driver ODBC sudah terinstall ada registry berikut :
Om bisa manfaatkan fungsi API RegOpenKey, RegQueryStringValue dan RegCloseKey
3. Create skrip database
4. Buat DSN juga sudah yg nanya diatas
Ketauan deh klo om belum baca komen2x diatas
Ane emang nggak baca semuanya……..he3x. Installer sich ane udah berhasil buat. Cuma kemudian terpikir gimana kalau komputer yang akan kita install sudah ada mysql dan odbc driver untuk mysql. Nah, kalau di komputer yg akan diinstall sudah ada mysql dan driver mysqlodbc, scriptnya jadi gimana? Kan yang perlu dilakukan adalah membuat user dan password untuk database aplikasi kita, kemudian membuat database, dan DSN……nah itu yang ane gak bisa……
Sorry pertanyaannya ngulang2, soalnya belum ngarti……maklum masih newbie
Karena belum mengerti makanya dicoba om, referensi yg sy berikan sudah lengkap dan status newbie bukan alasan untuk malas mencoba.
Setelah mencoba masih ada masalah baru bertanya.
mas kalo mau backup & Restore databse Mysql pake coding vb6 gmn???
Coba meluncur kesini om.
Om, langkah ini bisa diterapkan juga di windows 7 gak Om
Harusnya bisa om
Selamat mencoba
Sorry mas Admin, tanya lagi dikit. Ane udah baca semuanya, tapi kog kayaknya lom ada yang pas dengan pertanyaan Ane.
Sekarang Ane pengen tanya lagi, masih penasaran.
1. Di komputer yang mau diinstall sudah ada mysql dan odbc, tapi tentunya kita gak tau dia installnya di folder mana (gak jelas gitu, tapi udah ada)
Pertanyaannya :
Gimana kita membuat script installer kita yang langsung bisa menggunakan mysql dan odbc yang sudah ada untuk membuat database dan dsn.
Thanks!
Oke deh om sy nyerah, coba tambahkan kode berikut di section code
[Code] const MaxMySQLODBCVersions = 2; MySQLService = 'MySQL'; function IsMySQLExist: Boolean; begin // cek daftar service yg terinstall ada di // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services Result := RegKeyExists(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\services\' + MySQLService); end; function IsMySQLODBCExist: Boolean; var I: Integer; MySQLODBCVersions: array[1..2] of string; begin // MySQL ODBC 3.51 Driver // MySQL ODBC 5.1 Driver MySQLODBCVersions[1] := '3.51'; MySQLODBCVersions[2] := '5.1'; Result := False; for I := 1 to MaxMySQLODBCVersions do begin // cek daftar odbc yg terinstall ada di // HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI Result := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ODBC\ODBCINST.INI\MySQL ODBC ' + MySQLODBCVersions[I] + ' Driver'); if Result then Break; end; end; function GetMySQLDir: String; var MySQLDir : string; pos1 : integer; begin RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\services\MySQL', 'ImagePath', MySQLDir); pos1 := Pos('\bin\mysqld', MySQLDir); Result := Copy(MySQLDir, 2, pos1 - 2); end;Untuk fungsi IsMySQLExist dan IsMySQLODBCExist bisa langsung digunakan di section [Files] dan [Run]. Contoh :
[Files] ; daftar file MySQL ; tambahan flag Check: not IsMySQLExist Source: mysql-5.1.36-win32\bin\*; DestDir: {app}\mysql\bin; Flags: ignoreversion; Check: not IsMySQLExist; Tasks: installmysql ; TODO : daftar file mysql lainnya ; daftar file MySQL ODBC 5.1 ; tambahan flag Check: not IsMySQLODBCExist Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll"; DestDir: {sys}; Flags: onlyifdoesntexist; Check: not IsMySQLODBCExist ; TODO : daftar file MySQL ODBC lainnya [Run] ;install service MySQL Filename: "{app}\mysql\bin\mysqld.exe"; Parameters: "install ""MySQL"""; StatusMsg: "Sedang menginstall service MySQL ..."; Flags: runhidden; Check: not IsMySQLExist; MinVersion: 0,5.01.2600sp2; Tasks: installmysql ;jalankan service MySQL Filename: {sys}\net.exe; Parameters: "start ""MySQL"""; StatusMsg: "Sedang menjalankan service MySQL ..."; Flags: runhidden; Check: not IsMySQLExist; MinVersion: 0.0,4.0.1381; Tasks: installmysqlUntuk contoh penggunaan fungsi GetMySQLDir seperti berikut :
function InitializeSetup(): Boolean; var installDir : string; begin installDir := GetMySQLDir; // contoh pemanggilan fungsi GetMySQLDir MsgBox(installDir, mbInformation, MB_OK); Result := False; end;Untuk membuat DSN bisa memanfaatkan file myodbc-installer.exe, cara penggunaan sudah ada yg nanya diatas (jawaban komentar #1)
Selamat mencoba
Thanks berat bung Admin……..ini baru kena kepermasalahan ane……maklum baru belajar jalan, kalau gak dibimbing ntar jatuh ………
Oke om mudah2xan udah bisa jalan sendiri
Om, kalau pas installasi ingin menambahkan alamat server (MySql di pc lain), user(root) dan passwrd db, bisa gak Om. Jadi nantinya pembuatan ODCB berdasarkan data inputan tersebut…
terima kasih
Menambahkan input pada saat instalasi sudah saya bahas disini om.
bos, kalo compilenya pake pdw gimana, ya? database mysql kan ada difolder lain : xampp/mysql/data/cobadb
Klo untuk PDW memang agak susah om, karena keterbatasan dari fitur PDWnya sendiri.
Sebelumnya salam kenal Pak Admin,
gini Pak Admin saya udah coba memahami sript inno d atas ada beberapa baris yg udh saya pahami tp masih lebih banyak jg baris yg belum saya mengerti, Pak Admin saya gak ngerti mulai bagian ini :
[Languages]
Name: ina; MessagesFile: compiler:Indonesia.isl
Name: en; MessagesFile: compiler:Default.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: installmysql; Description: “Install MySQL”; GroupDescription: “Proses tambahan:”; Flags: checkedonce
[Files]
;Visual Basic Runtime
Source: dll&ocx\VB6STKIT.DLL; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\COMCAT.DLL; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\stdole2.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
Source: dll&ocx\asycfilt.dll; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\olepro32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\oleaut32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\msvbvm60.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
;daftar file MySQL
Source: mysql-5.1.36-win32\bin\*; DestDir: {app}\mysql\bin; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\Docs\*; DestDir: {app}\mysql\Docs; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\lib\*; DestDir: {app}\mysql\lib; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\share\*; DestDir: {app}\mysql\share; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\data\*; DestDir: {app}\mysql\data; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: mysql-5.1.36-win32\*; DestDir: {app}\mysql; Flags: ignoreversion; Tasks: installmysql
;daftar file MySQL ODBC 5.1
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.dll”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.lib”; DestDir: {sys}; Flags: onlyifdoesntexist
Source: “C:\Program Files\MySQL\Connector ODBC 5.1\myodbc-installer.exe”; DestDir: {sys}; Flags: onlyifdoesntexist
;My Application Runtime
Source: main\Albasi.exe.manifest; DestDir: {app}; Flags: ignoreversion
Source: main\Albasi.exe; DestDir: {app}; Flags: ignoreversion
Source: main\albasi.sql; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: main\exec.cmd; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: dll&ocx\MSMASK32.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cTreeOpt6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\Comdlg32.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalDTab6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCT2.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MyTextBox.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\LVbuttons.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalExpBar6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCTL.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalIml6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cPopMenu6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cNewMenu6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\scrrun.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalMDITabs6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\SSubTmr6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\msado21.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
karena saya meke vb.net 2008 saya jd bingung file sumber mana saja yg harus saya masukkan n gimana cara nulis scriptnya yg benar, mohon bantuannya Pad Admin ? , sekalian mau tanya exec.cmd itu apa n bagaimana ?
Coba ke link berikut aja om penjelasanny lebih rinci :
1. jrsoftware
2. ebook inno setup
ok, makasih Pak Admin
Sama2x om
Mas admin untk paket instalasi foldernya mas ad isinya folder dll&ocx isinya ap dan dari mana ngmbilnya, trus folder main isinya ap dan mysql-5.1.36-win32 apkh folder database mysql setup nya ,gimana jika saya make yg mysql 1.3 apkh sama.. trmakash
Folder dll&ocx isinya adalah semua file pendukung aplikasi misal file2x *.dll, *.ocx, *.tlb.
Untuk mendapatkannya bisa dengan memanfaatkan tool Package & Deployment Wizard
Untuk folder main biasanya sy isi file exe program, file manifest untuk memanfaatkan style xp
Klo folder mysql-5.1.36-win32 itu file sumber mysqlnya, kan distribusi mysqlnya ada 2 :
1. format binary biasanya dalam bentuk file setup
2. format archive biasanya dalam bentuk winzip
Klo format binarykan kita sudah jelaskan enggak ngapa2xin terima bersih hasil instalasinya sedangkan dg format achive kita tentuin sendiri pada saat instalasi ngapain aja.
Makanya postingan sy diatas dicoba dulu, biar ada gambaran
Pak Admin saya udah coba tutorial yg ada d ebook inno setup yg kemarin d kasih sm Pak Admin udh saya ikuti langkah2 nya dengan seksama program saya udh berhsl d packing jg udh bisa d install d lepi saya dg baik, tp selalu saja ada yg aneh sy udh smpt baca postingan ada sebelumnya ttg mslh yg mirip kaya gini maaf jika saya tanyakan lg jujur saya memang belum sepenuhnya mudeng, kasusnya adalah program saya gak bisa d install d lepi yg lain udah saya coba d 3 lepi hasilnya nihil secara garis besar pesan yg muncul adl memberitahu bahwa shortcut / *.exe nya gak bisa jalan kira2 kenapa y apanya yg msh kurang betul, oia satu lagi kayaknya perntanyaan ini jg prnh saya baca d postingan lain tp saya jg masih belum mudeng klo MySql nya gak jalan program saya gak bisa jalan jg biar program saya bisa jalan d lepi lain tanpa harus repot2 nginstal MySql dulu gimana y caranya yg benar Pak Admin, mohon petunjuk maaf jika saya menanyakan hal yg sepertinya pernah d tanyakan, saya memang agak lambat klo mikir jd mohon maaf jk ketidak mudengan saya nambah panjang post comment nya Pak Admin, mohon bantuannya Pak ?
Untuk mysql tergantung kasusnya om, misalkan program om hanya diinstall di satu komputer otomatis MySqlnya juga harus diinstall, tapi klo dinstall untuk beberapa komputer MySql cukup diinstall di 1 komputer yg akan dijadikan server
program q cuma buat 1 komuter
Ya udah berarti mysqlnya juga harus diinstall
maaf ada yg salah sedikit dr pertanyaan saya, mksdnya program saya udah bisa d install d lepi lain tp shortcut / *.exe nya gak bisa d jalankan ?
Nah klo ini sy harus ngeliat skripnya dulu, coba om posting kesini skrip innonya cukup section Files yg memanggil file exenya dan section Icons.
[Files]
Source: “C:\Documents and Settings\iradenmas_i\My Documents\Visual Studio 2008\Projects\dbpusban1\dbpusban1\bin\Debug\dbpusban1.exe”; DestDir: “{app}”; Flags: ignoreversion
Source: “C:\Documents and Settings\iradenmas_i\My Documents\Visual Studio 2008\Projects\dbpusban1\dbpusban1\*”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs
Source: “C:\Documents and Settings\iradenmas_i\My Documents\Visual Studio 2008\gbr1\*”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs
Source: “C:\Documents and Settings\iradenmas_i\My Documents\Visual Studio 2008\Projects\dbpusban1\dbpusban1\bin\Debug\*”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don’t use “Flags: ignoreversion” on any shared system files
[Icons]
Name: “{group}\{#MyAppName}”; Filename: “{app}\{#MyAppExeName}”
Name: “{group}\{cm:UninstallProgram,{#MyAppName}}”; Filename: “{uninstallexe}”
Name: “{commondesktop}\{#MyAppName}”; Filename: “{app}\{#MyAppExeName}”; Tasks: desktopicon
Sekalian om deklarasi konstanta MyAppName dan MyAppExeName om
yg d mksd ini kn Pak
#define MyAppName “dbpus”
#define MyAppExeName “dbpusban1.exe”
Kayaxnya udah benar om, atw coba lokas folder yg ada disetting iconya sudah sama belum dg lokasi folder instalasi
kayaknya udh Pak, y entar tak teliti lg, mksh Pak Admin
Oke om sy tunggu kabarnya
Ok makash mas admin, saya akan coba dulu
Maaf mas nany lagi nich, saya coba perintah mysqldump knpa ndak brhsil ya berikut perintah yang saya ketikan “C:\apache\mysql\bin\mysqldump -u root -p aq1010 -routines dbbatam > c:\dbbatam.sql”. saya menggunakan mysql 1.3 nama instalernya phptriad. satu lagi mass untuk paket non instalnya saya winzip sendiri instaler phptriad nya it bisa jadi pket mysql non instal seperti yang mas bilang diatas ya, dan bagaimana nama folder di paket instalasi untk folder databse mysql apkh nama foldernya harus disamakan dengan nama pket non instalnya, seperti folder mas diatas adlh “mysql-5.1.36-win32″. terimakash banyak sebelumnya mass
Klo undump itu menggukan tanda < lebih kecil om :
Untuk "mysql-5.1.36-win32" itukan hanya nama folder om jadi terserah, berarti :
diganti menjadi :
yg lain tinggal nyesuain.
Ok mass terimakash atas penjelasnya, cuma syntax it saya copy dari contoh yang mass admin kash diatas “kemudian ketikkan perintah: mysqldump -unama_user -ppassword_user –routines nama_database > c:\nama_database.sql”. pass saya coba tapi hasilnya pertama eror trus berhasil cuma filenya 0 kb mass. maaf mass nany ny kebanyakan nich tapi saya haus sekali akan ilmu inie mass kebetulan ketemu orng kaya mass yang ikhlas membantu kesempatan baik bagi saya untk menimba ilmunya.
o y satu lagi nich mass admin, sebenarnya lebh dari satu sichh, hehe :
Source: {sys}\msvcr71.dll; DestDir: {sys}; Flags: onlyifdoesntexist
Source: {sys}\myodbc3i.exe; DestDir: {sys}; Flags: onlyifdoesntexist
Source: {sys}\myodbc3.dll; DestDir: {sys}; Flags: onlyifdoesntexist
Source: {sys}\myodbc3.lib; DestDir: {sys}; Flags: onlyifdoesntexist
Source: {sys}\myodbc3S.dll; DestDir: {sys}; Flags: onlyifdoesntexist
Source: {sys}\myodbc3S.lib; DestDir: {sys}; Flags: onlyifdoesntexist
kode diatas saya copy pnya mas admin untk odbc 3.51 tapi kenapa pesannya “Source File Doesnt Exist” Ya mass. trms
Berarti MySQL ODBC Connector belum diinstall om.
Hari gini kok masih pake yg 3.51 om kok enggak pake yg versi 5.1
pak admin.minta tolong…saya pny code vb.net berikut
Private Sub btn_backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_backup.Click
Try
Dim lokasi As String = Chr(34) & txt_backup.Text & Chr(34)
Process.Start(“C:\xampp\mysql\bin\mysqldump.exe”, ” –user=root –password= –database dbinv > -r ” & lokasi)
Catch ex As Exception
MsgBox(“Tidak dapat melakukan proses backup” _
& vbCrLf & Err.Description)
Finally
loads()
End Try
End Sub
‘———————proses backup berhasil————–’
Private Sub btn_restore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_restore.Click
Try
Dim lokasi As String = Chr(34) & txt_restore.Text & Chr(34)
Process.Start(“C:\xampp\mysql\bin\mysql.exe”, ” –user=root –password= –database dbinv > -w ” & lokasi)
Catch ex As Exception
MsgBox(“Tidak dapat melakukan proses restore” _
& vbCrLf & Err.Description)
Finally
loads()
End Try
End Sub
‘—————–proses restore g bisa—————-’
ga da pesan error…cuma muncul konsol command(spt melakukan proses) 1 detik lgsg hilang
error apanya y…terimakasih.
ooppss…ralat bagian proses restore
Process.Start(“C:\xampp\mysql\bin\mysql.exe”, ” –user=root –password= –database dbinv < ” & lokasi)
(–.)a
Coba buat dulu database test, misal dg nama dbtest trus untuk revisi kodenya seperti ini :
revisi kodenya gmna Pak..gak keliatan.??
(O,O)
Ini om :
'karna password om kosong jadi parameter passwordnya diabaikan Process.Start("C:\xampp\mysql\bin\mysql.exe", " –user=root –database dbinv < " & lokasi)pak admin, kok pada saat compile ada pesan {unrecognized parametername “DestDir”} <—itu kenapa pak, saya bingung
Coba copas kesini baris skrip yg error om
sangat bermanfaat sekali …
trimakasih sare nya ..
Oke om tq juga udah mampir
Kakak.mau tanya.q buat prog pake vb.net 2008 dan xampp 1.7.3
sudah dipaketkan pake inno. error bagian reportnya.
muncul pesan error:
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.IO.FileNotFoundException: Could not load file or assembly ‘CrystalDecisions.CrystalReports.Engine, Version=10.5.3700.0, Culture=neutral, PublicKeyToken=692fbea5521e1304′ or one of its dependencies. The system cannot find the file specified.
File name: ‘CrystalDecisions.CrystalReports.Engine, Version=10.5.3700.0, Culture=neutral, PublicKeyToken=692fbea5521e1304′
WRN: Assembly binding logging is turned OFF.
To enable assembly bind failure logging, set the registry value [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) to 1.
Note: There is some performance penalty associated with assembly bind failure logging.
To turn this feature off, remove the registry value [HKLM\Software\Microsoft\Fusion!EnableLog].
Kayaxnya kurang library CrystallReportnya om
mas bisa kasih tutorial bikin setup inno untuk database acces g??sekalian kan klo pake inno file .dll am file .tlb gak keregister tuh, gmn caranya biar otomatis register pake inno…
mohon pencerahan
saya biasa manual register pake notepad abis saya bener2 baru belajar VB bikin file setup pake P&D bawaan vb masih gak mudeng klo soal register2 file sering error T_T
Klo file access diperlakukan seperti file biasa om :
Source: "LOKASI_FILE_ACCESS\FILE_ACCESS.MDB"; DestDir: {app}\Db; Flags: onlyifdoesntexistUntuk meregistrasikan file .dll dan .tlb sama seperti contoh artikel diatas
Source: NAMA_FILE_DLL.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist Source: NAMA_FILE_TLB.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelibnanti file ocx,dll,tlb lgsung terkopi dan teregister tuh pak??saya coba dlu y makasih byk tutornya…
Iya om makanya dicoba dulu
mas ane dah baca and dah coba sourcenya, nah pertanyaan ane gimana caranya pada saat uninstall aplikasi langsung membackup databasenya…. dan diletakkan dalam folder tertentu…
Coba ditambahkan disection UninstallRun om.
[UninstallRun] {app}\mysql\bin\mysqldump -uUSER_NAME -pUSER_PASSWORD --routines NAMA_DATABASE > C:\NAMA_FILE_BACKUP.SQLUntuk lokasi folder “mysql\bin” menyesuaikan.
panjang bener ini artikel….emang maknyus sih adminnya

makasi ya om admin…
maaf kalo ane jadi silent rider disini,,,abis enak sih baca2 n langsung di copas, coba dirumah, modif lagi
Enggak pa2x om memang seharusnya gitu, yg namanya belajar enggak jauh2x dari melihat, nyontek dan mencoba
salam kenal mas…
saya mau nanya gimana cara bikin folder didalam inno setup,,
saya pengen database yg saya bikin tersimpan nya di di drive d ex: D:\ my program
jadi saat instal aplikasi bikin folder nya otomatis dan database nya di copy kan ke d:\my program
saya mengunakan db acces
mohon pencerahan nya mas
trims
Tinggal set aja om direktori target di secton File
ok mas tak coba dulu..
makasih mas
oke
sama2x om
ok mas udah bisa tq
Sippp om
salam kenal kak, saya mohon bantuannya, program saya kan saya buat dengan database acces dan Crystal report, buwat paket instalasinya pakek innosetup gimana ya kak..? dah berkali-kali saya coba gagal terus. maklum kak saya blm bisa buat aplikasi pakek MySQL jadi baru pakek acces, saya mohon dengan sangat bantuannya kak…!
Cara yg paling gampang seperti ini aja om
1. Jalankan dulu tools Package & Deployment Wizard, setelah selesai cek folder penyimpanan hasil proses “Package & Deployment Wizard” didalamnya biasanya sudah ada folder Support.
Folder support berisi semua file yg harus didistribusikan pada saat instalasi, salah satu file penting yg ada difolder ini adalah file Setup.lst, file ini berisi informasi kemana saja file2x tersebut harus dicopykan selain itu file setup.lst akan kita butuhkan pada langkah ke dua
2. Selanjutnya download program ISTool, dari aplikasi ini kemudian buka file setup.lst setelah itu skrip inno setup otomatis digenerate berdasarkan informasi yg ada di file setup.lst
3. Terakhir tinggal lengkapi skrip inno yg dihasilkan ISTool dg mempelajari skrip inno diatas.
Selamat mencoba
terimakasih kak.. saya akan coba dulu..!
mas kalau pakek SQL server 2000 ada gak caranya..?
Yg jelas bisa om, cuma sy belum sempat coba
sip infonya.. soalnya lagi nyari buat mysql…
Oke om, sip juga udah mampir kesini
Bos, kalo mo daftar odbc pake ipaddres lewat form input gimana? jadi ipaddressnya ga perlu dihardcode. biar user nentuin sendiri ipnya.
Terima kasih banyak smua infonya.
Coba kesini om untuk menambahkan input pada saat instalasi.
udah bos. tapi itu kan buwat koneksi database client ke server. saya perlu setting odbc lewat form input di inno buwt koneksi crystal report. biar crystal report bisa akses database di server. yg saya tahu cuma lewat settingan odbc. saya dah coba yg ini:
Filename: “{sys}\myodbc-installer.exe”; Parameters: “-s -a -c1 -n “”abis”" -t
“”DRIVER=MySQL ODBC 5.1 Driver;SERVER=192.168.1.5;DATABASE=mydata;UID=123;PWD=”"”; StatusMsg: “Tunggu sedang membuat DSN-mydata”; Flags: runhidden; Tasks:Client
nah. gimana caranya supaya SERVER=192.168.1.5 bisa diambil dari hasil form input. karena klo IP server user beda berati harus setting odbc.
terima kasih banyak bos.
Coba seperti ini om, tapi belum sy coba
[Run] ;ip address server didapat dg memanggil fungsi GetIPServer Filename: "{sys}\myodbc-installer.exe"; Parameters: "-s -a -c1 -n ""abis"" -t ""DRIVER=MySQL ODBC 5.1 Driver;SERVER={code:GetIPServer};DATABASE=mydata;UID=123;PWD="""; StatusMsg: "Tunggu sedang membuat DSN-mydata"; Flags: runhidden; Tasks:Client [Code] var INIInputPage: TInputQueryWizardPage; procedure InitializeWizard(); begin // Input setting INIInputPage := CreateInputQueryPage(wpInfoAfter, 'Konfigurasi', 'Konfigurasi Program', 'Isikan konfigurasi program ke dalam form di bawah ini.'); INIInputPage.Add('IP Address Server', False); INIInputPage.Values[0] := GetPreviousData('IPServer', ''); end; procedure RegisterPreviousData(PreviousDataKey: Integer); begin SetPreviousData(PreviousDataKey, 'IPServer', INIInputPage.Values[0]); end; function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; if CurPageID = INIInputPage.ID then begin if (Trim(INIInputPage.Values[0]) = '') then begin MsgBox('Anda harus mengisikan data secara lengkap!', mbError, MB_OK); Result := False; end else begin // simpan ip yg diinputkan di registry // biar bisa dibaca oleh fungsi GetIPServer RegWriteStringValue(HKEY_CURRENT_USER, 'Software\MyApp\ODBC', 'IPServer', INIInputPage.Values[0]); end; end; end; function GetIPServer(Param : string): string; var IPServer : string; begin RegQueryStringValue(HKEY_CURRENT_USER, 'Software\MyApp\ODBC', 'IPServer', IPServer); Result := IPServer; end;dicoba dulu, bos.
Oke
maaf gan mo tanya lagi…
ane dah coba scriptnya cuma ane bingung nih ane kan pake vb2010 and untuk xp sp2 butuh pendukung seperti WIC, MSI31 and NETFRAMEWORK4 nah gimana cara mengeksekusi aplikasi tersebut dan kalo instal MSI31.exe kan perlu restart gimana caranya biar gak restart tapi langsung masuk ke instal NETFRAMEWORK4 nya ane dah coba pake yang seperti ini :
[Files]
Source: D:\Project\Aplication\RDSKMHT\RDSKMHT\stp\Inno\wic_x86_enu.exe; DestDir: “{tmp}”
Source: D:\Project\Aplication\RDSKMHT\RDSKMHT\stp\Inno\WindowsInstaller-KB893803-v2-x86.exe; DestDir: “{tmp}”
Source: D:\Project\Aplication\RDSKMHT\RDSKMHT\stp\Inno\dotNetFx40_Full_x86_x64.exe; DestDir: “{tmp}”
[Run]
Filename: “exeexec.exe”; Parameters: “/i “”{tmp}\wic_x86_enu.exe”"”
Filename: “exeexec.exe”; Parameters: “/i “”{tmp}\WindowsInstaller-KB893803-v2-x86.exe”"”
Filename: “exeexec.exe”; Parameters: “/i “”{tmp}\dotNetFx40_Full_x86_x64.exe”"”
mohon petunjuknya gan……
Coba cek jawaban sy yg nomor #73 om
mas admin saya mau tanya ,,
waktu saya disitribusikan aplikasi ke klien keluar pesan error seperti ini mas “run time error 430 Class does not support automation or does not support expected interface.”
Ini kesalahannya dimana ya mas,,
mohon bantuannya
Sy pernah ngalamin kasus seperti ini ketika sy mengcompile aplikasi menggunakan OS Win 7+SP 1 dan target kliennya Win XP klo memang kasusnya sama, solusi yg bisa om coba :
)
1. Pake library ADO versi yg lebih baru misal 2.8
2. Uninstall SP 1 Win 7nya (ini solusi yg sy pilih
Jangan lupa compile ulang projectnya
mas ado link untuk dapat kan ado terbaru ngak??? hehehehe
klu w7 SP lainnya ngak ada masalah kan mas..
klu sekarang mas make W7 yang mana??
Sy sendiri belum pernah update ADO, untuk ADO versi 2.8 bukannya udah include waktu instalasi ?
Klo sy pake Win 7 Pro
THANK’S buanget neh buat admin ….sangat membantu, memang agak ribet tapi hasilnya memuaskan …..!
Mau nanya neh tuk mas admin ya, gmna driver crstal report 8.5 ya bisa satu paket dalam instalan biar gak instal-instal cr 85 ya lagi …..?
Coba ikuti langkah-langkah komentar #319 diatas om
Ya mas admin, thak’s buanget …..berhasil akhirnya …..semoga mas admin makin berkah ilmu ya …thk’s buanget ya mas admin …..!
setup nya uda dibikin, trus pas di install keluar error seperti ini http://i41.tinypic.com/1eo22h.jpg
kira2 salah disebelah mananya ya?
Sama kyk punya saya tuh gan, ikutin langkah #319 aja ….berhasil kok, sya udh coba
Mas admin, report program sya kan menggunakan chart, waktu programnya di setup chart ya gak keluar, kira-kira apanya mas admin …?
Lah si om, sedikit2x nyalahin package instalasinya
Coba dicek lagi chartnya itu menggunakan komponen apa? Trus udah ikut terdistribusikan enggak waktu instalasi.
Y mas komponen ya gak ikut, mangkanya dia gak tampil, sory ya mas soalnya masih awal-awal belajar program …..
Mas ada contoh sorcode backup dan restore database mysql gak ..?
Coba kesini om.
kalau pake crystal 9 gmna caranya??? kirim ke email ya yannaelshofa@gmail.com
Kayaxnya udah banyak deh yg nanya tentang menambahkan library crystall report, coba dicek lagi komentar2x diatas
Salam kenal semuanya, mau gabung nie mas.
mas sya punya masalah dengan pembuatan setup VB.NET 2010 dan SQLServer 2008. sya menggunakan inno setup. yang jadi masalah setup saya gk bisa di pake di kmputer lain, kendalanya masalah koneksi or databasenya. Mas saya mhon bngit minta penjelasannya step by step langkah-langkahnya soalnya saya udah mentok nie. Low ada tutorialnya jg blh. mhn bgt mas pencerahannya… bgt bgt nie
maklum mas sya msh bljr. trmksh sblmnya.
Emg om nulis string koneksinya seperti apa ?
gini mas, nie di modul :
Public Sub Koneksi()
str = “Data Source=TONI-PC;Initial Catalog=dbpoto;Integrated Security=True”
Conn = New SqlConnection(str)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
Klo string koneksi yg om pake, hanya berlaku untuk komputer lokal, klo mau diakses dari komputer lain, pake koneksi yg ini om (ada ketambahan user name dan password).
Trus klo sudah bisa konek untuk nilai Data Source sebaiknya disimpan di file konfigurasi (app.config), jadi klo servernya diganti enggak harus compile ulang cukup mengganti nilai yg ada di file app.confignya.
Untuk cara membuat, menulis dan membaca file app.config, silahkan digoogling soalnya sudah banyak pembahasan tentang masalah ini.
salam Kenal om,.,.,
saya baru belajar bikin sistem informasi memakai vb 6 dan crystal report,,,
saya mau menayakan, bagai mana aplikasi yang sudah siap itu bisa di pasang di beberapa komputer tanpa ada vb 6 dan crystal report di komputer tersebut,.,.??
Ctt: saya memakai database mysql…
Mohon bantuan nya om,.,.
makasih sebelum nya om,.,..,
D’oh pertanyaan yg sama terulang kembali
Males om ya baca2x komentar2x diatas, padahal klo mau meluangkan waktu akan ada banyak informasi tambahan yg om bisa dapatkan, coba dicek om komentar #319 diatas
maaf om nanya lagi,.,.
cara Melakukan Package & Deployment Wizard yang benar gemana ya om…..
sudah saya Coba, tapi saya mendapatkan erorr sewaktu pembuatan nama scrip nya,.,.
trus,, saya tekan aja ok.. trus muncul kotak dialog yang tulisan nya writing setup ist file…
tapi kok prosesnya lama ya om,.,.,??
mohon penjelasan nya om,.,.
makasih om,.,.
Project om coba di compile dulu (menu File -> Make nama project.exe)
Klo berhasil seharusnya tidak ada masalah pada saat menjalankan Package & Deployment Wizard
Om Klo report dg crystal report 8.5 gimana ???
Sorry om kelawat baca nya buat cr 8.5
Oke om berarti case closed ya
jgn di close dulu om , kan masih mau belajar … ntar klo ada yg kurang ngeh bisa ditanya lagi kan *smile*
Oke deh om
Mas..
Klo untuk connector .Net gmana cara menyertakannya dalam file setup.exe kita nantinya..
Kan itu yg pake ODBC..
Tpi aplikasi saya pake .Net Connector
Gmana caranya supaya langsung terinstal ketika setup.exe berjalan seperti ODBC itu.. ??
Makasih..
Tinggal distribusikan aja om file MySql.Data.dll, satu folder dg file exenya
Tutorial diatas untuk membuat MySql yang tidak dipassword..
Trus gimana caranya, supaya MySql-nya jadi ber-password..??
Passwordnya kita yang tentukan, bukan si user…
Mohon Bantuannya Mas..
Kan sudah ada om sample skripnya diatas untuk mengganti password default root, coba dicek lagi
Gak perlu di letakkan di System32 ya Mas..??
Enggak perlu om, langsung ditempatkan aja di satu folder dg aplikasi aja dan tidak perlu diregister
saat jalanin file exec.cmd kok error ya? gimana tuh solusinya
Enggak tau tuh om, kan error itu ada banyak, yg mana satu ya ???
Informasinya bermanfaat bgt.
Tapi mas, untuk penggunaan CR 8.5 component dll yg harus di includekan apa saja ya?
Klo informasinya bermanfaat bacanya itu harus lengkap om, terutama dibagian komentar karna sudah banyak yg menanyakan komponen CR yg harus diincludekan, biar enggak double pertanyaan.
Kalau mau bikin setup agar user bisa langsung setting ip ODBC. caranya gimana mas?
Udah ada yg nanya tuh om, coba cek komentar #1 & 2
ogh iya sori” kurang teliti
oh iya nanya lagi, klo mau bikin shourtcard di start gimana ya?
jadi di start itu ada shourtcard aplikasi dan manual
Udah ada juga om di sample skrip inno setup diatas coba cek di section Icon, jadi klo bisa nanyanya itu setelah mencoba biar enggak nanya sesuatu yg udah ada jawabannya.
Gan, mohon bantuan..
aku pakai xampp dan mysql connector 3.51.,
aku sudah coba buat, tapi error mulu,
peringatannya “Data source name not found and no default driver specification.
itu knapa ya.,
tlong dibantu ya., thanks
D’oh kayaxny obrolan diatas om itu udah lengkap banget deh, sy aja sampe bingung mau jawab apa lagi jika ada yg bertanya tentang masalah ini.
kalo pake sqllite gimana om?
Tergantung om, ngakses sqlite pake apa
Mas, ketika di saya buka di project VB, lancar2 aja,
tapi ketika sudah saya exe, dan saya instal di komputer lain, muncul error
“request returned with SQL_ERROR”
pesan ini muncul ketika saya coba lihat di DSN, saya klik database muncul error itu, dan list pada database kosong, tidak ada isi.,
mohon pencerahan mas.,
thanx
Coba mana contoh string koneksi yang om pake ?
PA, MAU TANYA INI MYSQL NYA BELOM AUTOMATIC NYALA KETIKA KOMPUTER JALAN PERTAMA KALI YAH? JDNYA KALAU SELESAI DIINTALL MENYALA TP SETELAH KOMPUTER RESTART MYSQL NYA BELUM DIJALANKAN . MOHON PENCERAHAN NYA GIMANA SUPAYA MYSQL NYA JALAN SAAT PERTAMA MENJALANKAN KOMPUTER.TERIMA KASIH