VBScript + SQL Server
Дмитрий; 26.6.04

Нужен пример (на VBScript) выборки данных из таблицы SQL Server с последующим засовыванием их

в ListBox.
Я имею ввиду данные которые я записал в таблицу
следующим скриптом :

Sub OnClick(Byval Item)
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim lngValue2
Dim lngValue3
Dim Sdate
Sdate = Now

Dim strSQL
Dim objCommand
strConnectionString = "DRIVER={SQL server};SERVER=winccwincc;DATABASE=press;UID=;PWD=;"
lngValue = HMIRuntime.Tags("Breadth").Read
lngValue2 = HMIRuntime.Tags("Lenght").Read
lngValue3 = HMIRuntime.Tags("NomThickness").Read
strSQL = "INSERT INTO Table1 (data,breadth,lenght,thickness) VALUES (‘" & Sdate & "‘, " & lngValue & ", " & lngValue2 & ", " & lngValue3 & ")"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing

End Sub

Заранее благодарен.<<br>