Anshoo Arora has a great QTip for saving a file via Internet Explorer. This will produce similar results to manually right-clicking a link and choosing “Save as”: ‘Simulate a web query Set WinHttp = CreateObject(“WinHttp.WinHttpRequest.5.1″) If WinHttp Is Nothing Then Set WinHttp = CreateObject(“WinHttp.WinHttpRequest”) WinHttp.Open “GET”, “http://www.website.com/Documnet_i_want_to_save.pdf”, False WinHttp.Send ‘Get the response arrArray = WinHttp.ResponseBody …
Category Archive: ADODB
Apr 12 2008
Display records where “Departure_Initials” starts with an “L”
This example uses the QTP_Flight32 DSN to database connection. The example is based on the Flight Reservation demo database. [hideit] Dim oConn, oRst, oField Dim sql, nCount nCount = 1 set oConn = CreateObject( “ADODB.Connection” ) oConn.Open “QT_Flight32″ set oRst = CreateObject( “ADODB.recordset” ) sql = “SELECT Flight_Number, Airlines FROM Flights WHERE Departure_Initials LIKE ‘L%’” …
Apr 12 2008
Display Records
The following example demonstrates how to display all records from a table. and loop thorough a record-set. Dim oConn, oRst, oField Dim sql set oConn = CreateObject(“ADODB.Connection”) oConn.Open “QT_Flight32″ set oRst = CreateObject(“ADODB.recordset”) oRst.Open “Select * from Orders”, oConn Do Until oRst.EOF For each oField in oRst.Fields Print oField.Name & ” = ” & oField.Value …
Apr 01 2008
Create and Delete a DSN
a DSN, is a way for you to connect to a database merely by referencing the DSN name, and without having to specify the entire path to the database. That’s particularly handy if you have a bunch of scripts that access this database. If you hard-code the path into the scripts and then move the …
Apr 01 2008
Get a list of the ODBC drivers installed
The registry, is the upstairs closet of the operating system: if you’re willing to look, you can find almost anything in the registry. That’s where can be found the list of installed ODBC drivers, in HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers. Const HKLM = &H80000002 Set reg = GetObject( “winmgmts:\\.\root\default:StdRegProv” ) keyPath = “SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers” reg.EnumValues HKLM, keyPath, valueNamesArr, …
Apr 01 2008
Retrieve a list of the system DSNs installed
If you have no idea what we’re talking about System DSNs are simply a shortcut method for connecting to databases and other data sources. You can view a list of the System DSNs available on a computer by bringing up the ODBC Data Source Administrator dialog box and looking on the System DSN tab That’s …
Apr 01 2008
Sort data with disconnected record set
Sorts numerical data using a disconnected record set. [hideit] Const adInteger = 3 Const MaxCharacters = 10 Dim sampleArr( 20 ) For i = LBound( sampleArr ) to UBound( sampleArr ) sampleArr( i ) = RandomNumber( 1, 1000 ) Next Print “Array before sorting :” For Each num In sampleArr Print num Next ‘ ** …
Apr 01 2008
Add a New Record to a Table
The following code demonstrates how to add a new record to a table. The example uses the Flight Reservation Database. Const adOpenStatic = 3 Const adLockOptimistic = 3 Set oConn = CreateObject( “ADODB.Connection” ) Set oRst = CreateObject( “ADODB.Recordset” ) oConn.Open “QT_Flight32″ oRst.Open “SELECT * FROM Flights” , oConn, adOpenStatic, adLockOptimistic oRst.AddNew oRst( “Flight_Number” ).Value …
Apr 01 2008
Create a New JET Database
The following code demonstrates how to create a new database named New_db.mdb. Set oConn = CreateObject( “ADOX.Catalog” ) oConn.Create “Provider = Microsoft.Jet.OLEDB.4.0; ” & _ “Data Source = new_db.mdb”
Apr 01 2008
Create a Table in a JET Database
The following code demonstrates how to create a new table in the Flight32.mdb Set oConn = CreateObject( “ADODB.Connection” ) oConn.Open “QT_Flight32″ oConn.Execute “CREATE TABLE EventTable(” & _ “EventKey COUNTER ,” & _ “Category TEXT(50) ,” & _ “ComputerName TEXT(50) ,” & _ “EventCode INTEGER ,” & _ “RecordNumber INTEGER ,” & _ “SourceName TEXT(50) ,” …
Welcome!
Register now!
GTEN offshore services
Seeking affordable professional services without compromising on quality? Our GTEN experts would deliver IT on time and budget.
For more details contact us
Recent Comments