Здравстуйте уважаемые форумчане
Помогите пожалуйста с кодом в vb6 , мне нужно вывести результат запроса sql в текстбох или листбох . все вроде вышло результат выходит в текстбох но только в один столбец а у меня данные идут в несколько столбцов , пробывал использовать dbgrid но ввиду отсутствия у меня большого опыта никак не выходит, вот пример кода:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim rez As ADODB.Recordset
Dim Str
Str = "driver={SQL Server};Server=192.168.0.11;uid=sa;pwd=irenka;database=domestic"
Set con = New ADODB.Connection
con.ConnectionString = Str
con.Open
Set rez = New ADODB.Recordset
Set rez = con.Execute("Select empid, empname from employee")
Do While Not rez.EOF
List1.AddItem rez.Fields( 0 )
List1.AddItem rez.Fields( 1 )
rez.MoveNext
Loop
rez.Close
con.Close
End Sub
С уважением Дамир
