Toon posts:

[VB.NET]communicatie met access database lukt niet (2)

Pagina: 1
Acties:
  • 27 views sinds 30-01-2008

Verwijderd

Topicstarter
hoi, ik was een check in list aant maken voor mijn LAN organisatie.
Maar nu lukt me 1ding nie, schrijven-delete-update van de database wilt niet.
Uit de database lezen lukt anderzijds wel. Ik heb slechts een basis kennis in VB.NET

Ik vermoet dat de fout in de sql zit. Ik heb na genoege totaal geen ervaring met sql,hoewel dat ik weet wat het is , en hoe de statements ongeveer zijn.
Ook zou de fout mss kunnen liggen in de dataset

Om mijn programma te construeren heb ik de tutorial gebruikt=> http://www.homeandlearn.co.uk/NET/nets12p1.html

ik heb al geprobeerd in de table adapter van mijn dataset,querys in toe te voegen, maar dar zal ik misschien ook wel wat fout hebben gedaan : bij de query fill staat als parameter zijn aanspreek naam. Deze query stond er al standaard in. Nu bij mij querys kan ik die Methodename niet opgeven.
Anderzijds denk ik da ik eenf out heb staan in de sql van mijn code zelf.

afgebakende code:
Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
con.Open()
sql = "Update list SET list WHERE list"
Dim da = New OleDb.OleDbDataAdapter(sql, con)
Dim cb As New OleDb.OleDbCommandBuilder(da)
ds.Tables("list").Rows(inc).Item(0) = IDTextBox.Text
ds.Tables("list").Rows(inc).Item(1) = UsernameTextBox.Text
ds.Tables("list").Rows(inc).Item(3) = VoornaamTextBox.Text
ds.Tables("list").Rows(inc).Item(4) = AchternaamTextBox.Text
ds.Tables("list").Rows(inc).Item(5) = PostcodeTextBox.Text
ds.Tables("list").Rows(inc).Item(6) = PlaatsTextBox.Text
ds.Tables("list").Rows(inc).Item(6) = LandTextBox.Text
ds.Tables("list").Rows(inc).Item(8) = GeslachtTextBox.Text
ds.Tables("list").Rows(0).Item(inc) = txtgebdat.Text
ds.Tables("list").Rows(inc).Item(10) = HomepageTextBox.Text
ds.Tables("list").Rows(inc).Item(11) = Msn_adressTextBox.Text
ds.Tables("list").Rows(inc).Item(2) = EmailTextBox.Text
ds.Tables("list").Rows(inc).Item(12) = ProcessorTextBox.Text
ds.Tables("list").Rows(inc).Item(13) = Inter_geheugenTextBox.Text
ds.Tables("list").Rows(inc).Item(14) = Video_GPUTextBox.Text
da.Update(ds, "list")
con.Close()
MsgBox("Succesvol geupdate")
End Sub

deze fout melding krijg ik:
Afbeeldingslocatie: http://users.skynet.be/fa040582/update.JPG
Ik kan dus met gevolg niet updaten.Kan iemand mij hiermee helpen?
Dank bij voorbaat
Cassini

Verwijderd

Maak nog eens een plaatje maar druk daarvoor eerst een op "More Details". Dan hebben we toch wat meer info.

  • NMe
  • Registratie: Februari 2004
  • Laatst online: 15-04 22:07

NMe

Quia Ego Sic Dico.

Ik zal even mezelf quoten:
-NMe- schreef op dinsdag 07 juni 2005 @ 20:26:
Als je een probleem hebt, isoleer dan het stukje code waar de fout zit, en post dat stukje
Prima, dat heb je gedaan. :)
(tussen [code]-tags).
En dat niet. ;)
Als je dat gedaan hebt dan kun je een nieuw topic openen, waarin je de exacte foutmelding vermeldt,
Dat zie ik ook nergens. :)
en ook wat je al gezocht en gevonden hebt, en waarom je er daarmee niet uit kwam. Lees ook de volgende stukjes uit de FAQ even:

P&W FAQ - De "quickstart"
P&W FAQ - Leer **** debuggen!!

Overigens:
code:
1
Update list SET list WHERE list

WTF? :? Lees even een tutorial: www.sqlcourse.com
En omdat je dat laatste blijkbaar nog niet gedaan heb sluit ik dit topic ook weer. :) Als je op een dergelijke manier vanuit code je database wil updaten, dan moet je eerst wat selecteren uit die database, en met de recordset die dat uplevert kun je dingen gaan updaten. "UPDATE list SET list WHERE list" is geen goede SQL en daarom loopt je programma vast. Vervang het door "SELECT * FROM list" en het zal waarschijnlijk al veel meer doen.

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.


Dit topic is gesloten.