Need to edge out the competition for your dream job? Train for certifications today.
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Dim CN As ADODB.Connection
Dim CMD As ADODB.Command
Dim RS As ADODB.Recordset
Private Function Connect() As Boolean
Set CN = New ADODB.Connection
.CursorLocation = adUseClient
' this is going to open an access database in the program's directory named data.mdb... change it to the name and location of your database
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "DATA.mdb"
If CN.State <> adStateOpen Then
MsgBox "Uable to open the database. Uable to continue.", vbExclamation, "Login"
Connect = False
Connect = True
Private Sub PrintData()
Dim sSQL As String
Dim i As Long
Dim J As Long
On Error Resume Next
If NOT Connect() Then Exit Sub
sSQL = "SELECT bill_no, bill_date, bill_amt from billing WHERE bill_no BETWEEN " & txtBillStart.Text & " AND " & txtBillEnd.Text & " ORDER BY bill_no ASC"
Set CMD = New ADODB.Command
.CommandText = sSQL
.CommandType = adCmdText
.ActiveConnection = CN
Set RS = CMD.Execute
If CN.Errors.Count > 0 Then
If RS.State <> adStateOpen Then GoTo EXITRTN
If RS.EOF Or RS.BOF Then GoTo EXITRTN
While Not RS.EOF
Printer.Print RS("bill_no").Value & chr(9) & RS("bill_date").Value & chr(9) & RS("bill_amt").Value
Set CMD = Nothing
Set RS = Nothing
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment