vb sql

Question

Private Sub DataList1_Click()
Adodc2.RecordSource = "select * from qxsz where  用户='" & DataList1.BoundText & " ' "
Adodc2.Refresh出错行
If Adodc2.Recordset.RecordCount > 0 Then
    For i = 0 To 4
        If Adodc1.Recordset.Fields(i) = 0 Then check1(i).Value = 1 Else check1(i).Value = 0
    Next i
    Adodc2.Recordset.Update
End IfEnd Sub
请高手帮忙。谢谢

Answer 1

sql语句没发现语法错误，貌似是adodc2本身的问题，比如之前未打开连接，lz检查下控件设置和之前的代码。

Answer 2

Dim i As IntegerPrivate Sub Command1_Click()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd SubPrivate Sub Command2_Click()
For i = 0 To 4
    check1(i).Value = 0
Next i
End SubPrivate Sub Command3_Click()
If DataList1.SelectedItem Then
    Adodc2.RecordSource = "select * from qxsz where 用户='" & DataList1.BoundText & " ' "
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount > 0 Then
        For i = 0 To 4
            If check1(i).Value = 1 Then Adodc2.Recordset.Fields(i) = 0 Else Adodc2.Recordset.Fields(i) = 1
        Next i
        Adodc2.Recordset.Update
    End If
    MsgBox "设置权限已完成！"
Else
    MsgBox "请选择用户！"
End IfEnd SubPrivate Sub Command4_Click()
EndEnd SubPrivate Sub DataList1_Click()
Adodc2.RecordSource = "select * from qxsz where  用户='" & DataList1.BoundText & " ' "
'Adodc2.Refresh
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxcy;Data Source=127.0.0.1;Password="
If Adodc2.Recordset.RecordCount > 0 Then
    For i = 0 To 4
        If Adodc1.Recordset.Fields(i) = 0 Then check1(i).Value = 1 Else check1(i).Value = 0
    Next i
    Adodc2.Recordset.Update
End IfEnd SubPrivate Sub Form_Load()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd Sub
麻烦了，谢谢

Answer 3

Dim i As IntegerPrivate Sub Command1_Click()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd SubPrivate Sub Command2_Click()
For i = 0 To 4
    check1(i).Value = 0
Next i
End SubPrivate Sub Command3_Click()
If DataList1.SelectedItem Then
    Adodc2.RecordSource = "select * from qxsz where 用户='" & DataList1.BoundText & " ' "
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount > 0 Then
        For i = 0 To 4
            If check1(i).Value = 1 Then Adodc2.Recordset.Fields(i) = 0 Else Adodc2.Recordset.Fields(i) = 1
        Next i
        Adodc2.Recordset.Update
    End If
    MsgBox "设置权限已完成！"
Else
    MsgBox "请选择用户！"
End IfEnd SubPrivate Sub Command4_Click()
EndEnd SubPrivate Sub DataList1_Click()
Adodc2.RecordSource = "select * from qxsz where  用户='" & DataList1.BoundText & " ' "
'Adodc2.Refresh
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxcy;Data Source=127.0.0.1;Password="
If Adodc2.Recordset.RecordCount > 0 Then
    For i = 0 To 4
        If Adodc1.Recordset.Fields(i) = 0 Then check1(i).Value = 1 Else check1(i).Value = 0
    Next i
    Adodc2.Recordset.Update
End IfEnd SubPrivate Sub Form_Load()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd Sub
麻烦了，谢谢

Answer 4

内容貌似和第一次发的不同，不过之后发的代码中：
Adodc2.RecordSource = "select * from qxsz where 用户='" & DataList1.BoundText & " ' "
'Adodc2.Refresh
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxcy;Data Source=127.0.0.1;Password="我想顺序有问题,应该这样：
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxcy;Data Source=127.0.0.1;Password="
Adodc2.RecordSource = "select * from qxsz where 用户='" & DataList1.BoundText & " ' "
Adodc2.Refresh

Answer 5

将Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxcy;Data Source=127.0.0.1;Password="
放到form_load里面

Answer 6

在关键字“select”附近有语法错误              按了确定之后出现
实时错误'-2147217900(80040e14)':对象'Refresh'的方法'IAdodc'失败

Answer 7

都试过了，还是不行啊
错误行还是提示Adodc2.Refresh

Answer 8

Dim i As IntegerPrivate Sub Command1_Click()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd SubPrivate Sub Command2_Click()
For i = 0 To 4
    check1(i).Value = 0
Next i
End SubPrivate Sub Command3_Click()
If DataList1.SelectedItem Then
    Adodc2.RecordSource = "select * from qxsz where 用户='" & DataList1.BoundText & " ' "
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount > 0 Then
        For i = 0 To 4
            If check1(i).Value = 1 Then Adodc2.Recordset.Fields(i) = 0 Else Adodc2.Recordset.Fields(i) = 1
        Next i
        Adodc2.Recordset.Update
    End If
    MsgBox "设置权限已完成！"
Else
    MsgBox "请选择用户！"
End IfEnd SubPrivate Sub Command4_Click()
EndEnd SubPrivate Sub DataList1_Click()
Adodc2.RecordSource = "select * from qxsz where 用户='" & Trim(DataList1.BoundText) & " ' "
Adodc2.Refresh出错行！！！出错提示同上If Adodc2.Recordset.RecordCount > 0 Then
    For i = 0 To 4
        If Adodc1.Recordset.Fields(i) = 0 Then check1(i).Value = 1 Else check1(i).Value = 0
    Next i
    Adodc2.Recordset.Update
End IfEnd SubPrivate Sub Form_Load()
For i = 0 To 4
    check1(i).Value = 1
Next iEnd Sub
再发一遍，麻烦各位高手帮忙

Answer 9

你将连接字符串ConnectionString 放到右键点击adodc控件出来的那里测试一下先.看看能连上否;
RecordSource 也可以放到里面设置.用个实例测一下吧

Answer 10

建议用ado对象写代码，用控件有很多麻烦，特别是这个refresh

Answer 11

http://download.csdn.net/source/1498324

Answer 12

Adodc2.RecordSource = "select * from qxsz where 用户='" & Trim(DataList1.BoundText) & " ' "
楼主如果说是SQL语法的错误话，测试一下这个输出的SQL语句是啥？看看是否有语法错误？