  |
Vb6 ....., error typemismatch |
  Jun 23 2008, 11:22 AM
Kiriman
#1
|
|
|
Ahli  Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897  |
salam.....
nak tanye... pe masalah erk kalo kuo error typemismatch..... bila debugg error nye dekat statement :- rs_Jdl21(strField) = strCount If rs_kira!bilrec = 0 Then rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update Else rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT 'rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update End If sape2 leh tlg??? Kiriman ini telah diubahsuai oleh biey_ila: Jun 23 2008, 11:24 AM |
 |
 
|
|
Jun 23 2008, 02:17 PM
Kiriman
#2
|
|
|
Ahli Grup: Members Kiriman: 194 Penyertaan: 20-June 07 Dari: Kuala Lumpur Ahli ke- 31,684 |
strField tu apa? nama field dlm database ker? kalo nama field, awat wat lagu tu? knp tak wat cam lelain tu... rs_Jdl21.Fields("strField")..... atau apa yg hang nak buat sebenarnya?
-------------------- PEGI PEKAN BELI TAYAR, AKU MAKAN KO BAYAR....
|
|
|
|
|
Jun 23 2008, 02:56 PM
Kiriman
#3
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(DrASAG @ Jun 23 2008, 02:25 PM)  strField tu apa? nama field dlm database ker? kalo nama field, awat wat lagu tu? knp tak wat cam lelain tu... rs_Jdl21.Fields("strField")..... atau apa yg hang nak buat sebenarnya? strField adalah tuk ---> strField = "j" & (Jtn) & "m" & (RIN) & "u" & (ageGrp) nnt die akan hantar data kat field dlm db. die ada btk field .... cth :- j1m1u1 samapialah j2m6u10...... rs_Jdl21(strField) = strCount ---> strField tu tuk "j" & (Jtn) & "m" & (RIN) & "u" & (ageGrp) Kiriman ini telah diubahsuai oleh biey_ila: Jun 23 2008, 02:58 PM |
|
|
|
|
Jun 24 2008, 08:56 AM
Kiriman
#4
|
|
|
Ahli Grup: Members Kiriman: 31 Penyertaan: 27-December 04 Ahli ke- 4,750 |
QUOTE(biey_ila @ Jun 23 2008, 11:30 AM) salam..... nak tanye... pe masalah erk kalo kuo error typemismatch..... bila debugg error nye dekat statement :- rs_Jdl21(strField) = strCount If rs_kira!bilrec = 0 Then rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update Else rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT 'rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update End If sape2 leh tlg??? nie salah statment rasanye nie kat rs_Jdl21(strField) = strCount ... field2 j1m1u1 sampai j2m6u10...... wujud ker dalam database? kalau nak add rekod dlm field tu...rasanye kena buat loop utk statment rs_Jdl21(strField) = strCount betul ker nie ek???? |
|
|
|
|
Jun 24 2008, 04:01 PM
Kiriman
#5
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(areizuaf @ Jun 24 2008, 09:04 AM) nie salah statment rasanye nie kat rs_Jdl21(strField) = strCount ... field2 j1m1u1 sampai j2m6u10...... wujud ker dalam database? kalau nak add rekod dlm field tu...rasanye kena buat loop utk statment rs_Jdl21(strField) = strCount betul ker nie ek???? field j1m1u1 sampai j2m6u10 tu wujud..... skali die loop tuk pilihan pertama die jalan OK je... pastu bila buat tuk pilihan 2 die error typemismatch kat rs_Jdl21(strField) = strCount....... tuk pilihan tu ada 6 pilihan.... setiap pilihan tu sy buat mgunakan case.. tol x??? statement ni mmg saya pakai loop.... Kiriman ini telah diubahsuai oleh biey_ila: Jun 24 2008, 04:03 PM |
|
|
|
|
Jun 25 2008, 08:42 AM
Kiriman
#6
|
|
|
Ahli Grup: Members Kiriman: 31 Penyertaan: 27-December 04 Ahli ke- 4,750 |
QUOTE(biey_ila @ Jun 24 2008, 04:09 PM) field j1m1u1 sampai j2m6u10 tu wujud..... skali die loop tuk pilihan pertama die jalan OK je... pastu bila buat tuk pilihan 2 die error typemismatch kat rs_Jdl21(strField) = strCount....... tuk pilihan tu ada 6 pilihan.... setiap pilihan tu sy buat mgunakan case.. tol x??? statement ni mmg saya pakai loop.... cuba kasi source code yg lebih jelas... keratan tu tak berapa jelas untuk di bantu... |
|
|
|
|
Jun 25 2008, 09:15 AM
Kiriman
#7
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(areizuaf @ Jun 25 2008, 08:50 AM) cuba kasi source code yg lebih jelas... keratan tu tak berapa jelas untuk di bantu... ok ok... CODE Private Sub cmdJ21_Click()
Dim strArrJtn As Variant Dim strArrAgeGrp As Variant Dim strArrMigstat As Variant Dim strArrRIN As Variant Dim strArrKws As Variant Dim Jtn As Integer Dim ageGrp As Integer Dim migstat As Integer Dim RIN As Integer Dim KWS As Integer Dim strRIN As String Dim strJtn As String Dim strAgeGrp As String Dim strMIGSTAT As String Dim strB As String Dim strKws As String Dim strField As String Dim strCount As String Dim rs_Jdl21 As ADODB.Recordset Dim rs_Calc As ADODB.Recordset Dim strkwsn As String FRM_J21.MousePointer = vbHourglass Call declareDB '********** pilih syarat dari cbobox ************** strKws = cboNg.Text strB = cboMth.Text strMIGSTAT = cboMigstat.Text '********** kod kws, bln dan migstat ******************* Select Case strKws Case "Semenanjung Malaysia" strKws = "1" Case "Sabah dan Labuan" strKws = "2" Case "Sarawak" strKws = "3" End Select '**** tukar kod kwsn *************************** Select Case strKws Case "1" strkwsn = "SEMENANJUNG MALAYSIA" Case "2" strkwsn = "SABAH DAN LABUAN" Case "3" strkwsn = "SARAWAK" End Select Select Case strB Case "01" strB = "01" Case "03" strB = "03" Case "09" strB = "09" Case "12" strB = "12" End Select Select Case strMIGSTAT Case "Semua Status Migran" strMIGSTAT = "1, 2, 4, 5" Case "Dalam Negeri" strMIGSTAT = "1" Case "Antara Negeri" strMIGSTAT = "2" Case "Migran Dalaman" strMIGSTAT = "1, 2" Case "Migran Antarabangsa" strMIGSTAT = "4" Case "Bukan Migran" strMIGSTAT = "5" End Select strArrJtn = Array("", "1", "2") strArrAgeGrp = Array("", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13") strArrMigstat = Array("", "1, 2, 4, 5", "1", "2", "1, 2", "4", "5") For Jtn = 1 To 2 strJtn = strArrJtn(Jtn) For ageGrp = 1 To 10 strAgeGrp = strArrAgeGrp(ageGrp) For migstat = 1 To 6 ' strMIGSTAT = strArrMigstat(migstat) For RIN = 1 To 6 strField = "j" & (Jtn) & "m" & (RIN) & "u" & (ageGrp) If strMIGSTAT = "1, 2, 4, 5" Then Select Case RIN Case 1 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and (U >'15')" & _ "and B = '" & strB & "'" & _ "and KWS = '" & strKws & "'" & _ "and ageGrp = '" & strAgeGrp & "' ", cn Case 2 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and B = '" & strB & "' " & _ "and KWS = '" & strKws & "' and ageGrp = '" & strAgeGrp & "' " & _ "and (RIN = '1' or RIN = '2' or RIN = '3' or RIN = '4' or RIN = '5' or RIN = '6' or RIN = '7') ", cn Case 3 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and B = '" & strB & "' " & _ "and KWS = '" & strKws & "' and ageGrp = '" & strAgeGrp & "' " & _ "and (RIN = '1' or RIN = '2' or RIN = '3' or RIN = '4' or RIN = '5') ", cn Case 4 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and B = '" & strB & "' " & _ "and KWS = '" & strKws & "' and ageGrp = '" & strAgeGrp & "' " & _ "and (RIN = '6') ", cn Case 5 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and B = '" & strB & "' " & _ "and KWS = '" & strKws & "' and ageGrp = '" & strAgeGrp & "' " & _ "and (RIN = '7') ", cn Case 6 Set rs_Calc = New ADODB.Recordset rs_Calc.CursorType = adOpenForwardOnly rs_Calc.LockType = adLockPessimistic rs_Calc.Open "Select Count (*) as bil from JR7 where " & _ "j = '" & strJtn & "' and B = '" & strB & "' " & _ "and KWS = '" & strKws & "' and ageGrp = '" & strAgeGrp & "' " & _ "and (RIN = '8') ", cn End Select strCount = rs_Calc!bil End If '''******* masuk rekod Lelaki & Perempuan Set rs_Jdl21 = New ADODB.Recordset rs_Jdl21.CursorType = adOpenForwardOnly rs_Jdl21.LockType = adLockPessimistic rs_Jdl21.Open "select * from tbl_jdl21", cn Set rs_kira = New ADODB.Recordset rs_kira.CursorType = adOpenForwardOnly rs_kira.LockType = adLockPessimistic rs_kira.Open "select count (*) as bilrec from tbl_jdl21", cn If rs_kira!bilrec = 0 Then rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update Else rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strkwsn rs_Jdl21.Fields("Migstat") = strMIGSTAT 'rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update End If '''************************** immediate ***************************************************** ' Debug.Print "strKws=" & strKws ' Debug.Print "strMigstat=" & strMIGSTAT ' Debug.Print "strJtn=" & strJtn ' Debug.Print "strageGrp=" & strAgeGrp ' Debug.Print "strField=" & strField ' Debug.Print "strCount=" & strCount ' MsgBox "rs_Jdl21(" & strField & ")= " & strCount '************************** immediate ***************************************************** Next RIN Next migstat Next ageGrp Next Jtn MsgBox "Selesai" rs_Jdl21.Close rs_Calc.Close rs_kira.Close FRM_J21.MousePointer = vbArrow CrystalReport1.ReportFileName = "C:\sistem migrat tblJdl21\MIGRASI2008\laporan\rpt_tblJdl21.rpt" CrystalReport1.Connect = "eks-web" & ";UID=sa;PWD=adminweb2005;DSQ=migrasiHQ;" ' ->Letak nama DB server/IP DB Server : DSQ:Nama database CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 7 End Sub Private Sub Form_Load() '*************** kws **************************** cboNg.AddItem "Semenanjung Malaysia" cboNg.AddItem "Sabah dan Labuan" cboNg.AddItem "Sarawak" '****************** Status ********************* cboMigstat.AddItem "Semua Status Migran" cboMigstat.AddItem "Dalam Negeri" cboMigstat.AddItem "Antara Negeri" cboMigstat.AddItem "Migran Dalaman" cboMigstat.AddItem "Migran Antarabangsa" cboMigstat.AddItem "Bukan Migran" cboMigstat.AddItem "Migran" '*************** Bln **************************** cboMth.AddItem "01" 'cboMth.AddItem "02" cboMth.AddItem "03" 'cboMth.AddItem "04" 'cboMth.AddItem "05" 'cboMth.AddItem "06" 'cboMth.AddItem "07" 'cboMth.AddItem "08" cboMth.AddItem "09" 'cboMth.AddItem "10" 'cboMth.AddItem "11" cboMth.AddItem "12" End Sub Private Sub Option1_Click() If Option1.Value = True Then cboMth.Visible = True cboMth = "" txtThn.Visible = False End If End Sub Private Sub Option2_Click() If Option2.Value = True Then cboMth.Visible = False txtThn.Visible = True txtThn.Text = "2008" End If End Sub Private Sub cmdE_Click() Unload Me End Sub |
|
|
|
|
Jun 25 2008, 11:59 AM
Kiriman
#8
|
|
|
Ahli Baru Grup: Learning Kiriman: 12 Penyertaan: 14-June 06 Dari: Penang, Kulim Ahli ke- 17,532 |
Boleh tolong beri hasil dari debug.print rs_Calc!bil
Adakah error terjadi padi else kedua? CODE If rs_kira!bilrec = 0 Then
rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update Else rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strkwsn rs_Jdl21.Fields("Migstat") = strMIGSTAT 'rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount '--> Error keluar kat sini ka? rs_Jdl21.Update End If |
|
|
|
|
Jun 25 2008, 01:45 PM
Kiriman
#9
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
quote name='Joe The King' date='Jun 25 2008, 12:07 PM' post='744052']
Boleh tolong beri hasil dari debug.print rs_Calc!bil Adakah error terjadi padi else kedua? CODE If rs_kira!bilrec = 0 Then rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount rs_Jdl21.Update Else rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strkwsn rs_Jdl21.Fields("Migstat") = strMIGSTAT 'rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount '--> Error keluar kat sini ka? rs_Jdl21.Update End If [/quote] CODE strKws=1 strMigstat=1, 2, 4, 5 strJtn=2 strageGrp=13 strField=j2m6u10 strCount=253 kat atas tu adalah input yg di hslkan apabila debug.print..... error die kuo kat rs_Jdl21(strField) = strCount tp...jd error bila sy masukkan pilihan kedua dn seterusnya iaitu pilihan tuk strMigstat.... Kiriman ini telah diubahsuai oleh biey_ila: Jun 25 2008, 01:47 PM |
|
|
|
|
Jun 26 2008, 09:06 AM
Kiriman
#10
|
|
|
Ahli Grup: Members Kiriman: 31 Penyertaan: 27-December 04 Ahli ke- 4,750 |
QUOTE(biey_ila @ Jun 25 2008, 01:53 PM) quote name='Joe The King' date='Jun 25 2008, 12:07 PM' post='744052'] Boleh tolong beri hasil dari debug.print rs_Calc!bil Adakah error terjadi padi else kedua? [code] If rs_kira!bilrec = 0 Then rs_Jdl21.AddNew rs_Jdl21.Fields("B") = strB rs_Jdl21.Fields("KWS") = strKws rs_Jdl21.Fields("Migstat") = strMIGSTAT ' rs_Jdl21.Fields("ageGrp") = strAgeGrp rs_Jdl21(strField) = strCount <--- letak breakpoint kat sini rs_Jdl21.Update cuba letak breakpoint kat tpt tu atau masa keluar error... tengok value utk strField dan strCount takut mungkin jenis field kat database tu yg problem... kalau boleh cuba jelaskan apa field yg ada kat dlm database dan field type nye... tengok kod mcm tak de masalah... my YM areizuaf@yahoo.com Kiriman ini telah diubahsuai oleh areizuaf: Jun 26 2008, 05:13 PM |
|
|
|
|
Jun 26 2008, 12:22 PM
Kiriman
#11
|
|
|
Ahli Grup: Members Kiriman: 111 Penyertaan: 14-June 07 Ahli ke- 31,373 |
rs_Jdl21 adalah recordset untuk database..
strField adalah string.. strCount adalah string.. kalau awak buat, rs_Jdl21(strField) = strCount, mmg confirmlah ada error.. sebab: rs_Jdl21(string) = (string) format untuk tulis recordset adalah: rs_Jdl21.(field) = (string) adakah awak nak masukkan strField, atau strCount ke dalam database? -------------------- amirVB
|
|
|
|
|
Jun 26 2008, 01:06 PM
Kiriman
#12
|
|
|
Ahli Baru Grup: Learning Kiriman: 12 Penyertaan: 14-June 06 Dari: Penang, Kulim Ahli ke- 17,532 |
Buat pengetahuan fields boleh ditulis begini
CODE rs_Jdl21.Fields("fields_name") rs_Jdl21("fields_name") rs_Jdl21.Fields(0) rs_Jdl21(0) rs_Jdl21!fields_name Tapi bagi saya, saya akan gunakan begini untuk menyokong fields yang mempunyai ruang kosong pada nama. CODE rs_Jdl21![fields name] Berbalik pada soalan cuba tukar code di bawah CODE rs_Jdl21(strField) = strCount kepada CODE rs_Jdl21(strField) = rs_Calc!bil
|
|
|
|
|
Jun 30 2008, 08:59 AM
Kiriman
#13
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(amirVB @ Jun 26 2008, 12:30 PM) rs_Jdl21 adalah recordset untuk database.. strField adalah string.. strCount adalah string.. kalau awak buat, rs_Jdl21(strField) = strCount, mmg confirmlah ada error.. sebab: rs_Jdl21(string) = (string) format untuk tulis recordset adalah: rs_Jdl21.(field) = (string) adakah awak nak masukkan strField, atau strCount ke dalam database? salam... nilai bagi strCount yg akan dimasukkan ke dlm db... mslahnye mcm ni..... die ada 5 pilihan..... pilihan pertama ia akan melibatkan jumlah semua bagi status tersebut.... pilihan 2 hg 4... adalah sub pilihan dr semua... cthnya... pilihan 1 --> semua status pilihan 2 --> status 1 pilihan 3 --> status 2 pilihan 4 --> status 3 pilihan 5 --> status 4 jumlah yg akan dikira utk semua status shj tiada eror... apabila buat pilihan yg lain br ada eror.... |
|
|
|
|
Jun 30 2008, 04:53 PM
Kiriman
#14
|
|
|
Ahli Grup: Members Kiriman: 111 Penyertaan: 14-June 07 Ahli ke- 31,373 |
owh, thanks Joe The King..
sbb mungkin dah terbiasa pakai format macam tu kot.. huhu..  eh biey_ila, tak paham plak masalah tu.. mungkin ada org lain yg boleh membantu.. -------------------- amirVB
|
|
|
|
 Jul 1 2008, 09:38 AM
