Prikazi cijelu temu 08.08.2012 15:49
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Iz Å kole VB-a
Zanima me još pošto sam zadao parametre:
PreuzmiIzvorni kôd (Text):
  1. Dim rs2 As DAO.Recordset
  2. Dim db As DAO.Database
Ja moram koristiti i ADO,znači koristim referencu "Microsoft ActiveX Data Object 2.8 Library.
Moram je koristiti iz razloga Å¡to moj code za kreiranje xml fajla uzima tu referencu.
Evo coda za kreiranje xml fajla:
PreuzmiIzvorni kôd (Text):
  1. Private Sub XML_Click()
  2.  
  3. 'DEFINISANJE PROMENLJIVIH
  4. '...........................
  5. Dim rs2 As DAO.Recordset
  6. Dim db As DAO.Database
  7. Set Tekst = New Stream
  8. Tekst.Open
  9. Tekst.Position = 0
  10. Tekst.Charset = "UTF-8"
  11. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  12.  
  13. Tekst.WriteText "<RECEIPT>" & vbCrLf
  14. Set db = CurrentDb()
  15. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  16.     Do While Not rs2.EOF
  17.     Dim NazivA As String
  18. NazivA = rs2!ArtNaz
  19. NazivA = Naziv_Art(NazivA)
  20.  
  21. If (DLookup("IspisF", "serials") = "Kataloski") Then
  22. If (rs2!DS_VALUEBroj > 0) Then
  23.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf
  24. Else
  25. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  26. End If
  27. Else
  28. If (rs2!DS_VALUEBroj > 0) Then
  29.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf
  30. Else
  31. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  32. End If
  33. End If
  34.  
  35. rs2.MoveNext
  36.  
  37.     Loop
  38.    
  39.       rs2.Close
  40.      
  41.       Tekst.WriteText "<DATA PAY=""0"" " & "AMN" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  42.       'Tekst.WriteText "<DATA PAY=""1"" Amount=""0""/>" & vbCrLf
  43.       'Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
  44.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  45.       'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  46.       'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  47.    Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  48.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  49.  
  50.    
  51.     Set db = Nothing
  52. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML", adSaveCreateOverWrite
  53.  Tekst.Close
  54.  Dim rs4 As DAO.Recordset
  55. Dim db4 As DAO.Database
  56. Set Tekst4 = New Stream
  57. Tekst4.Open
  58. Tekst4.Position = 0
  59. Tekst4.Charset = "UTF-8"
  60. Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  61.  
  62.     'Set db4 = Nothing
  63. Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  64.  Tekst4.Close
  65.  DoCmd.SetWarnings False
  66.             DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET FiskalniIspis='" & "D" & "' WHERE BROULIZ='" & Me.BROIZD & "'"
  67. DoCmd.SetWarnings True
  68.  'ProvjeraP (Me.BROIZD)
  69. DoCmd.SetWarnings False
  70. DoCmd.OpenQuery "qrySkladisteKasaProdaja"
  71. DoCmd.OpenQuery "qrySkladisteKasaProdajaDatum"
  72. DoCmd.SetWarnings True
Kad ugasim ovu referencu ADO javlja mi grešku na ovom zapisu:"Set Tekst = New Stream
".Može li se nekako ovo prepravit ili da ne koristim tu referencu ili nekako drukčije napisati kod.
Pitam zato jer mislim da mi se sukobljavaju DAO i ADO mada sam zadao kad treba da uzima DAO ali nisam za ADO referencu?
Miro