EXCEL2002 und SQL BD Verbindung

17/09/2007 - 11:04 von Hari7750 | Report spam
unter MS Excel 2007 habe ich für ein Formular eine SQL Datenbank verbindung
per Makro so erstellt:

Sub sqlConHeader(id As String)
On Error GoTo sub_err

Dim cn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
Set oRS = New ADODB.Recordset

cn.Open "Provider=SQLOLEDB;Data Source=srv-project;" & _
"Initial Catalog=ProjectServer1_Reporting;User
ID=project;Password=project"

'Import by using OPENDATASOURCE.
strSQL = "SELECT ProjectUID, ProjectName, Kernprozesscode,
ProjectOwnerName, ProjectManagerName FROM MSP_EpmProject_UserView where
ProjectUID = '" & id & "'"

Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
oRS.Open strSQL, cn

Dim tmpStr As String

'tmpStr = Worksheets("Sheet1").Cells(5, 1).Value
'tmpStr = tmpStr + " " + oRS!ProjectName

Worksheets(1).Cells(5, 1) = "Test: " + oRS!ProjectName


Worksheets(1).Cells(6, 3) = oRS!ProjectOwnerName

Worksheets(1).Cells(7, 6) = CreateObject("WScript.Network").UserName
Worksheets(1).Cells(6, 6) = DateTime.Date

und will genauso eine Verbindung mit SQL DB unter MS Excel 2002 erstellen
aber es klappt noch nicht und sind einige Funktionen wie adExecuteNoRecords...
nicht vorhanden.
meine frage ist ob es möglich wàre, mit MS Excel2002 eine SQL DB Verbindung
per Makro zu erstellen!! wenn ja hàtte ich gerne ein Beispiel.
Danke
 

Lesen sie die antworten

#1 Hari7750
17/09/2007 - 14:00 | Warnen spam
ich wollte Excel 2003 und nicht 2002! es war ein tipfehler! also SQL
Verbindung mit Excel 2003 !sorry

"Hari7750" wrote:

unter MS Excel 2007 habe ich für ein Formular eine SQL Datenbank verbindung
per Makro so erstellt:

Sub sqlConHeader(id As String)
On Error GoTo sub_err

Dim cn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
Set oRS = New ADODB.Recordset

cn.Open "Provider=SQLOLEDB;Data Source=srv-project;" & _
"Initial Catalog=ProjectServer1_Reporting;User
ID=project;Password=project"

'Import by using OPENDATASOURCE.
strSQL = "SELECT ProjectUID, ProjectName, Kernprozesscode,
ProjectOwnerName, ProjectManagerName FROM MSP_EpmProject_UserView where
ProjectUID = '" & id & "'"

Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
oRS.Open strSQL, cn

Dim tmpStr As String

'tmpStr = Worksheets("Sheet1").Cells(5, 1).Value
'tmpStr = tmpStr + " " + oRS!ProjectName

Worksheets(1).Cells(5, 1) = "Test: " + oRS!ProjectName


Worksheets(1).Cells(6, 3) = oRS!ProjectOwnerName

Worksheets(1).Cells(7, 6) = CreateObject("WScript.Network").UserName
Worksheets(1).Cells(6, 6) = DateTime.Date

und will genauso eine Verbindung mit SQL DB unter MS Excel 2002 erstellen
aber es klappt noch nicht und sind einige Funktionen wie adExecuteNoRecords...
nicht vorhanden.
meine frage ist ob es möglich wàre, mit MS Excel2002 eine SQL DB Verbindung
per Makro zu erstellen!! wenn ja hàtte ich gerne ein Beispiel.
Danke

Ähnliche fragen