如何在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

假设您之前已经设置了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注入。

Answer 2

您的SQL代码不返回结果集，因此结果应该是实例化的记录集，但是State = adStateClosed，因此您将无法对其进行太多操作，例如：没有行也没有字段，无法测试RecordCOunt和EOF等。