Public Function somefunctioncall() As String
Dim objConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
str = ""
Set objConn = opendb
Set rs = objConn.Execute("SELECT * FROM sometable order by somefield ")
Do While Not rs.EOF
'some code here
str = listAppend(str, rs(0) & ";" & rs(1), ";")
rs.MoveNext
Loop
objConn.Close
Set objConn = Nothing
Set rs = Nothing
sqlRWsrc = str
End Function
Public Function opendb() As ADODB.Connection
Dim ORACLE_ConnString As String
Dim SQL_ConnString As String
Dim MSACCESS_ConnString As String
'*****************************************************************
' this variable is used only when accessing a MS Access database
Dim MSAdbPathAndName As String ' "C:\Reports\Database\msaccessdatabase.mdb"
'*****************************************************************
Dim DBN As String ' "DATABASENAME"
Dim UID As String '"yourusername"
Dim PWD As String '"yourPASSWORD"
Dim DBS As String '"SERVERNAME"
DBS = "thisismywebservername"
UID = "thisisme"
PWD = "thisismypassword"
DBN = "thisismydbname"
ORACLE_ConnString = "Provider=msdaora;Data Source=" & DBN & _
";User Id=" & UID & ";Password=" & PWD & ";"
SQL_ConnString = "Provider=SQLOLEDB;DATA SOURCE=" & DBS & _
";UID=" & UID & _
";PWD=" & PWD & _
";Initial Catalog=" & DBN & ";"
MSACCESS_ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
MSAdbPathAndName & ";"
Set opendb = New ADODB.Connection
' *************** preferred connection string ***********
' uncomment the one you need
' *******************************************************
' opendb.Open ORACLE_ConnString
' opendb.Open SQL_ConnString
' opendb.Open MSACCESS_ConnString
End Function
Comment