Harjoitus 1
Download
1 / 12

Harjoitus 1 - PowerPoint PPT Presentation


  • 99 Views
  • Uploaded on

Harjoitus 1. Perusta uusi projekti. Hae projektin kansioon NWIND.mdb. Ota kantaan yhteys. Tulosta comboboxiin rahtarien(Shippers) nimet. Uuden tietueen lisääminen. sqlStr = "SELECT * FROM taulu;” objRS.Open sqlStr, objConn, 1, 3 objRS.AddNew

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' Harjoitus 1' - willa


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Harjoitus 1
Harjoitus 1

Perusta uusi projekti.

Hae projektin kansioon NWIND.mdb.

Ota kantaan yhteys.

Tulosta comboboxiin rahtarien(Shippers)

nimet.


Uuden tietueen lis minen
Uuden tietueen lisääminen

sqlStr = "SELECT * FROM taulu;”

objRS.Open sqlStr, objConn, 1, 3

objRS.AddNew

objRS(”sarake”)=”arvo” tai objRS(0)=”arvo”

objRS(”sarake2”)=”arvo2” tai objRS(1)=”arvo”

...

objRS.UpDate


Harjoitus 2
Harjoitus 2

Lisää lomakkeeseen kaksi textboxia ja nappi.

1.tekstiboxiin tulee uuden rahtaajan nimi.

2.tekstiboxiin tulee uuden rahtaajan pnro.

Nappia painamalla lisätään uuden rahtarin

tiedot kantaan.

objRs.AddNew

objRs(0)=…

objRs.UpDate


uusiBTN_Click:iin

sqlStr = "SELECT * FROM shippers;”

objRS.Open sqlStr, objConn, 1, 3

objRS.AddNew

objRS("CompanyName") = nimiTXT.Text

objRS("Phone") = puhTXT.Text

objRS.Update

objRS.Close


Tietueen poistaminen
Tietueen poistaminen

sqlStr = "SELECT * FROM taulu WHERE kentta=arvo;"

objRS.Open sqlStr, objConn, 1, 3

objRS.Delete

objRS.Close

Arvo tulee hipsuihin, jos arvo on ei-numeraalinen!

sqlSTR = ”... WHERE kentta=’joku’;”

sqlSTR = ”... WHERE kentta=12;”


Harjoitus 3
Harjoitus 3

Lisää lomakkeeseen combon alle nappi.

Nappia painamalla poistetaan combosta valittu

rahtaaja.


sqlStr = "SELECT * FROM shippers WHERE CompanyName='" & Combo1.Text & "';"

objRS.Open sqlStr, objConn, 1, 3

objRS.Delete

objRS.Close

Huomioi sqlStr:n katenoinnissa käytetyt hipsut.

sqlStr = ”...WHERE CompanyName=’Yritys’;”


Tietueen muuttaminen
Tietueen muuttaminen Combo1.Text & "';"

sqlStr = "SELECT * FROM taulu WHERE kentta=arvo;"

objRS.Open sqlStr, objConn, 1, 3

objRS(”sarake”)=”arvo” tai objRS(0)=”arvo”

objRS(”sarake2”)=”arvo2” tai objRS(1)=”arvo”

...

objRS.UpDate


Harjoitus 4a
Harjoitus 4a Combo1.Text & "';"

Lisää lomakkeeseen combon alle toinen nappi.

Nappia painamalla siirretään combosta valitun

rahtaajan tiedot textboxeihin.


sqlStr = "SELECT * FROM shippers WHERE CompanyName='" & Combo1.Text & "';"

objRS.Open sqlStr, objConn, 1, 3

nimiTXT.Text = objRS("CompanyName")

puhTXT.Text = objRS("Phone")

objRS.Close


Harjoitus 4b
Harjoitus 4b Combo1.Text & "';"

Lisää lomakkeeseen textboxien alle toinen

nappi. Nappia painamalla vahvistetaan rahtarin

tiedoille tehdyt muutokset. ”Napin näkyvyys?”


sqlStr = "SELECT * FROM shippers WHERE CompanyName='" & Combo1.Text & "';"

objRS.Open sqlStr, objConn, 1, 3

objRS("CompanyName") = nimiTXT.Text

objRS("Phone") = puhTXT.Text

objRS.Update

objRS.Close

Päivitys muuten samanlainen kuin tietueen lisäys, mutta

objRS.AddNew puuttuu.


ad