Excel og SQL igen
HejFra Excel har jeg følgende kode der henter data fra SQL databasens tabel: Kartotek. Imidlertid vil jeg helst hente fra en Forespørgsel: "Union" (der er en sammensætning af 3 tabeller). Den fejler imidlertid når jeg forsøger. Det skal siges at det fungerede fint inden jeg konverterede til MSDE. Er der en ekspert der kan hjælpe?
vh Steen
Sub GetTable1(TargetCell As Range)
Dim strSQL As String
Dim HCVno As String, Cpr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim tmp As String
'On Error GoTo notfound
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Conn.Open "Provider=sqloledb;" & _
"Data Source=STEENS;" & _
"Initial Catalog=PatientregisteretSQL3;" & _
"Integrated Security=SSPI;"
'Her indsættes navn og sti
tmp = TargetCell.Value
strSQL = "SELECT * FROM Kartotek WHERE [Patient nr] ='" & tmp & "';"
rs.Open strSQL, Conn
With TargetCell
.Offset(0, -4) = rs("Fornavn").Value & " " & rs("Efternavn").Value
.Offset(X, -2) = rs("CPR nr")
.Offset(X, 0) = rs("Patient nr").Value
.Offset(X, 16) = rs("INDKALDELSE DATO").Value
.Offset(X, 18) = rs("Adresse").Value
End With
rs.Close
Set rs = Nothing
Exit Sub
notfound:
' rs.Close
Set rs = Nothing
MsgBox "Enkelte poster kan mangle"
End Sub
