Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > как уже надоело это все!

Автор: Igor Graf 12.5.2007, 15:40

в общем проблемка такая :

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;server=localhost;port=3306;Data Source=nusphere mysql;database=base; "", "" "
Set rs = New ADODB.Recordset
rs.Open "select * from users order by user_f", cn, adOpenKeyset, adLockOptimistic
Text1.Text = rs!user_f
Set DataGrid1.DataSource = rs
End Sub

при запуске формы на выполнение выдает ошибку 7004
the rowset is not bookmarkable!

народ как связать объект рекордсет с DataGrid!

Автор: Igor Graf 12.5.2007, 15:57

уф все разобрался
cn.CursorLocation = adUseClient нужно было прописать и все))
извините..

Автор: cardinal 12.5.2007, 21:23

Модератор: Название темы должно отражать ее суть!

Ну и в след. раз уж напиши для потомков, как решилась проблема...

Автор: Igor Graf 14.5.2007, 19:49

Код

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;server=localhost;port=3306;Data Source=nusphere mysql;database=base; "", "" "
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "select * from users order by user_f", cn, adOpenKeyset, adLockOptimistic
Text1.Text = rs!user_f
Set DataGrid1.DataSource = rs
End Sub