Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ADO / SQL /
Dim Recordset As ADODB.Recordset
Set Recordset = New ADODB.Recordset vDataBase = ActiveWorkbook.Sheets("Macros").Range("E6") ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & vDataBase & "';Persist Security Info=False" Dim r As Integer r = 5 Do Until Len(Cells(r, 1)) = 0 Sql = "append [JV_Info] set [Customer Number] = '" & Cells(r, 1) & "' Call Recordset.Open(Sql, ConnectionString, adOpenForwardOnly, adLockReadOnly, CommandTypeEnum.adCmdText) r = r + 1 Loop End Sub -- JT |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|