|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: |
Option Compare Database
Option Explicit
Public Sub RunPassThroughQuery() '(SQLString As String)
Dim oConn As ADODB.Connection
Dim oRec As ADODB.Recordset
Dim conStr As String 'connection string
Dim rConn As ADODB.Connection
Dim strDir As String
On Error GoTo ErrorHandle
Set rConn = CurrentProject.Connection
Set oConn = New ADODB.Connection
Set oRec = New ADODB.Recordset
With oConn
.CursorLocation = adUseClient
.CommandTimeout = 3600
End With
oConn.Open "Provider= Teradata;" & _
"DBCName= P5450;" & _
"Database= MWAD_USERDB;" & _
"Uid= Username;" & _
"Pwd= Password"
oRec.Close
oConn.Close
rConn.Close
Exit Sub
ErrorHandle:
MsgBox Error()
Exit Sub
End Sub
|
Advertisement
| Hall of Fame |