Вопрос по RecordCount

[dimalib]

Проверте пожалуйста что тут не так написано:
Dim g As Integer
Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
i = 0
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\cbs.mdb")
strsql = "select " & "n" & " FROM " & "forma6nk"
Set rs = db.OpenRecordset(strsql)
If Not rs Is Nothing Then
If Not rs.EOF Then
rs.MoveLast
rs.MoveFirst
For g = 0 To rs.RecordCount - 1
g = rs("n")
rs.MoveNext
If g > 0 Then
i = i + 1
Text1.Text = i
End If
Next g
End If
End If

Говорит что “ type mismath” и тычет на g = rs("n")

[corgi]

попробуй
msgbox rst.Fields(0)
вместо твоей строчки

[Cyrax]

ну все правильно он тычет... потому что нужно делать так:

Код: Выделить всё

g = rs.Fields("n")

[Dzhon]

Если не хочешь как сказал Cyrax, тогда нужно добавить пробелы в strsql
Примерно так:
strsql = "select " & " " & "n" & " " &" FROM " & " " & "forma6nk"
иначе строка получается слитная.

[Dzhon]

Извиняюсь! Что-то я не в тему сморозил.