ADO-Recordset
Imam jedan problem sa "vremenskim kasnjenjem" podatka iz Access tabele.Iz frmKalkM pozivam frmNewDobavljac.U njoj ubacujem novi recordset kojeg treba da vratim u frmKalkM u cboBox.Stos je sto program radi jedino kad stavim tacku prekida kad snimim podatke(znaci pre poziva na requery) i to samo ako taj prekid traje oko 5 sekundi.Sve mi je to pomalo cudno.Nisam znao da se tako nesto dogadja.Evo stavicu kod pa ako neko bude imao vremena nek mi pomogne.Hvala.
***************frmKalkM**********************************
Private Sub cmdNewDobavljac_Click()
frmNewDobavljac.Show vbModal
End Sub
-------------------------------------------------------
Public Function Reqery_dobavljac(iBound As Integer)
rsPartneri.Requery
dbcDobavljac.BoundText = iBound
End Function
***************frmNewDobavljac***************************
Option Explicit
Dim cn As ADODB.Connection
Dim connectString As String
Dim rs As ADODB.Recordset
Dim iBound As Integer
----------------------------------------------------------
Private Sub cmdPrenesi_Click()
With rs
.AddNew
!Naziv = Trim(Text2.Text)
!Vlasnik = Trim(Text3.Text)
!MB = Trim(Text4.Text)
!ZiroRacun = Trim(Text5.Text)
!Prodavac = True
!Mesto = Trim(Text6.Text)
!Adresa = Trim(Text7.Text)
!Tel = Trim(Text8.Text)
!Fax = Trim(Text9.Text)
!Mail = Trim(Text10.Text)
!Web = Trim(Text11.Text)
.Update
iBound = !ID
End With
rs.Close
Set rs = Nothing
cn.Close
MsgBox "Podatak uspešno snimljen !!!", vbInformation, "Obaveštenje"
Call frmKalkM.Reqery_dobavljac(iBound)
Unload Me
End Sub
-----------------------------------------------------------------------------
Private Sub Form_Load()
Set cn = New ADODB.Connection
connectString = "Provider=Microsoft.Jet.OLEDB.4.0" & ";" & "Data Source=e:\vexx Document\Programing\VisulBasic6\Diplomski\Diplomski.mdb"
cn.Open connectString
Set rs = New ADODB.Recordset
rs.Open _
"Select * From tblPartner Order By ID", cn, adOpenKeyset, adLockOptimistic
End Sub
 |  |
 |
Re: ADO-Recordset
