Как вставить в таблицу в VB

Question

Я хочу вставить в таблицу несколько полей в VB.Но это не дает никакого результата.

Dim a As String
a = s_up.Text1.Text
Dim b As String
b = s_up.Text2.Text
Set rs = Nothing
rs.Open "insert into profile (user_name,first_name) values(' " & a & " ',' " & b & " ' ) ", cn, adOpenKeyset, adLockOptimistic

Answer 1

Ваш SQL-код не возвращает результирующий набор, поэтому результатом должен быть инстанцированный набор записей, но с State = adStateClosed, так что вы не сможете много с ним сделать, например. не имеет ни строк, ни полей, не может быть протестировано ни для RecordCOunt, ни для EOF и т. д.

Answer 2

Предполагая, что вы установили объект ADO ранее, установка его на Nothing перед открытием набора результатов, вероятно, не является хорошей идеей.Попробуйте удалить эту строку, чтобы увидеть, поможет ли это.то есть

Dim a As String
a = s_up.Text1.Text
Dim b As String
b = s_up.Text2.Text
rs.Open "insert into profile (user_name,first_name) values(' " & a & " ',' " & b & " ' ) ", cn, adOpenKeyset, adLockOptimistic

о да, и этот подход не самый безопасный.Ознакомьтесь с рекомендациями, чтобы избежать внедрения SQL.