| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Объект Connection.OpenRecordset |
| Автор: Guest 14.3.2003, 18:34 |
| Люди добрые, помогите! Имеется кусок программы: Dim wrkODBC As DAO.Workspace, conRap As DAO.Connection Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC) strDSN = "ODBC;DSN=MS Access Database;DBQ=" & strFile & ";PWD=" & strPass Set conRap = wrkODBC.OpenConnection(strDate, dbDriverNoPrompt, False, strDSN) >соединение срабатывает Set rsSet = conRap.OpenRecordset(strName,dbOpenForwardOnly) >вроде открывается Debug.Print rsSet.Fields.Count Debug.Print rsSet.RecordCount Вот теперь приплыли. Видны ВСЕ поля, но ни одной записи(Recordcount=-1). Подскажите, чего ей не хватает? |
| Автор: Guest_Wan_s 27.3.2003, 19:04 |
| чет ты нагородил слишком много. для начала скажи в чем работаеш Access или просто VB. судя по коду Access. Вот живой пример из моей рабочей базы. Private Sub SaveData_Click() Dim Db As New ADODB.Connection Dim RsZ As New ADODB.Recordset Set Db = CurrentProject.Connection RsZ.Open "Select * From [tРабочийДеталь]", Db, adOpenDynamic, & _ adLockOptimistic RsZ.AddNew RsZ.Fields("Фамилия") = Me.пФамилия RsZ.Fields("Наряд") = Me.пНаряд RsZ.Fields("Деталь") = Me.пДетали RsZ.Fields("Задание") = Me.пЗадание RsZ.Fields("НормаВр") = Me.пНормаВр RsZ.Fields("Дата") = Me.пДата RsZ.Update RsZ.Close End Sub |
| Автор: Wan_s 28.3.2003, 01:45 |
| P.S. в данном случае если перемещаешся по записям Update можно не делать, при перемещении к другой записи данные сохранятся. в данном случае запись добавляется в новую строку без перемещения. |