Advertisement
Advertisement
| 06.05.2008 at 04:19AM PDT, ID: 23459738 |
|
[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: |
Sub Button2_Click()
'Defining variables
Dim cnOra As ADODB.Connection
Dim rsOra As ADODB.Recordset
Dim db_name As String
Dim UserName As String
Dim Password As String
Dim SQLQry As String
Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset
db_name = "ORCL"
UserName = "system"
Password = "manager"
'Making an ODBC connection according to ADO
cnOra.Open "DSN=" + db_name + ";UID=" + UserName + ";PWD=" + Password + ";"
rsOra.CursorLocation = adUseServer
SQLQry = "EXECUTE TSUMMARY('GEOGRAPHY')"
'Running a query
rsOra.Open SQLQry, cnOra, adOpenDynamic
rsOra.Close
cnOra.Close
Set rsOra = Nothing
End Sub
|