VBNet - Форум - Изменение данных в базе данных

Вопрос: Изменение данных в базе данных Добавлено: 12.09.02 10:12

Автор вопроса: dam

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

cn.Open "DSN=di"

Set rs = cn.Execute("update am set id =" & Text2.Text & " where id=" & Text1.text)

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

Ответить

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

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

dam

Вопросов: 12
Ответов: 27

Профиль | | #1

Добавлено: 12.09.02 10:38

О, Почему не работает?

Что делать

Ответить

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

Evgeny D

Вопросов: 10
Ответов: 33

Профиль | | #2

Добавлено: 12.09.02 12:39

У меня используется вот что (SQL Server)

Main1.dbOP.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=xxxxata Source=OP", "xxxx", "xxxx"

Ответить

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

Evgeny D

Вопросов: 10
Ответов: 33

Профиль | | #3

Добавлено: 12.09.02 12:39

У меня используется вот что (SQL Server)

Main1.dbOP.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=loginata Source=OP", "login", "password"

и все работает

Ответить

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #4

Добавлено: 12.09.02 13:06

рекордсет там не нужен если ти данные получать не собираешься.

cn.Execute "update am set id =" & Text2.Text & " where id=" & Text1.text

На какой строке ошибку выдает? Или просто не обновляет?

Ответить

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

dam

Вопросов: 12
Ответов: 27

Профиль | | #5

Добавлено: 16.09.02 10:21

Надпись типа не хватает каких - то свойств

Ответить

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

dam

Вопросов: 12
Ответов: 27

Профиль | | #6

Добавлено: 16.09.02 10:31

Set rs = cn.Execute("update am set id =" & Text2.Text & " where id=" & Text1.Text)

rs.Close Здесь происходит остановка и надпись операция не допускпется т.к. объект закрыт

Ответить

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

Satrapp

ICQ: 75556561

Вопросов: 8
Ответов: 80

Профиль | | #7

Добавлено: 16.09.02 11:18

попробуй что-нить в этом духе...

rsMy.CursorType = adOpenKeyset
   rsMy.LockType = adLockOptimistic
   rsMy.Source = "anlrksad"
   rsMy.ActiveConnection = cnMy
   rsMy.Open

Ответить

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #8

Добавлено: 16.09.02 14:02

Внимание ! Повторяю! Поезд оходит с 8-го пути...

Народ! Я уже как то говорил. Создается впечатление, что те кто задает вопросы, не следят за ответами. Я ж написал вроде по русски: РЕКОЕДСЕТ ТАМ НЕ НУЖЕН!

Public Sub ExecuteSQL(strSQL As String)

Dim cnn As Connection

    Set cnn = New Connection
    cnn.Open strConnect
    cnn.Execute strSQL
    cnn.Close
    Set cnn = Nothing

End Sub

Это маленькая вспомогательная ф-я из моего кода. Дла таких случаев,когда надо чего то поменять. Где strSQL- строка которую нужно исполнить, strConnect-коннект цтрока. Которую можно вдолбить константой где нибудь в нажале.

И ВСЕ!!!!.

Ответить

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

dam

Вопросов: 12
Ответов: 27

Профиль | | #9

Добавлено: 17.09.02 09:22

Работает, но будем тестировать!!!

Ответить

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

dam

Вопросов: 12
Ответов: 27

Профиль | | #10

Добавлено: 17.09.02 09:33

Работает без вопросов!!!

Ответить

Страница: 1 |