References???

du skal referere Microsoft ActiveX Data Objects 2.x (sandsynligvis 2.5)

Herefter bruger du ado til at arbejde med din access database...

DBPath = \"c:\\dinaccessdatabase.mdb\"
Set adoConn = New ADODB.Connection

adoConn.Open \"Driver={Microsoft Access Driver (*.mdb)};dbq=\" & DBPath & \";uid=Admin;pwd=\"

Set adoRST=adoConn.Execute(\"Select * From dintabel\")

osv...

/Jennemaan

Hej Jennemaan

Du bliver nok nød til at skære den her ud i pap..:)arbejder normalt ikke med VB.

Mit problem er når jeg prøver at sætte RecordSource på min datacontrol så får jeg et unrecognized database format.

Du skal opdaterer til version SP4 af vb6 for at access 2000 virker... det vil løse dit problem

Det skal lige siges at jeg har installeret MDAC 2.6 og Jet 4.0

datacontrol\'en kan ikke arbejde med access 2000 databaser.

Du skal bruge ado.

/Jennemaan

ohh fuck 58 MB med et 56K modem...det er jo langt ude

zeon > brug dog ado istedet!

ja ok men det ved jeg bare ingenting om,og jeg har simpelthen ikke tid til at bruge længere tid på det. Jeg skal aflevere et projekt i morgen hvor jeg skal bruge det.
Så hvis du gider at sige hvor jeg skal skrive den kode du har vist og om jeg skal tilføje andre ting for at det virker.
Så bliver jeg en lykkelig mand...Hvis du skal have flere points for at tutor mig igennem det her så må du sige til..:)

hvilke data skal du have vist hvordan?

og hvilke data skal opdateres hvordan?

Jeg har nogle tabeller og forespørgsler hvor der jo ligger en fandens masser forskellige felter. Jeg skal egentlig bare have de data op i nogle tekstbokse så jeg kan indtaste noget mere data. 

okie... her er eksempel

i form_load eventen skriver du:

Private Sub Form_Load()

DBPath = \"c:\\dinaccessdatabase.mdb\"
Set adoConn = New ADODB.Connection

adoConn.Open \"Driver={Microsoft Access Driver (*.mdb)};dbq=\" & DBPath & \";uid=Admin;pwd=\"

Set adoRST=adoConn.Execute(\"Select * From dintabel\")

While Not (adoRST.BOF or adoRST.EOF)
  debug.print adoRST.Fields(0) \'smid indholdet af kolonne 0 ud i debugvinduet
  adoRST.Movenext \'gå til næste record
Wend

End Sub


I en tekstboks (txtTekst) har du skrevet noget data der skal gemmes i dintabel under id\'et 1

Lav en command button og kald den f.eks. update

I click eventen skriver du følgende:

Private Sub Update_Click()

DBPath = \"c:\\dinaccessdatabase.mdb\"
Set adoConn = New ADODB.Connection

adoConn.Open \"Driver={Microsoft Access Driver (*.mdb)};dbq=\" & DBPath & \";uid=Admin;pwd=\"

adoConn.Execute \"Update dintabel Set text=\'\" & txtTekst.Text & \"\' Where ID=1\"


End Sub


Små eksempler på at hente og gemme data....

/Jennemaan

Hej Jennemaan

Jeg har lige prøvet at bruge en ADO data control til at få fat i Databasen og det virker...JUBII
Så nu tror jeg at jeg har lidt styr på det igen.

Mange tak for at fortælle mig lidt om ADO det må jeg helt klart få mere styr på når jeg er færdig med det her projekt. Indtil videre ser det ud til at jeg kan bruge det på næsten samme måde som en almindelig Data control.

Nikolaj