VBNet - Форум - Я просто в отчаянии... Помоги-и-ите!?!?

Вопрос: Я просто в отчаянии... Помоги-и-ите!?!? Добавлено: 20.03.04 01:49

Автор вопроса: ЗАБАВА

Люди ну такого же быть не может: вообщем так всё работае до одной непонятной штуки только если изменяю поле txtFilmTitel. т.е. ввожу новый техт тогда получаю ошибку на месте (я его указала) что-то вроде это событие в такой связи или совмещении не разрешено
Private Sub cmdЗапомнить_Click()
    sqlActionExecute ("UPDATE tbl_warenBestand SET artikelName = '" & dcArtikel.Text & "', titel = '" & txtFilmTitel.Text & "', preis = '" & dcPreis.Text & "' WHERE filmNum = " & txtFilmNum.Text)
    OpenNewRecordset ("SELECT * FROM tbl_warenBestand WHERE filmNum = " & txtFilmNum.Text)
    FormNewLoad
End Sub

Public Sub sqlActionExecute(strSQL As String)
Dim errLoop As ADODB.Error
    On Error GoTo Err_Execute
    DataEnvironment1.VK.Execute strSQL
    Exit Sub
Err_Execute
errShow
    Resume Next
End Sub

Public Sub OpenNewRecordset(strSQL As String)
    With DataEnvironment1.rstbl_warenBestand
            .Close     <font color=red>- вот на этом злощасном месте</font>
            .Open Source:=strSQL
                    'ActiveConnection:=DataEnvironment1.VK, _
                    'CursorType:=adOpenKeyset, _
                    'LockType:=adLockOptimistic, _
                    'Options:=adCmdText
            .Requery
        End With

End Sub

Private Sub FormNewLoad()
    Set txtFilmNum.DataSource = DataEnvironment1
    Set dcArtikel.DataSource = DataEnvironment1
    Set txtFilmTitel.DataSource = DataEnvironment1
    Set dcPreis.DataSource = DataEnvironment1
    Set txtDatum.DataSource = DataEnvironment1
End Sub
и эти процедуры все работают:
Private Sub txtNeuerFilmNum_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        sqlActionExecute ("INSERT INTO tbl_warenBestand(filmNum, artikelName, titel, preis) VALUES ('" & txtNeuerFilmNum.Text & "', '1', '2', '3')")
        OpenNewRecordset ("SELECT * FROM tbl_warenBestand WHERE filmNum = " & txtNeuerFilmNum.Text)
        FormNewLoad
    End If
End Sub
Private Sub txtFindFilm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        OpenNewRecordset ("SELECT * FROM tbl_warenBestand WHERE filmNum = " & txtFindFilm.Text)
        FormNewLoad
    End If
End Sub

Ответить

Ответы Всего ответов: 1

Номер ответа: 1
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #1

Добавлено: 24.03.04 15:21

Да сами процедуры и должны работать, мне вообще не нравиться DataEnvironment1, без него всегда обхожусь, но это так, к слову. а глюк может быть из-за FormNewLoad

- DataSource, что именно без понятия так ни чего и не нашел, может тип подключения не допускает изменения в тхтбоксе данных и т.д.

adOpenKeyset, - подобен динамическому, за исключением того, что он не отражает добавления сделанные этим курсором, однако отражает изменения сделанные другими пользователями.

если еще чета придумаю, напишу

Ответить

Страница: 1 |