[es] - Adodc , DataGrid i SQL

JamesG
James Gije
Konjic

Član broj: 129130
Poruke: 4
*.PPPoE-1531.sa.bih.net.ba.

Profil

^{10.01.2007. u 20:01 - pre 210 meseci}

Pozdrav svima

Koristim VB6 i access 2003,
Interesuje me da li neko zna kako primjeniti SQL izraze u kombinaciji sa Adodc kontrolom (update, delete, insert...)
Poznato mi je rucno bez adodc data kontrole recimo :
rs.execute "sql izraz"
kako isto napraviti sa adodc-om?
E sad drugi problem je :

Imam dva datagrida
Prvi za izvor ima neku tabelu(dataGrid1 - Tabela1), a drugi se filtrira (Datagrid1 - rowColChange procedurom )
t.j. koristim opet SQL izraz ubačen u string var. strSQL

Znaci povezivanje dvije tabele preko Adodc-a sa inner Join SQL komandom (ako me ista razumijete:))
Problem nastaje kada zelim dodati novi upis u tabelu1 (datagrid1) zbog toga jer je strSQL prazan
Kako da "ponistim" datagrid1.RowColChange strSQL kada dodajem novi rekord u tabelu1???
Koja konfuzija, hvala u naprijed ako iko odgovori na ova pitanja...?!?

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
212.200.176.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Adodc , DataGrid i SQL

^{16.01.2007. u 06:27 - pre 210 meseci}

Ne sećam se kad sam zadnji put radio sa Adodc kontrolom :), tako da niasm siguran kako izvršiti Execute metodu preko nje, ali zašto bi to radio. Jednostavno napraviš neku funkciju koja će da odradi execute i posle njenog pozivanja pozoveš Adodc1.Refresh. što se tiče drugog problema, ako sam te dobro shvatio, treba ti neki flag koji će da sprečava izvršavanje query-ja kada upisuješ podatak. To može biti jedna boolean varijabla, recimo upis, pa onda kad upisuješ podatke staviš upis = true a na početku RowColChange procedure staviš If upis = true then exit sub.

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.ptt.yu.

+7 Profil

Re: Adodc , DataGrid i SQL

^{16.01.2007. u 12:44 - pre 210 meseci}

Evo ti primer koda za SQL upite sa ADODC

Code:
Ad1.RecordSource = "SELECT * FROM WTable WHERE Word='" & WList.Text & "'"
Ad1.Refresh

Stavi negde ispred i conection string za povezivanje sa bazom (adresa baze je u variabli base) ako nije predhodno definisan.
Ad1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & base & ";Persist Security Info=False"
Evo ti i neki primer za upisivanje i brisanje redova. To se radi sa Recordset objektom ADODC-a. Recordset mozes da zamislis kao novu tabelu u memoriji dobijenu SQL filtriranjem baze. Pokazivac moze da se krece dole-gore kroz redove sa .MoveNext , .MovePrevious itd.

Upisivanje vrednosti u kolone trenutnog reda

Code:
With Ad1.Recordset
'!Word = nWord ' 3 kolone za upis ispred imena se stavlja !
!WPicture = WImg.Text
!WCon = CInt(WCon.Text)
.Update 'Obavezno uradi update
.Close
End With

Brisanje trenutnog reda

Code:
With Ad1.Recordset
.Delete
.Update
.Close
End With

Pozdrav

_{Marko_L : Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 16.01.2007. u 23:53 GMT+1]}

HomePage http://www.eurora3d.com

Odgovor na temu

JamesG
James Gije
Konjic

Član broj: 129130
Poruke: 4
*.PPPoE-1637.sa.bih.net.ba.

Profil

Re: Adodc , DataGrid i SQL

^{24.01.2007. u 01:01 - pre 209 meseci}

Hvala na pomoći "Eurora3d team" bile su mi poznate metode updat,delete... sa Adodc-om koje si postavio
mene je interesovalo isključivo execute što sam i riješio, možda i vama bude trebalo pa evo primjer koji radi ok:
(strSql - naravno definisani string)
strSql = "INSERT INTO tblUgrArt(NalogID, ArtikalID, Kolicina, Ukupno, Greska) VALUES ('" & Form4.txtNalogID & "', '" & Adodc2.Recordset("ArtikalID") & "', '" & Text3 & "', '" & Text6 & "', '" & Combo1 & "')"
Adodc3.Recordset.ActiveConnection.Execute strSql

Takođe hvala Marko_L , upotrijebio sam tvoj savjet i funkcioniše super, a ja se spetljo s glupostima "set strSql = nothing"
pa uvijek neka greška....
Još jednom hvala!!!

Odgovor na temu