Developing.ru

Необходимо написать программку. приравнять одно поле к другому и записать результат в третье.
Не могу вызвать необходимую таблицу и совершить операции с полями и создать еще одно поле.помогите,пожалуйста!!
Спасибо=)

strA = rs("F1").Value
strB = rs("F2").Value
strC = strA + "=" + strB
F1,F2 - это названия столбцов.
присвоение идет только по первой строке, как записать цикл присвоения по остальным строкам столбцов???помогите!!!плз=)

Здравствуйте Letyga.
подобный код поможет решить Вашу задачу:Евгений.

[offtop]Прошу прощения за оффтоп. Евгений, вы получали мое личное сообщение? Ответьте пожалуйста на мой вопрос: да или нет?[/offtop]

Спасибо,Евгений!
У меня немного другая история.
вот текст программы,нужен цикл, а я даже не знаю по какому параметру.


Sub AAA()
Dim Connection As New ADODB.Connection
Dim Catalog As New ADOX.Catalog
Dim rs As New ADODB.RecordSet
Dim Field As Field
Dim provider As String
Dim DatabasePath As String
Dim strA As String
Dim strB As String
DatabasePath = "C:\Documents and Settings\Рабочий стол\CDA01 .mdb"
provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & DatabasePath
'Connection.Open provider'
FilePathName = "C:\Documents and Settings\Рабочий стол\CDA01 .txt"
'Set Catalog.ActiveConnection = Connection'
SQL = "SELECT *FROM CDA"
rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'rs.Open SQL, Catalog.ActiveConnection, adOpenDynamic, adLockOptimistic'
rs.Fields.Refresh
strA = rs("F1").Value
strB = rs("F2").Value
strC = strA + "=" + strB
rs.Close
Open FilePathName For Output Access Write As #7
Print #7, strA, strB, strC
Close #7
Set FP = Nothing
Set Catalog = Nothing
'Connection.Close'
Set Connection = Nothing
End Sub
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Евгений,использовала ваш цикл, вот результат:

Sub AAA()
Dim Connection As New ADODB.Connection
Dim Catalog As New ADOX.Catalog
Dim rs As New ADODB.RecordSet
Dim Field As Field
Dim provider As String
Dim DatabasePath As String
Dim strA As String
Dim strB As String
DatabasePath = "C:\Documents and Settings\Рабочий стол\CDA01 .mdb"
provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & DatabasePath
'Connection.Open provider'
FilePathName = "C:\Documents and Settings\Рабочий стол\CDA01 .txt"
'Set Catalog.ActiveConnection = Connection'
SQL = "SELECT *FROM CDA"
rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'rs.Open SQL, Catalog.ActiveConnection, adOpenDynamic, adLockOptimistic'
rs.Fields.Refresh
Do Until rs.EOF
If IsNull(rs(0)) Then
ElseIf IsNull(rs(1)) Then
Else
strC = rs(0) & "=" & rs(1) 'конкатенация полей
rs.Update
End If
rs.MoveNext
Loop
'strA = rs("F1").Value
'strB = rs("F2").Value
'strC = strA + "=" + strB
rs.Close
Open FilePathName For Output Access Write As #7
Print #7, strC
Close #7
Set FP = Nothing
Set Catalog = Nothing
'Connection.Close'
Set Connection = Nothing
End Sub

только вот запись только последней строки,как всё записать в текстовый файл??
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
УРАААААААААА!!!! У меня получилось. Евгений я тупица, подумала еще чуть чуть и применила ваш вариант и всё получилось.!!!!!!СПАСИБО!!! Вот мой труд!!!!и Ваш!!!!!

Sub AAA()
Dim Connection As New ADODB.Connection
Dim Catalog As New ADOX.Catalog
Dim rs As New ADODB.RecordSet
Dim Field As Field
Dim provider As String
Dim DatabasePath As String
Dim strA As String
Dim strB As String
DatabasePath = "C:\Documents and Settings\Рабочий стол\CDA01 .mdb"
provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & DatabasePath
'Connection.Open provider'
FilePathName = "C:\Documents and Settings\Рабочий стол\CDA01 .txt"
'Set Catalog.ActiveConnection = Connection'
SQL = "SELECT *FROM CDA"
rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'rs.Open SQL, Catalog.ActiveConnection, adOpenDynamic, adLockOptimistic'
rs.Fields.Refresh
Open FilePathName For Output Access Write As #7
Do Until rs.EOF
If IsNull(rs(0)) Then
ElseIf IsNull(rs(1)) Then
Else
strC = rs(0) & "=" & rs(1)
rs.Update
End If
rs.MoveNext
Print #7, strC
rs.MoveNext
Loop
rs.Close
Close #7
Set FP = Nothing
Set Catalog = Nothing
'Connection.Close'
Set Connection = Nothing
End Sub

Здравствуйте Letyga.
Ваша задача будет выполняться даже если в коде останутся только необходимые строки:Евгений.
P.S. при размещении на странице кода, для удобочитаемости заключайте его в теги [соde]...[/соde]