Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: VB 2005 ja tietokantaan lisääminen

mmikko [24.01.2008 18:21:44]

#

Hei!

On semmonen ihmeellinen ongelma tietokantaan lisäämisen kanssa. Oon jokin aika sitten tehny pienen asiakasrekisterin, joka lisää, poistaa jne. tietokantaan asiakkaan tietoja. Nyt olen aloittelemassa uutta juttua ja heti tuli ihme ongelma jota ei ole aikaisemmin tullut vastaan ja se liittyy tietokantaan lisäämiseen.

eli tietokanta on access 2003, tietokannassa on kentät id(laskuri), etunimi ja sukunimi. Tiedot kyllä menee tietokantaan hienosti ku käynnistää soveluksen ajamisen ja rupeaa tietoja syöttämään. Ongelma tulee siinä kun on lisännyt tietokantaan tarvittavat tiedot ja sammuttaa ohjelman ja käynnistää ohjelman ajamisen uudelleen niin tietokannassa ei olenkkaan enää niitä tietoja mitä on edellisen kerran syöttänyt. Eli tietokanta on tyhjä!

Olen käyttänyt tietojen syöttämiseen Bindingnavigatoria, ja edelliset sovellukset on tuon avulla kyllä toiminut. Nyt on samanlaista ku edellisessäkin sovelluksessa, mutta ei vain toimi.

Public Class Form1

    Private Sub AsiakasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

AsiakasBindingNavigatorSaveItem.Click

  Me.Validate()
        Me.AsiakasBindingSource.EndEdit()
        Me.AsiakasTableAdapter.Update(Me.KantaDataSet.asiakas)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'KantaDataSet.asiakas' table. You can move, or remove it, as needed.

        Me.AsiakasTableAdapter.Fill(Me.KantaDataSet.asiakas)
        Me.BindingNavigatorAddNewItem.PerformClick()

End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.AsiakasBindingNavigatorSaveItem.PerformClick()
        Me.AsiakasTableAdapter.Update(Me.KantaDataSet.asiakas)

        MsgBox("Tiedot tallennettu onnistuneesti!")
        Me.Close()

    End Sub

End Class

jouko.repola [24.01.2008 20:16:37]

#

Oletko ajanut ohjelmaa vain Debug -tilassa vai myös binäärinä? (exenä)

mmikko [25.01.2008 19:08:56]

#

debug tilassa....

jouko.repola [12.02.2008 16:34:40]

#

Kun ohjelmaa ajaa exenä niin muutoksien pitäisi oikeasti tulla tietokantaan. Itselläni oli sama ongelma ettei debug tilassa tullut muutoksia kantaan.

(Jos kuitenkin ajat ohjelmaa vielä debug tilassa tuon binäärin ajon jälkeen, korvautuu muokattu kanta taas debuggauksen vanhalla kannalla... näin ainakin minulla)


Anteeksi kamalasti myöhästyneestä vastauksesta!

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta