Vb6.0+crystal Report+mysql

[nagakeciks 0]

A'kum

Kat sini,aku repost balik posting lama aku pasal VB+Crystal Report+mySQL. Gambar aku dah upload balik. Sorry,nih cume penerangan secara basic saje...so,good luck

***Sebelum korang polow langkah2 nih,pastikan, korang dah install VB6.0,Crystal Report,mySQL dan juga myODBC..

1.Buka Control Panel -> Administrative Tools -> ODBC -> Tuko Point Database utk myodbc3-test ke database ko...

2.Buka Crystal Report , Tuko Database Connection , Double Click pada ODBC(RDO)

3.Pilih myodbc3-test

4.Masukkan Maklumat Connection seperti user id n password

5.Pada Window Database Expert tadi, click pada Add Command..Akan kluo window seperti dibawah

...Bersambung

...Sambungan

6.Masukkan query ko...Click OK.

7.Skrang, ko dah pun connect ke mySQL, so, bleh mula design report ko..

8. Opss..Report ko dah siap, kecuali, ko x nak connect pakai ODBC...So, ko leh connect direct dari vb ke mySQL...

Database Connection untuk mySQL adalah seperti berikut

"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=myDB; UID=root; PWD=; OPTION=3"

Nih, contoh koding dalam CRviewer aku ....Baca dulu

'Add Component Crystal ActiveX Report Viewer Library 10.0 (Bergantung kepada version Crystal Report)
'Add reference Crystal Reports ActiveX Designer Run Time Library 10.0 (Bergantung kepada version Crystal Report)



Dim myConn As New ADODB.Connection
Dim myTable As New ADODB.Recordset
Dim strSQL As String
Dim Crystal As CRAXDRT.Application
Dim myReport As CRAXDRT.Report
Dim strReport As String
Dim strConn As String



Private Sub Form_Load()
    strReport = "Report.rpt"
    Call OpenReport
End Sub
Private Sub Form_Resize()
   CRViewer.Top = 0
   CRViewer.Left = 0
   CRViewer.Height = ScaleHeight
   CRViewer.Width = ScaleWidth
End Sub

Private Sub OpenReport()
    Dim ParamStart As Integer
    Set Crystal = New CRAXDRT.Application
    strConn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=myDB; UID=root; PWD=; OPTION=3"
    myConn.Open (strConn)

    If (strReport <> "") Or (Right(strReport, 4) <> ".rpt") Then
        Set myReport = Crystal.OpenReport(App.Path & "\" & strReport)
        myReport.EnableParameterPrompting = False
        strSQL = "Select * From tblUser"
        myTable.Open strSQL, myConn, adOpenDynamic, adLockOptimistic
        myReport.DiscardSavedData
        myReport.Database.SetDataSource myTable
        CRViewer.ReportSource = myReport
        CRViewer.ViewReport
    End If
    Set Crystal = Nothing
    Set myReport = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
    myTable.Close
    Set myTable = Nothing
    myConn.Close
    Set myConn = Nothing
End Sub

AAaa..panjang sangat..x larat aku nak terangkan ..aperpun, hasil final adalah seperti ini

Edited March 22, 2006 by nagakeciks

[Rads78 0]

Giler weh.... penerang step by step till finished... nih kalo ada lagi orang tanya camner ndak connect crystal to MySQL to VB.... tenet jerk pala diaorang sengsorang

[MrAL 0]

Naga.. ko pakai Crystal Report version berapa? Kalau Win XP version aper paling suitable?. TQ

[hotfloppy 19]

pakai je latest version.. kalo tak silap, dah 10 dah..

[nagakeciks 0]

pakai je latest version.. kalo tak silap, dah 10 dah..

paling latest versi 11

P/S : Pakai je versi latest,pastu tuko balik lib,component dier

[hotfloppy 19]

XI tu 11 eh ?

ahahaha..

aku tak pandai baca nombor roman

[Jay Houlier 0]

Mintak maaf pd sume sbb nak tanye soklan paling basic ni....

1-Apakah sebenarnya VB ni

2-Apakah kegunaan dia

3-Bagaimana nak mempelajari VB ni tanpa tutor?

4-Tolong a bg bahan2 yg mudah saya faham agar dapat belajar VB ni.

Time kasih byk2...jasa korang tak terbalas....

XI tu 11 eh ?

ahahaha..

aku tak pandai baca nombor roman

[hotfloppy 19]

sebab soalan basic, aku nak try jawab secara basic gak ar..

1.

VB = Visual Basic - sebuah program berasaskan BASIC yang digunakan untuk membangunkan program, sistem, software.. ape2 yg berkenaan la.. dgn mudah dan pantas.

2.

dah jawab kot tadi..

3.

takleh belajar tanpa tutor.. kecuali kalo hang genius kaw2 ar..

(mungkin ade yg kata leh blaja dari internet.. tapi kan... sape yg letak bahan2 tu kat tenet ? orang gak kan ? kiranya ade orang ngaja gak ar )

4.

Senarai bahan:

i) Otak - kalo takde, gi carik kat mane2 kedai runcit.

