Se database

tilføj : Microsoft DAO 3.x Object Library til projektet. + en txtbox kaldet txtname.

Private DB As Database
Private RS As Recordset

Function GetFromDatabase(sName As String)
  Set RS = DB.OpenRecordset(\"SELECT * FROM Contact WHERE Name _
          = \'\" & sName & \"\'\", dbOpenDynaset)
  txtName = \"\" & RS!Name
  RS.Close
End Function

Private Sub Form_Load()
  \'Use the OpenDatabase function to open our database 
  Set DB = OpenDatabase(App.Path & \"\\demo.mdb\")
End Sub

Private Sub cmdGet_Click()
  Dim sName As String
  sName = InputBox$(\"table ?:\", \"Database\")
  Call GetFromDatabase(sName)
End Sub

(linie skift = chr(13) )

\'jeg går udfra at du bruger Data1

Private Sub Command1_Click()
Dim DataTmp As String
Data1.Recordset.MoveFirst

Do Until Data1.Recordset.EOF
DataTmp = DataTmp & Data1.Recordset!gæstebog & vbCrLf \'\"!\" er ikke en fejl. + edit her (gæstebog)
DoEvents
Data1.Recordset.MoveNext
Loop

Text1.Text = DataTmp
End Sub

Private Sub Form_Load()
Data1.DatabaseName = \"C:\\gæstebog.mdb\" \'edit her (C:\\gæstebog.mdb)
Data1.RecordSource = \"gæstebog\" \'edit her (gæstebog)
End Sub

jelzin101: Hvorfor bruge DAO, ADO er væsentligt hurtigere.
Specielt hvis man kontakter databasen fra en eksterne application, som eksempelvis Visual Basic.

kedde

fordi at ADO kun er med i vers 6. :) og jeg er en fattig studerende....

Faktisk bruger jeg Data1..

Ja, jeg kan kun sige at jeg fatter minus as jelzin101+s kode.
SJH kan du ikke fortælle mig hvad der her betyder?
DataTmp = DataTmp & Data1.Recordset!gæstebog & vbCrLf \'\"!\" er ikke en fejl. + edit her (gæstebog)
Jeg forstår ikke rigtigt din måde at fortælle hvad jeg skal gøre her....

jeg håber du forstår :)





Do Until Data1.Recordset.EOF

\'Under Tablesnavn som er \"gæstebog\" ligger der FieIdnavns som er ???

\'DataTmp er en TempString
\'du skal udskifte FieId_1 med de FieIdnavns, du har i din database :)
\'vbCrLf laver en return
\'
\'du kan også stille det op sådan:
\'
\'DataTmp = DataTmp & Data1.Recordset!FieId_1 & \" \" & Data1.Recordset!FieId_2 & \" \" & Data1.Recordset!FieId_3 & vbCrLf

DataTmp = DataTmp & Data1.Recordset!FieId_1 & vbCrLf \'FieId_1 er et navnet på FieId
DataTmp = DataTmp & Data1.Recordset!FieId_2 & vbCrLf \'Hvis du har flere FieId
DataTmp = DataTmp & Data1.Recordset!FieId_3 & vbCrLf \'Hvis du har flere FieId

DoEvents

Field navnet er \"bog\"

Hvis du kan sammemsætte det så det virker så er de 100 p. dine..

er der kun \"bog\"

er der ikke Navn og Adresse osv....

ellers så:

DataTmp = DataTmp & Data1.Recordset!bog & vbCrLf

Jeg har kun oprettet et felt hvor man kan skrive i.
Men kan du ikke indsætte hele koden, fordi jeg er ikke så rutineret i databaser...jeg er lige begyndt på dem, så de er stadigvæk meget fremmede..?

download filen her:

http://hjem.get2net.dk/sjh/eksperten/94471/db_bog.zip

Du er for sej sjh..Du har lige tjent 100 p..Tak for hjælpen

det var ad så lidt. :)

men du kunne jo godt give jelzin101 75 point
og mig 25 point, jelzin101 er jo en fattig studerende.... ;)

He he he he.....Det er for sent nu....Men næste gang så kan det jo være.