Kiriman
#15
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(amirVB @ Jun 30 2008, 05:01 PM) owh, thanks Joe The King.. sbb mungkin dah terbiasa pakai format macam tu kot.. huhu.. eh biey_ila, tak paham plak masalah tu.. mungkin ada org lain yg boleh membantu.. emm... ok.. tenks membantu.... tp... cmn ngn step yg sy buat tu... ok x??? sy n bdk br belajo.. salah boleh ajrkan... huhuhu |
|
|
|
|
Jul 1 2008, 12:30 PM
Kiriman
#16
|
|
|
Ahli Rajin Grup: Members Kiriman: 1,069 Penyertaan: 23-April 04 Dari: Dunia ke Akhirat... Ahli ke- 295 |
cuba jangan declare variable nie:
CODE Dim strCount As String letak ahh tnda komen dulu.. phtu try run tgk.. 
-------------------- |>---------"Http://GeeKzlife.Net"------------<|
|>---------------------------------------------<| |>--------Upload Sample Virus here--------<| |>-------Http://GeeKzLife.Net/Upload------<| |
|
|
|
 Jul 1 2008, 02:08 PM
Kiriman
#17
|
|
|
Ahli Grup: Members Kiriman: 51 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(Displinx @ Jul 1 2008, 12:38 PM) cuba jangan declare variable nie: CODE Dim strCount As String letak ahh tnda komen dulu.. phtu try run tgk.. eemm... da try dh.... ok jee.. xde error... kuo data.... tp still data yg sama kluo kat report tu wpun buat pilihan jenis status yg berlainan.... huhuhu.... eemm... cmn erk... Kiriman ini telah diubahsuai oleh biey_ila: Jul 1 2008, 02:09 PM |
|
|
|
|
Jul 1 2008, 02:47 PM
Kiriman
#18
|
|
|
Ahli Grup: Members Kiriman: 31 Penyertaan: 27-December 04 Ahli ke- 4,750 |
QUOTE(biey_ila @ Jul 1 2008, 02:16 PM) eemm... da try dh.... ok jee.. xde error... kuo data.... tp still data yg sama kluo kat report tu wpun buat pilihan jenis status yg berlainan.... huhuhu.... eemm... cmn erk... utk papar report tu guna crystl32.ocx atau ape? |
|
|
|
|
Jul 1 2008, 02:50 PM
Kiriman
#19
|
|
|
Ahli Rajin Grup: Members Kiriman: 1,069 Penyertaan: 23-April 04 Dari: Dunia ke Akhirat... Ahli ke- 295 |
boleh ko upload ko punya project tu? senang skit nk test..
-------------------- |>---------"Http://GeeKzlife.Net"------------<|
|>---------------------------------------------<| |>--------Upload Sample Virus here--------<| |>-------Http://GeeKzLife.Net/Upload------<| |
|
|
|
 Jul 1 2008, 02:56 PM
Kiriman
#20
|
|