form1.frm

一个简单的DataReport的例子,适合初学者

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows 偺婛掕抣
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private sSQL As String

Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer
    Dim bBool As Boolean
    
    bBool = False
    
    appdisk = Trim(App.Path)
    If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
    db = appdisk
    db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
    conn.CursorLocation = adUseClient
    conn.Open db
    
    sSQL = "delete from ccc" & vbCrLf
    
    conn.Execute sSQL
    
    Rs.Open "select * from aaa", conn, adOpenKeyset, adLockPessimistic
    
    If Rs.EOF = False Then

        Do Until Rs.EOF
            
            sSQL = "insert into ccc values(" & vbCrLf
            
            For i = 1 To 4
            
                If Rs.EOF = True Then
                    bBool = True
                    GoTo emtpyrow
                End If
                            
                If i = 1 Then
                    sSQL = sSQL & "" & Rs!seqno & "," & Rs!account & vbCrLf
                Else
                    sSQL = sSQL & "," & Rs!seqno & "," & Rs!account & vbCrLf
                End If
                
                Rs.MoveNext
            Next
            
            sSQL = sSQL & " )" & vbCrLf
            
            conn.Execute sSQL
            
        Loop
        
emtpyrow:
        If bBool = True Then
            For j = i To 4
                sSQL = sSQL & ",0,0" & vbCrLf
            Next
            
            sSQL = sSQL & " )" & vbCrLf
            
            conn.Execute sSQL
        End If
    
    End If
    
    Rs.Close: Set Rs = Nothing
    
    Sleep 500
    
    DataReport1.Show 1
    
End Sub