Ado adatbzis struktura..
az enterpriseban megnzzk hogy a employees megvan e a nothwinden bell.
sql szerver fut. megnzzk hogy fasza e, a nevt megjegyezzk ezt kell belltani a VB ben
berjuk a vb ben a
 ServerName = "RPC-43"
van az elejn pr vltoz ezzel lehet hangolni az ado adatbzisunkat.

kell egy connection objektum- itt a cn
kell egy recordset obj i, ezt kapjuk vissza egy command obj meghvsakor.
ezen kereszl rjk el az adatbzist.

conn timeout- adatbhez val csatlakozs timeout(mp ben)
provider: szolgltat. amelyik az adatbzis s az alk kztt a kpacsot biztostja
sql provider de ez adatb tl fgg, acces hez- jet kell

  ' Set connection properties.
    cn.ConnectionTimeout = 25                                       ' Set the time out.
    cn.Provider = "sqloledb"                                        ' Specify the OLE DB provider.
    cn.Properties("Data Source").Value = ServerName                 ' Set SQLOLEDB connection properties.
    cn.Properties("Initial Catalog").Value = DBName                 ' Set SQLOLEDB connection properties.
    cn.Properties("Integrated Security").Value = "SSPI"             ' Set SQLOLEDB connection properties.
adatb megnyitsa:
 
    cn.Open
recordset megnyitsa...


 ' Open the Recordset.
    Set rs = New ADODB.Recordset
    rs.Open "select * from Employees", cn, adOpenKeyset, adLockPessimistic

select utasts, aztn , utn hogymelyik connection obj.,
optimista record: mdosts utn mentsnl vagy record mutat elmozdtsnl hajt vgre mdostst.
pessimista recordok esetn, mr a mdosts pilanatban is blokkolsra kerl a rekord a msik csak a megvltoztats utn

kvetkez elz nyomgomb megnzzk mi a plya

Private Sub btnFirst_Click()
    If rs.BOF = False Then
        rs.MoveFirst
    End If
    If rs.BOF = False Then
        FillDataFields
    End If
End Sub

record set mutatt vizsglja hogy hol van a rekord mutat.
 a virtulis tblban a mutat az els s az uccs rekord el is kerlhet.
ekkor ha eltte van akkor BEF ha utn akkor EOF




ado main:
elindtjuk berjuk a dolgokat majd lekrdeznk
meglestk a cmd connectet s nagyon j volt neknk...

click execute ot nzzk picit..



j project
PRJ szamlak

standard exe

hozzadjuk a microsoft activex data objectet. a preferencesnla projecten bell

data enviroment, vagy az ado data contorllal lehet mkzni grafikusan

DATA ENVIROENT DESIGNER:
(adat krnyezet tervez)

jobb gomb a projectnl s data enviromenet
ha nincs ott akkor project/components/designer/data enviromenetet kell bepipppantani
meg a riport faszom.
atnevezzk a connectiont datszamlakra

az uccs gombra nyomva mindenfle rdekeset lthatunk

datSzamlakra jobb gomb majd properties

Microsotf jet 4.0 ole db povider
tovbb gomb>

mindenfle jt meg lehet itt adan, pl csak olvashat stb stb.
jelljn ki egy adatbzist(a szamlak adatbzist tallzzuk.)

jobb gomb add command a commands on
majd jobb gomb properties

itt kifagyott a gecc..

a generalban kivlasztjuk a szamlakat a connectnl  
database obj ektet table re lltjuk,
 az obj Name : Partner

advanced fl...
pessimista optimista dolog
optimistt belltjuk.

cmdPartnert rhzuk az rlapunkra.
minden objektzumhoz textboxot hoz ltre

4 nyomgombot tesznk, els elz kvetkez utols

cmdElso
cmdElozo
cmdKovetkezo
cmdUtolso

cmdMentes
cmdMegse
cmdUj
cmdTorles


(General) (general)



Option Explicit
Dim rsDatenv AS Recordset

form load ba:
Set rsDatenv = datSzamlak.rscmdPartner (ezt adja vissza)

itt prba. ha oks rjuk tovbb

els nyomhoz ezt rjuk:
rsDatEnv.MoveFirst
uccsra mozgathoz:
rsDatEnv.MoveLast

elz:

cmdElozo_Click:
rsDatEnv.MovePrevious
If rsDatEnv.BOF then
   rsDatEnv.MoveFirst
   Beep
End IF

kovetkez:

cmdElozo_Click:
rsDatEnv.MoveNext
If rsDatEnv.EOF then
   rsDatEnv.MoveLast
   Beep
End IF

mentes:
cmdMentes_Click
rsDatEnv.UpDate

cmdMegse_Click
 Dim RekMutMent AS Variant
 RekMutMent = rsDatEnv.Bookmark
rsDatEnv.CancelUpdate
rsDatEnv.Bookmark = RekMutMent

cmdTorles_click:
rsDatEnv.Delete
rsDatenv.MoveNext
If rsDatenv.EOF then rsDatenv.MoveLast

cmdUj_click
 rsDatEnv.AddNew


Figyelj! mert az ehez ttartoz vb projectben lehetnek hibk elnevezsben pl datanv -> datEnv!!!!
elmlet a knyvben:
elmleti krdsek:
ado opbjektum orientlt gyjtemnyek lersa(connection command string hardware stb stb stb)





