Access Database Connection Sample
Average Rating: 10
Yours: -1
File Size: .02MB
Downloads Today: 0 Downloads Total: 1490

Access Database Connection Sample

Updated Jul 02, 2004 by _Martin_


danioc
Comment #1 Friday, July 02, 2004 7:58 AM
Nice
c242
Comment #2 Friday, July 02, 2004 12:12 PM
Uh. oh... Goes checking...
c242
Comment #3 Friday, July 02, 2004 12:14 PM
That is easy !
joetheblow
Comment #4 Friday, July 02, 2004 2:31 PM
ikku
Comment #5 Monday, July 05, 2004 3:11 AM
Cool object i got it working with my own database, now for the question.

it doesn't seem to update? how do i do that?

mind you, i'm a noob with scripting

Felix
_Martin_
Comment #6 Monday, July 05, 2004 3:58 AM
Made an update for you Felix so that it updates every minute.
ikku
Comment #7 Monday, July 05, 2004 5:52 AM
Hmm doesn't look to be working, and the script looks still the same?

Felix
_Martin_
Comment #8 Tuesday, July 06, 2004 12:18 AM
Maybe your download didn't work then. This is the script.


Dim accessdb
Dim ConnectionString
Dim Connection
Dim strQuery
Dim RS

'Called when the script is executed
Sub Object_OnScriptEnter
Object.SetTimer 1,60000
Object_OnTimer1
End Sub

Sub Object_OnTimer1
Object.Text = ""

'### Set the location of the database
accessdb=Object.Directory & ("db1.mdb")

'### Build a dsn-less connection string
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}"
ConnectionString=ConnectionString & "DBQ=" & accessdb

'### Create the ADO Connection object
Set Connection = CreateObject("ADODB.Connection")
Connection.Open ConnectionString

'### Create a SQL query string
strQuery = "SELECT * FROM Table1"

'### Execute the SQL query
Set RS = Connection.Execute(strQuery)

'### Maninpulate the recordset object you have just created
While Not RS.EOF
Object.Text = Object.Text & RS("Item") & ": " & RS("Value") & vbNewLine
RS.MoveNext
Wend
End Sub

'Called when the script is terminated
Sub Object_OnScriptExit
'### Clean-up

RS.Close
Connection.Close
Set RS = Nothing
Set Connection = Nothing
End Sub
ikku
Comment #9 Monday, July 12, 2004 2:00 AM
cool, it works, thanks a lot

Please login to comment and/or vote for this skin.

Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:

  • Richer content, access to many features that are disabled for guests like commenting on the forums and downloading files.
  • Access to a great community, with a massive database of many, many areas of interest.
  • Access to contests & subscription offers like exclusive emails.
  • It's simple, and FREE!

Featured DesktopX Objects

Popular DesktopX Objects

Top DesktopX Objects Skinners

Yesterday  |   Last 30 Days  |   All Time
1. _Martin_ 327
2. Frogboy 227
3. mormegil 177
4. pjpowell 143
5. theAVMAN 138
6. DaWebMassa 134
7. deggy 118
8. c242 116
9. JamesT 113
10. Island Dog 99
11. Carlitus 97
12. BoXXi 92
13. ChaosMachine 90
14. SS GOKU 90
15. MountainDragon 86



walnut3