Prikazi cijelu temu 14.10.2015 14:34
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Adodb.Command + MySQL Stored Procedura
cn E konekcijata na serverot eve i za nea cod samo stavi tvoi parametri
PreuzmiIzvorni kôd (Visual Basic):
  1. Public cn As ADODB.Connection                ' Glavna konekcija za cel program
  2.  
  3. Public DA As Variant                         ' Zamena za TRUE
  4. Public NE As Variant                         ' Zamena za FALSE
  5.  
  6. Public BarCodePrefix As Integer                ' Prefiks na barkod citacot
  7. 'Global Const BarCodePrefix = "2"              ' Konstanta STX prefiks na bar kod citacot
  8. Public SearchFormaKasa As Boolean          ' Se koristi forma za prebaruvajne vo kasata
  9. Public SearchGridKasa As Boolean             ' Moze da se prebaruva vo gridot na kasata
  10.  
  11.  
  12. Sub Main()
  13. On Local Error GoTo Error_Main:
  14. Set cn = New ADODB.Connection
  15.      
  16.  
  17.     ' My SQL server
  18.  
  19.      
  20.      cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=localhost" & _
  21.                            ";port=3306; database=BazaTest" & _
  22.                            "; user=root" & _
  23.                            "; password=admin" & "; option=3;"
  24.       DA = 1
  25.       NE = 0
  26.  
  27.    cn.Open
  28. If cn.State = adStateOpen Then
  29.    frmIzvestai.Show
  30. End If
  31.  
  32. Main_Exit:
  33.    Exit Sub
  34.  
  35. Error_Main:
  36.  
  37. If Err <> 0 And Err <> -2147217843 And Err <> -2147467259 Then MsgBox Err & "  -->>>  " & Error(Err)
  38.  
  39. If Err = -2147217843 Then
  40.     Call MsgBox("  !  #
  41.   !  " ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
  42.    frmParametri.Show
  43.    Resume Main_Exit:
  44. End If
  45.  
  46. If Err = -2147467259 Then
  47.    Call MsgBox("  !  #
  48.   "  ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
  49.     frmParametri.Show
  50.     Resume Main_Exit:
  51. End If
  52.  
  53.    
  54. End Sub

Greskata koja ja dobivam e error 7004 The rowset is not bookmarkable
po internet najdov samo deka ako se dodadi ovaa linija :
RsIzvestaj.CursorLocation = adUseClient
sve ke OK no jas toa od porano go imam staveno i ne e do toa problemot.