Mysql-crystal Report

[w@We 0]

hello geng,

mintak bantuan untuk nak connect database MYSQL dengan crystal report 9 (CP9)

interface menggunakan vb6, ada masalah no link access dr CP9 untuk connect dengan mysql database

onegaishimas..

[nagakeciks 0]

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

[nagakeciks 0]

..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=risda; UID=root; PWD=; OPTION=3"

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

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=risda; 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

Good Luck..fuhhhh..kalo ada salah, sori ek...

[mohdfadly 24]

fullamak.. thanks thanks..

[nagakeciks 0]

eh..puteranetwork..muka ko cam muka member aku aa..arghhh..besok nak kene jumpe dier..demo..siut tul..tido lambat aku malam nih

[RockOi 0]

wah..best nagakeciks..detail penerangan yang ko bagi tuh..aku pun nak tau gaks..

[w@We 0]

wahai naga,

terima kasih banyak2..bagus amat penerangan ko

nanti aku akan take note all the details given

domou arigatou gozaimas..

[w@We 0]

mr naga,

dalam crystal report boleh kita tukar dari potrait ke lanscape form tak?

aku ade try ubah setting di page setup tapi macam lain je

yang keluar top margin , left margin dan lain2 margin

lg satu mcm mane tuan doctor letak gambar dalam msg post ni?

aku try print screen tapi nak paste tak leh

[nagakeciks 0]

mr w@We same-same, bolehhhhhh..aper x bolehnyer..klik kat File -> Printer Setup , pastu tuko je kat situ..jangan riso..mende nih cume jadik kat report yg ko nak je..

Letak gambo?..aku print screen, bawak dalam paint, pastu upload..camtuh jer ..

wah..best nagakeciks..detail penerangan yang ko bagi tuh..aku pun nak tau gaks..

Aaaa..aku pun bukannyer tau sangat..skit2 tuh bleh aa..

[jmz 0]

akum...nagakecik

tue ko gune odbc...

kalo nk link vb 6 ngan cr11 plak? aku gn adodc la pulak...

cane ek?

[tanpawajah82 0]

eh..puteranetwork..muka ko cam muka member aku aa..arghhh..besok nak kene jumpe dier..demo..siut tul..tido lambat aku malam nih

←

Hai nagakeciks....leh berkenalan? muka ko hensem le... mmg taste aku tuh... haha...

[nagakeciks 0]

akum...nagakecik

tue ko gune odbc...

kalo nk link vb 6 ngan cr11 plak? aku gn adodc la pulak...

cane ek?

←

W'salam

CR 11?..hehe, aku pun x try lagik..tapi logiknya, same je..add je component and reference dier.. CRViewer dan CRAXDRT (Crystal Reports ActiveX Designer Runtime Library 11)

Pasal ADODC tuh, aku kurang pasti..x penah try..tapi aku rasa,myb boleh

Okies..nih yg aku buat pakai ADODB

        myTableRPT.Open strSQL, myConnRPT, adOpenDynamic, adLockOptimistic
        myReport.DiscardSavedData
        myReport.Database.SetDataSource myTableRPT

myTableRPT tuh, recordset aku..pasal ADODC, aku xleh nak terangkan sangat, sbb aku memang x pakai ADODC..apepun, ko leh try n error..hasil dier, post aa kat sini..kongsi same2..

[nagakeciks 0]

Hai nagakeciks....leh berkenalan? muka ko hensem le... mmg taste aku tuh... haha...

←

aa..thanks..dah banyak orang cakap camtuh...

[nagakeciks 0]

akum...nagakecik

tue ko gune odbc...

kalo nk link vb 6 ngan cr11 plak? aku gn adodc la pulak...

cane ek?

←

Oppss..pembetulan..contoh diatas, tidak menggunakan ODBC..ko jangan keliru..itu aku nyatakan driver database MySQL...

[mohdfadly 24]

aa..thanks..dah banyak orang cakap camtuh...

←

hok aloh, ni thread zaman biler ni.. hahaha..

[nagakeciks 0]

hok aloh, ni thread zaman biler ni.. hahaha..

←

Aaaa.tuhler pasal..tetiba naik balik...BzZzzZZzZZzZzz...Mamai aku lepas makan air asam...

[tanpawajah82 0]

Aaaa.tuhler pasal..tetiba naik balik...BzZzzZZzZZzZzz...Mamai aku lepas makan air asam...

←

hehee...xder..nagakeciks mmg idola aku sejak dulu lagi... sbb bagi aku, nagakeciks nie seorg yg bersemangat tinggi.... dan aku harap sgt suatu hari nanti dia dapat kenal aku :-(

[mohdfadly 24]

dia tu tanpa wajah, toksah kenai ngan dia.. heheheh..

[mohdfadly 24]

lawa? umur baper?

[mohdfadly 24]

tua lagi aku tuu..

ape da topik pasal CR tapi citer pasal mende lain.

nanti ko kim salam je lah kat dier eh.. nanti aku pulak blanje ko pizza heart