Avatar billede steensommer Praktikant
10. september 2004 - 20:27 Der er 7 kommentarer og
2 løsninger

Hente data fra Access til userform

Hej
Jeg har en brugerform i Excel som skal hente nogle data fra Access Database vha sql.
Følgende har jeg lavet men mangler at få data puttet ind i brugerformens textfelter:


Private Sub UserForm_Click()
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim c As Variant
Dim IBox As String
Dim strSQL As String

szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\Database\hcv.mdb;"

IBox = InputBox("Indtast HCV nr")

    szSQL = "SELECT ([Årstal], [Fødselsdato]) FROM [HCV præ-per] WHERE [HCV] LIKE'" & IBox & "%'"
   
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
   
 
    Set rsData = Nothing

End Sub

Hvem kan hjælpe

vh Steen
10. september 2004 - 20:44 #1
inden du sætter rsData = Nothing... så kan du jo gøre noget lignende.....

TextBox1.Text = rsData.Field("Årstal").Value
osv...
10. september 2004 - 20:44 #2
Jeg går udfra, at du kun får EN record/en forekomst retur.
Avatar billede kabbak Professor
10. september 2004 - 20:44 #3
Text1.Text = rsData("Årstal")
Avatar billede steensommer Praktikant
10. september 2004 - 20:51 #4
Hej med jer og tak for de hurtige svar.
Det med .Fields gik ikke men kabbaks fungerer tilsyneladende. Men inden jeg kan afgøre det skal jeg have rettet en fejl.
Jeg får meddelelsen at der er en syntaks fejl i SzSQL (der mangler et komma eller lign). Kan i se hvad problemet er?
10. september 2004 - 20:59 #5
Burde være det samme: rsData.Fields("Årstal").Value eller rsData("Årstal").Value
Avatar billede steensommer Praktikant
10. september 2004 - 21:02 #6
Du har sikkert ret men den lavede en fejl og markerede .fields
Avatar billede steensommer Praktikant
10. september 2004 - 21:09 #7
Følgende fungerer perfekt - tak for hjælpen:

    szSQL = "SELECT Årstal, Fødselsdato FROM [HCV præ-per] WHERE [HCV] LIKE'" & IBox & "%'"
   
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
   
    HCV.Text = IBox
    Årstal.Text = rsData("Årstal").Value
    Fødselsdato.Text = rsData("Fødselsdato").Value

Svar lige så deler i point :0)
Avatar billede kabbak Professor
10. september 2004 - 21:20 #8
Ok, så gir jeg et svar. ;-))
10. september 2004 - 21:49 #9
:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester