DataGrid!

[GPP]

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

Option Explicit
Dim esq As String
Dim conn As ADODB.Connection
Dim rec As ADODB.Recordset

Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
conn.Open "Provider=SQLOLEDB.1;Password=" + pass.Text + ";Persist Security Info=True;User ID=" + user.Text + ";Initial Catalog=Northwind;Data Source=" + server.Text

End Sub

Private Sub Command2_Click()
Dim esq As String
Dim i As Byte



esq = "select EmployeeID,fio=FirstName+' '+LastName from Employees"


'note that concatenation is different for int and string values.
rec.Open (esq), conn, adOpenStatic, adLockReadOnly


For i = 1 To rec.RecordCount
   [b]List1.AddItem rec.Fields("fio")[/b]
   rec.MoveNext
Next i



rec.Close

End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
Set conn = Nothing
End Sub

Как все это добавить в DataGrid? Помогите пожалуйста! Искать нет возможности, у меня GPRS... А я студент... Денег нет...

[Хакер] :: То что ты студент совсем не значит, что тебе не обязательно обрамлять код тегами [cоde] или [syntаx="vb"]. Сообщение отредактировано. Надеюсь, в последний раз.

[dr.MIG]

Установить свойство грида DataSource.
P.S. Я чего-то не понимаю? - почему в коде счётчик цикла as byte?

[GPP]

не понял? Какое свойство и что там надо прописать... я в этом деле новичок... в смысле с работой БД... Помогите плиз... как в Датагрид отобразить данные полученные из БД? ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!

[alibek]

Нажимаешь F1, вводишь DataSource, читаешь.

[GPP]

alibek, нет у меня MSDN!!!

[alibek]

http://msdn.microsoft.com/library/

[Wasup!]

Установить свойство грида DataSource.

А разве DataGrid умеет работать с ADO recordset`ом напрямую, а не только через ADODC?
Мне кажется так можно вывести только в MsFlexGrid, но тогда редактирование записей нужно будет писать самому.

[Antonariy]

Таки да, умеет.

[Wasup!]

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

Dim cnn As ADODB.Connection
Dim rs  As ADODB.Recordset

Private Sub Form_Load()

Set cnn = New ADODB.Connection
cnn.CommandTimeout = 0
cnn.CursorLocation = adUseClient
cnn.Open "Provider=OraOLEDB.Oracle;Data Source=xxx;User ID=xxx;Password=xxx"

Set rs = New ADODB.Recordset
rs.Open "select * from mytab", cnn, adOpenStatic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs

End Sub

Да, всё работает

[teCa]

Пытаюсь сделать так же, в результате в строке

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

Set DataGrid1.DataSource = rs

The rowset in not bookmarkable

[dr.MIG]

Покажи весь код -- чё там в rs?...

[teCa]

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

Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open (DataEnvironment1.Connection1)
rs.Open "select * from Inventar", conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

[alibek]

Задай клиентский курсор.

[teCa]

А что это?

[alibek]

Свойство CursorLocation, в котором указывается, где физически будут хранится результаты запроса.