1 / 12

Harjoitus 1

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

willa
Download Presentation

Harjoitus 1

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. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Harjoitus 1 Perusta uusi projekti. Hae projektin kansioon NWIND.mdb. Ota kantaan yhteys. Tulosta comboboxiin rahtarien(Shippers) nimet.

  2. 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

  3. 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

  4. 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

  5. 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;”

  6. Harjoitus 3 Lisää lomakkeeseen combon alle nappi. Nappia painamalla poistetaan combosta valittu rahtaaja.

  7. 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’;”

  8. Tietueen muuttaminen 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

  9. Harjoitus 4a Lisää lomakkeeseen combon alle toinen nappi. Nappia painamalla siirretään combosta valitun rahtaajan tiedot textboxeihin.

  10. sqlStr = "SELECT * FROM shippers WHERE CompanyName='" & Combo1.Text & "';" objRS.Open sqlStr, objConn, 1, 3 nimiTXT.Text = objRS("CompanyName") puhTXT.Text = objRS("Phone") objRS.Close

  11. Harjoitus 4b Lisää lomakkeeseen textboxien alle toinen nappi. Nappia painamalla vahvistetaan rahtarin tiedoille tehdyt muutokset. ”Napin näkyvyys?”

  12. 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.

More Related