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):Public cn As ADODB.Connection ' Glavna konekcija za cel program
Public DA As Variant ' Zamena za TRUE
Public NE As Variant ' Zamena za FALSE
Public BarCodePrefix As Integer ' Prefiks na barkod citacot
'Global Const BarCodePrefix = "2" ' Konstanta STX prefiks na bar kod citacot
Public SearchFormaKasa As Boolean ' Se koristi forma za prebaruvajne vo kasata
Public SearchGridKasa As Boolean ' Moze da se prebaruva vo gridot na kasata
Sub Main()
On Local Error GoTo Error_Main:
Set cn = New ADODB.Connection
' My SQL server
cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=localhost" & _
";port=3306; database=BazaTest" & _
"; user=root" & _
"; password=admin" & "; option=3;"
DA = 1
NE = 0
cn.Open
If cn.State = adStateOpen Then
frmIzvestai.Show
End If
Main_Exit:
Exit Sub
Error_Main:
If Err <> 0 And Err <> -2147217843 And Err <> -2147467259 Then MsgBox Err & " -->>> " & Error(Err)
If Err = -2147217843 Then
Call MsgBox(" ! #
! " ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
frmParametri.Show
Resume Main_Exit:
End If
If Err = -2147467259 Then
Call MsgBox(" ! #
" ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
frmParametri.Show
Resume Main_Exit:
End If
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.