New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

Membuat Koneksi ke MySql dengan Visual Foxpro



Langsung aja yach.......... ga perlu basa basi ntar malah basi jadinya..........
buka jendela program microsoft visual foxpro...
kemudian buat sebuah project dan dilanjutkan dengan membuat form, kalian dah pada taukan cara buat project n form, kalo belum search aja di blog ini dengan kata kunci dasar pemrograman visual foxpro, ada kok....he...he...
buat sebuah form dengan komponennya seperti gambar berikut :

atur propertis masing-masing komponen

Object

Properti

Nilai

Form1

Caption

Autocenter

ShowWindow

WindowsType

Form Koneksi

.T.-True

1 - In Top-Level Form

1 - Modal

Label1

Caption

BackStyle

Database Name

0 - Transparent

Label2

Caption

BackStyle

User Name

0 - Transparent

Label3

Caption

BackStyle

Password

0 - Transparent

Text1

Name

Maxlength

Special Effect

Border Style

Vdata

40

1-Plain

0-None

Text2

Name

Maxlength

Special Effect

Border Style

Username

40

1-Plain

0-None

Text3

Name

Maxlength

Special Effect

Border Style

Passwd

40

1-Plain

0-None

Command1

Caption

Name

connect

Command1

Command2

Caption

Name

batal

Command2


buatlah Method dengan nama nilai_awal
buatlah property dengan nama baru, koneksi dan namakursor
Object : Form1 Procedure : nilai_awal
THISFORM.vdata.VALUE=" "
THISFORM.username.VALUE=" "
THISFORM.passwd.VALUE=" "
THISFORM.REFRESH
thisform.vdata.SetFocus

Object : Form1 Procedure : Activate
_screen.visible=.f.


Object : vdata Procedure : valid
IF EMPTY( THISFORM.vdata.VALUE )
RETURN 0
ENDIF

Object : username Procedure : valid
IF EMPTY( THISFORM.vdata.VALUE )
RETURN 0
ENDIF

Object : passwd Procedure : valid
IF EMPTY( THISFORM.vdata.VALUE )
RETURN 0
ENDIF

Object : command1 Procedure : click
vdbase = ALLTRIM(thisform.vdata.Value)
vuser = ALLTRIM(thisform.username.Value)
vpass = ALLTRIM(thisform.passwd.Value)
vport = "3306"
mstr = [DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Port=&vport;Database=&vdbase;User=&vuser;Password=&vpass;]

THISFORM.Koneksi = SQLSTRINGCONNECT( mstr )

IF THISFORM.Koneksi <= 0 =MESSAGEBOX("Koneksi Ke Server Database MySQL Gagal", 0+16, "Konfirmasi") ELSE =MESSAGEBOX("Koneksi Ke Server Database MySQL Berhasil", 0+64, "Konfirmasi") ENDIF THISFORM.namakursor = "QT"+SUBSTR(SYS(2015), 5) thisform.nilai_awal() koneksi = thisform.koneksi namakursor=thisform.namakursor thisform.Release

Object : command2 Procedure : click
thisform.Release



Membuat Koneksi ke MySql dengan Visual FoxproSocialTwist Tell-a-Friend

3 komentar:

Negeri Hijau mengatakan...

wah, keren...
akan saya coba

NDRUWIJAYA mengatakan...

wess, mantaf

NDRUWIJAYA mengatakan...

pallaka..........

Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property