ник: Gold Man
туплю по-страшному.
пересмотрел кучу примеров по поиску.
Переношу приведенные примеры в свою задачу - не работают. То ли не подключаю какую-то библиотеку, то ли путаю типы подключения.
Задача - из таблицы считать столбец, пробежаться по записям, обработать каждое значение и вставить его в другую таблицу.
Пробую так
Private Sub кнопка13_Click()
Dim tb1 As ADODB.Recordset
Set tb1 = New ADODB.Recordset
Sql = "select ogl from tbl "
tb1.Open Sql
tb1.MoveFirst
Do While tb1.EOF = False
Str1 = tb1("ogl")
For i = 1 To Len(Str1)
ch = Mid(Str1, i, 1)
DbCurrent.execute ("INSERT INTO tbl1( word ) VALUES (" & Str1 & ");")
Next
tb1.MoveNext
Loop
Set tb1 = Nothing
End Sub
|
В таком случае пишет "невозможно использовать подключение для выполнения операциию Оно закрыто или не допускается в данном контексте"
Выручайте, люди! Access 2003