ich stehe vor dem Problem mit Hilfe eines Formulars eine SQL Abfrage filtern zu müssen. Unten ist ein stark vereinfachter Beispiel Code,
der momentan das Abfrageergebnis in ein Tabellenblatt schreibt.
Wie kann ich nun die Formularfelder als Bindevariable verwenden?
1.) Startdatum bezogen auf das Tabellenfeld "hire_date"
2.) Enddatum bezogen auf das Tabellenfeld "hire_date"
3.) Listenauswahl (Mitarbeitername) bezogen auf das Tabellenfeld "emp_last_name"
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCon As String
Sub VPA_Report()
Call fClearSheet(1)
strCon = "Driver={SQL Server Native Client 11.0}; Server=example;Database=test;User Id=a_user;Password=123456789;"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strCon
strSQL = "select emp_last_name, emp_first_name, hire_date from employe order by 1 asc"
rs.Open strSQL, cn
Formular.Show
'insert data into worksheet
Table.Range("A12:J12").CopyFromRecordset rs
MsgBox "query has been done"
rs.Close
cn.Close
end sub