[es] - Having Count Distinct problem

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

^{13.01.2008. u 18:37 - pre 198 meseci}

Evo koda doslovce od slova do slova, gdje javlja problem

Code:

Private Sub Command2_Click()
Link1 = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="
Link2 = Chr(34)
Link3 = "DBQ=" & App.Path & ";DefaultDir=" & App.Path & ";Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;FILEDSN=" & App.Path & "\TXTODBC.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
TXTLink = Link1 & Link2 & Link3 & Link2

Dim TxtAdoConn As ADODB.Connection ' konekcija
Dim TxtAdoRS   As ADODB.Recordset  ' rekordset u kome ce biti podaci
Dim TxtAdoFld  As ADODB.Field
Dim Server, SQLUpitiServeri As String
Dim TxtAdoConn2 As ADODB.Connection ' konekcija
Dim TxtAdoRS2   As ADODB.Recordset
Dim DuzinaFakt As Long

' Kill (App.Path & "\reportMag011.txt")

Set TxtAdoConn = New ADODB.Connection
TxtAdoConn.CursorLocation = adUseClient

TxtAdoConn.Open TXTLink

SQLUpitServeri = "SELECT COUNT(Artikl) AS BrojF, Faktura FROM (SELECT DISTINCT Artikl, Faktura FROM reportMag001.txt) AS Razliciti GROUP BY Faktura"
Set TxtAdoRS = New ADODB.Recordset
TxtAdoRS.Open SQLUpitServeri, TxtAdoConn, adOpenStatic, adLockReadOnly

With TxtAdoRS
     .MoveFirst
      Do While Not .EOF
        A = !BROJF
        B = !Faktura
        If txtRezultat.Text = "" Then
        txtRezultat.Text = "ARTIKLI; FAKTURA" & Chr(13) + Chr(10) & A & "; " & B & Chr(13) & Chr(10)
        ElseIf txtRezultat.Text <> "" Then
        txtRezultat.Text = txtRezultat.Text & A & "; " & B & Chr(13) & Chr(10)
        End If
       .MoveNext
      Loop
End With

With CommonDialog1
   .FileName = App.Path & "\reportMag011.txt"
     Open .FileName For Output As #1
     Print #1, txtRezultat.Text
   Close #1
End With

TxtAdoRS.Close
Set TxtAdoRS = Nothing
TxtAdoConn.Close
Set TxtAdoConn = Nothing
End Sub

steve585

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Having Count Distinct problem

^{13.01.2008. u 18:43 - pre 198 meseci}

Castis me posle ovog, izgleda da je Case Sensitive, probaj:

Code:

SELECT COUNT(ARTIKL) AS BrojF, FAKTURA FROM (SELECT DISTINCT ARTIKL, FAKTURA FROM reportMag001.txt) AS Razliciti GROUP BY FAKTURA

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

Re: Having Count Distinct problem

^{13.01.2008. u 18:52 - pre 198 meseci}

Gdje i kada? Radi!!!!!!!!!!!!!

steve585

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Having Count Distinct problem

^{13.01.2008. u 18:57 - pre 198 meseci}

Hajde da rezimiramo sta smo iz ovoga naucili:

1. OLEDB drajver za ODBC je Case Sensitive
2. Ne postoji zona sumraka
3. Ukoliko imate problem vezan za rad sa bazama podataka, pozeljno je uploadovati izvor podataka koji se koristi. Razlog zasto smo izgubili vreme je taj sto sam ja da bih imao iste uslove testiranja napravio fajl sa nazivima kolona "Artikl" i "Faktura" a ti imas "ARTIKL" i "FAKTURA" i naravno - ludilo

P.S. Video sam jos pre nekoliko dana da imas ovaj problem i verovatno bih ti odmah pomogao da si uploadovao projekat. Ja sam uvek voljan da pomognem kod ovakvih "twilight zone" problema ako ne moram da pravim projekt iz pocetka.

Sto se tice cascenja - bice prilike, bitno da smo resili problem.

Srecno!

Odgovor na temu