Hent data fra SQL
Beskrivelse
Et hurtigt lille eksempel på, hvordan man kan hente data fra en SQL server
Normalt henter vi data fra SQL ind i Excel via data tabeller eller pivot, men ind i mellem har vi brug for "bare" at hente informationerne. I dette eksempel skrives de i regnearket, men det behøver man naturligvis ikke.
Se eksemplet når du har købt kurset.
Øvelse
Et hurtigt lille eksempel på, hvordan man kan hente data fra en SQL server
Normalt henter vi data fra SQL ind i Excel via data tabeller eller pivot, men ind i mellem har vi brug for "bare" at hente informationerne. I dette eksempel skrives de i regnearket, men det behøver man naturligvis ikke.
Sub HentFraSQL() Dim oCon As ADODB.Connection Dim oRS As ADODB.Recordset Set oCon = New ADODB.Connection oCon.ConnectionString = "Provider=SQLNCLI10;DRIVER=SQL Server;Server=.\SQLEXPRESS;Database=XXXX; Trusted_Connection=yes;" oCon.Open Set oRS = New ADODB.Recordset oRS.ActiveConnection = oCon oRS.Source = "Select * From Users" oRS.Open Dim c As Range Set c = Range("A2") Do While Not oRS.EOF c.Value = oRS("FirstName") c.Offset(0, 1).Value = oRS("LastName") Set c = c.Offset(1, 0) oRS.MoveNext Loop oRS.Close oCon.Close If Not oRS Is Nothing Then Set oRS = Nothing If Not oCon Is Nothing Then Set oCon = Nothing End Sub En forudsætning er at man har reference til ADODB
Udfordringen er i virkeligheden at finde den rigtige connectionstring - her kan man få hjælp fra http://www.connectionstrings.com/
Brug for hjælp til VBA, VSTO eller SQL?
Scient Data tilbyder professionel IT-konsulentbistand
Kontakt Scient Data →