Quote (qwertEHOK)
- вот тут вывод на экран, а надо на форму
вот тут выводи данные в текстовый файл используя метод Write обьекта FileSystemObject, затем читаешь этот файл в листбокс. Путь к файлу - testfile.txt - замени на свой, если оставишь без пути, то файл будет лежать в папке скрипта. Если скрипт внедрить в проект, то файл будет доступен по пути как <Embedded>\testfile.txt, иначе по указанному тобой полному пути.
Code
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile("testfile.txt", 2, True)
Set objConn = CreateObject("ADODB.Connection")
ServerName = "192.168.0.1"
DSN = "base"
UID = "user"
PWD = "user"
ConnectString = "Provider=MSDASQL.1;Password=user;Persist Security Info=True;User ID=user;Data Source=informix7"
objConn.ConnectionString = ConnectString
objConn.ConnectionTimeOut = 15
objConn.CommandTimeout = 30
objConn.Open
Set objRecordset = objConn.Execute("SELECT resp_id FROM resp_exec")
While Not objRecordset.EOF
strRes = vbNullString
For i=0 To objRecordset.Fields.Count-1
strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbTab
Next
F.WriteLine Trim(strRes)
objRecordset.MoveNext
Wend
objConn.Close
F.Close
Set FSO = Nothing
Set objConn = Nothing
Set objRecordset = Nothing
Добавлено (17 Декабрь 2010, 15:45)
---------------------------------------------
ну и работать эта шняга будет только при установленных в системе драйверах ODBC.
Все права защищены
