Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > обновление cn и rs


Автор: Igor Graf 19.7.2005, 10:22
Привет народ!

Вопрос по mysql
короче, создал я коннект и рекордсет(см код ниже)
хотелось бы узнать как програмно обновлять recordset и коннекшен, ну что-то типа refresh

Код

Dim WithEvents cn As ADODB.Recordset
Dim WithEvents rs As ADODB.Connection


Код

Private Sub Form_Load()
If cn Is Nothing Then
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = "MSDASQL.1"
cn.CommandTimeout = 10
cn.Open "server=localhost; Data Source=nusphere mysql", _
"", ""
End If
If rs Is Nothing Then
Set rs = New ADODB.Recordset
rs.Open "students", mcnnMain, adOpenKeyset, _
adLockOptimistic, adCmdTable
If Not (rs.BOF And rs.EOF) Then rs.MoveFirst
End If
End Sub


с уважением Graf smile

Автор: Akina 19.7.2005, 13:33
Requery

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)