急求，相干数据库的

2013-07-04

急求，有关数据库的现在这两段代码有点问题，但不知道怎么改正，初学VB不久望大家知道1、Dim xbc As StringDim

急求，有关数据库的
现在这两段代码有点问题，但不知道怎么改正，初学VB不久望大家知道

1、Dim xbc As String
   Dim rs As New ADODB.Recordset
   Dim num As Integer
   Dim cn2 As New ADODB.Connection
   Dim ls As String

   ls = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\diren.mdb"
   cn2.Open ls

   xbc = "select * from 敌人"
   rs.Open xbc, cn2, 3, 1
   MSFlexGrid1.Cols = rs.Fields.Count
   num = rs.RecordCount
   MSFlexGrid1.Row = num + 1

   MSFlexGrid1.FixedRows = 1
   MSFlexGrid1.FixedCols = 1
   rs.MoveFirst
   For i = 1 To num - 1
       For j = 0 To rs.Fields.Count - 1
           MSFlexGrid1.TextMatrix(i, j) = rs(j)
       Next j
       rs.MoveNext
   Next i

   rs.Close


End Sub

这个错误时实时错误30009 row值无效什么的

2、Private Sub Command1_Click()
   Dim rs As New ADODB.Recordset
   Dim sql As String
   Dim jr As Integer

   sql = "select*from 组织编号"
   rs.Open sql, cn, 3, 1
   For jr = 1 To sr.RecordCount
       If rs("编号") = Text1.Text Then
          MsgBox "已成功登陆"
          Command2.Enabled = True
          Exit For
     End If
     rs.MoveNext
   Next jr
End Sub

其中cn在前一个form里是 Public cn As New ADODB.Connection
这个错误是实时错误3001 数据库 SQL
[解决办法]

Dim xbc As String
    Dim rs As New ADODB.Recordset
    Dim num As Integer
    Dim cn2 As New ADODB.Connection
    Dim ls As String

    ls = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\diren.mdb"
    cn2.Open ls

    xbc = "select * from 敌人"
    rs.Open xbc, cn2, 3, 1

    '这段代码(称A代码块)可以用一个简单语句替换：set MSFlexGrid1.datasource=rs
    MSFlexGrid1.cols = rs.fields.Count
    num = rs.RecordCount
    MSFlexGrid1.Rows = num + 1 '是rows 不是row
    MSFlexGrid1.cols = rs.fields.Count + 1

    MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.FixedCols = 1

    rs.MoveFirst
    i = 1
    While Not rs.EOF
        For j = 0 To rs.fields.Count - 1
            MSFlexGrid1.TextMatrix(i, j) = rs(j)
        Next j
        rs.movenext
    Wend

    rs.Close
    '称A代码块到此结束
End Sub

Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim jr As Integer

    sql = "select*from 组织编号"
    rs.Open sql, cn, 3, 1 'cn不在同个窗体，应该使用Form1.cn ,或者将cn定义到bas模块
    For jr = 1 To sr.RecordCount
        If rs("编号") = Text1.Text Then
            MsgBox "已成功登陆"
            Command2.Enabled = True
            Exit For
        End If
        rs.movenext
    Next jr
End Sub

[解决办法]
问题1：
ls = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\diren.mdb"
cn2.Open ls
xbc = "select * from 敌人"
if rs.state<>adstateclosed then rs.close
set msflexgrid1.datasource=rs
rs.close

问题2：
1),rs.Open sql, form1.cn, 3, 1
2),检查代表中的表名与字段名与数据库中是否一致

热点排行