ii) Komputer - ni bleh beli kat mane2 kedai komputer, PC Fair atau pon pinjam kawan nye. jgn curi.. dosa.

iii) Visual Basic - gi carik kat kedai perisian komputer a.k.a kedai cd komputer.. kalo dok kl, carik kat Lowyat la kot.

iv) Buku yang ngajar VB - gi carik kat kedai buku..

v) Internet - incase tanak beli buku, leh blaja dari tenet.. Planet Source Code <- aku slalu gi sini.

ade lagi ke ?

tah.. kalo ade sesape nak tambah, tambah ar..

p/s

kalo salah definisi VB tu, betolkan la eh..

aku jawab secara mudah je.. supaya keratong104 leh paham

[Jay Houlier 0]

Time kasih...tp agak kurang jelas cara penggunaan dia tu...contohnya VB ni kita buat software,tp nak pakai database ape? pastu nak view application yg kita buat tu camne...kalau mcm c++ tu boleh le kita pakai compiler dia..tp yg ni camne?

Harap dpt jelaskan...time kasih sekali lg...

sebab soalan basic, aku nak try jawab secara basic gak ar..

1.

VB = Visual Basic - sebuah program berasaskan BASIC yang digunakan untuk membangunkan program, sistem, software.. ape2 yg berkenaan la.. dgn mudah dan pantas.

2.

dah jawab kot tadi..

3.

takleh belajar tanpa tutor.. kecuali kalo hang genius kaw2 ar..

(mungkin ade yg kata leh blaja dari internet.. tapi kan... sape yg letak bahan2 tu kat tenet ? orang gak kan ? kiranya ade orang ngaja gak ar )

4.

Senarai bahan:

i) Otak - kalo takde, gi carik kat mane2 kedai runcit.

ii) Komputer - ni bleh beli kat mane2 kedai komputer, PC Fair atau pon pinjam kawan nye. jgn curi.. dosa.

iii) Visual Basic - gi carik kat kedai perisian komputer a.k.a kedai cd komputer.. kalo dok kl, carik kat Lowyat la kot.

iv) Buku yang ngajar VB - gi carik kat kedai buku..

v) Internet - incase tanak beli buku, leh blaja dari tenet.. Planet Source Code <- aku slalu gi sini.

ade lagi ke ?

tah.. kalo ade sesape nak tambah, tambah ar..

p/s

kalo salah definisi VB tu, betolkan la eh..

aku jawab secara mudah je.. supaya keratong104 leh paham

[hotfloppy 19]

database bleh guna ms access, mysql, mssql, oracle.. ape lagi..

kalo vc++ ade compiler, vb pon ade compiler gak (compiler ke intepreter ? aku pon tak pasti )

lebih kurang je..

cara penggunaan dia pon lebih kurang je ngan vc++, cuma coding je la lain.. hehehe ..

produk micro$oft suma lebih kurang je.. reti guna salah satu, yg lain dah tak susah nak blaja

better hang gi carik vb seketoi, boh lam pc, pastu hang godek sampai puas..

camtu baru la hang nampak skit ape kebenda nya vb ni..

EDIT:

hang tanak bukak topic baru ke ?

salah ni numpang kat topic orang lain..

Edited May 5, 2006 by hotfloppy

[interferens 0]

aku rasa keratong104 lum guna vc++ kot..may sebelum nie guna borland c++ je kot...

vb nie compiler dia bagi sekali(unless guna vb.net leh programming guna notepade dan compile guna msdos guna .net sdk yg free tu..tapi tu lain citer..dekat malaysia lanun banyak..cari la)

guna vb nie senang ajer..nak test just tekan segitiga sengat (alah simbol play tu) then jadik la program korang...kalau nak compile klik dekat file dan klik make .exe siap!!