|
Revision 28, 437 bytes
(checked in by jcc7, 3 years ago)
|
Improved ActiveX helper code and found some new things to do with it (as shown by the examples). I still need to go back and remove specific references to directories on the computer I was working on though. Also, not all of the examples work fully.
|
| Line | |
|---|
| 1 |
Dim cnn: Set cnn = CreateObject("ADODB.Connection") |
|---|
| 2 |
Dim rst: Set rst = CreateObject("ADODB.Recordset") |
|---|
| 3 |
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\MyFiles\pgm\d\src\jcc7\tests\activex\filenames.mdb'" |
|---|
| 4 |
cnn.Open |
|---|
| 5 |
rst.Open "SELECT * INTO [dBase IV; database=d:\MyFiles\pgm\d\src\jcc7\tests\activex].[dbase.dbf] FROM [tbl_turnpike_filenames]", cnn, 3, 1 |
|---|
| 6 |
Set rst = Nothing |
|---|
| 7 |
cnn.Close |
|---|
| 8 |
Set cnn = Nothing |
|---|
