Search:

Just for information --> http://en.wikipedia.org/wiki/QuickBASIC

You can download a lot of samples here --> http://wiki.sdn.sap.com/wiki/display/BOBJ/Report+Designer+Component+SDK+COM+Samples

Where?
Crystal, Access or Data Report?

IMO it would be better to use For-Next loop


Dim X As Integer
For X = 1 To ListView1.ListItems.Count
rs.AddNew
rs!Assettag =...

You could use a FOR-NEXT loop
and inside the loop lookup for the record for that number
Following your example:


FOR X = 1 TO 10
Search your recordset with X
If the search fails then...

In QBasic we could declare a sub
What if we name it 'Connect' and write the code that Doogle posted? and simply called it

I didn't see the whole code but...
'Connect' could be a Declared Sub... we could do it in QBasic
and about

X1=(320-I)+RND|I| X2+RND|I+319
IMO some of the multiline character | must be / or :...

QBasic
... and the lines that begin with '|||||<< .... are comments

To download the toolkit see post #2

It will be very uneasy that the form loads at 3:00:00 exactly
You need to develop another aproach
... or use another event...

http://downfocus.com/translate/translate+sql+query+to+access/

It would be easy if you have a timestamp field

adoAppointments.RecordSource = "SELECT Appointments, Time FROM Appointments WHERE ID = '" & adoPatientRecords.Recordset!ID & "' AND Appointments = #" & Date & "#"


Also I would use a formated date

FIND method only allow one criteria

You could execute a SELECT_FROM_WHERE query with 2 criterias over the connection
or
FILTER the recordset with the 2 criterias
or
FILTER on one criteria and...

Try:


' ********************************************************************************
' @file BackRest.bas
' @description Backup & Restore with long file names (with spaces)
'...

Form1.ListView1.ListItems.Clear

If you post the code it will be better

http://forums.devshed.com/visual-basic-programming-52/how-to-get-the-url-visited-in-explorer-in-vb-175506.html

We can create mdb format with Access 2007 and still use VB6 & DAO
The problem here, IMHO, is to use it in Windows 64 bit

Check next links, maybe they can help you
http://www.justanswer.com/computer-programming/34fhk-hi-i-keep-gettiong-runtime-3035-error-access.html...

...and the Access database version is?
...and the Windows version is?

https://www.google.com/#biw=800&bih=457&sclient=psy-ab&q=hospital%20management%20system%20vb6%20source%20code&oq=&gs_l=&pbx=1&bav=on.2,or.r_qf.&bvm=bv.45512109,d.cGE&fp=edfffc22b68baee5&pf=p&pdl=300

Have You tried the attached project in post #4 ?

Received... and already learned how to report a post...

You should post in VB.Net forum

Try loading the rpt first
and after that set the datasource

In my case I use dbo as schema, try : MyDatabase.dbo.VType

Try


sql = "Create table MyDatabase.VType(" & _
"[vtype] [nvarchar](20)" & _
"Primary Key([VType]))"
conFind.Execute (sql)

There's an internal data type conversion from String to Integer
Try inserting the string value but with letters or special characters and see the result

As DM says
Let's say that the value is 1234 or 001234

1.-
Store the value in a string variable, let's say MyStr
Convert to numeric
Dim X As Integer
X = CInt(MyStr)
Then convert to desired...

See code in post #6
Maybe the part where I set the LogonInfo could be useful to You
http://www.vbforums.com/showthread.php?717457-Pass-Date-Parameters-from-VB6-to-CR-XI

See code in post #6
Maybe the part where I set the LogonInfo could be useful to You
http://www.vbforums.com/showthread.php?717457-Pass-Date-Parameters-from-VB6-to-CR-XI

Anyway, I forgot to show how to pass parameters to rpt from vb6 app
The rpt read data from a sql server (it doesn't matter) but could be from any db

References:
Crystal Reports Viewer Control...

That's why it's better not to use parameters in rpts that are called by an application
We ask for the dates in our own vb6 forms and just construct the RecordSelectionFormula and pass to the rpt...

Another way is SubReport on Demand but the user need to click on the subreport to show it and not on any field

I can show a new report not a subreport
You need to intercept the Clicked event in the CRViewer
Use CRVEventInfo & CRVField objects
Ask if the clicked field is Order Number then open a new viewer...

1.- I would use a Dynamic cursor instead : adOpenDynamic

2.- Try moving the add method inside the loop


'not a valid code...just to show the explanation
For
recordset.AddNew
...

One way...
-Keep the no-allowed dates in a table/list/vector/array
-when user selects any date, first thing to do is to check against that table/list/vector/array
-display a msgbox if is not a...

Also...
You could use vb6 Environ function


'displays Computer name
MsgBox Environ("ComputerName")

menu / Report / Record Sort Expert
select Currency field from Available Fields and move to Sort Fields using > button
set Sort Selection
click OK and try