Using MS Access 2000 database (mdb) in Visual Basic 6

Thanks!

I'll try it in a few moments, but in the meanwhile can I ask another quick question?

How can I reset autonumber field in a table? My auto numbers are allways starting from different number (incremental).
I heard somewhere that this is a feature which prevents conflicts, but there is no data which could be conflicted yet.

So can I reset autonumbers to start back from 1?

( I'm not planning to use this field for anything. It's just annoying! )

Thanks.

I have been able to make these basic functions work. It will be enough to start my project.
I know there's a whole world of databases for me to learn, but I'll learn it as I develop my app.

I'm experimental type. I can't help it. I need to have something "visible" before I learn theory.
This is why I never learned databases. All books were trying to teach me complete theory before showing me how this works in practice.

jkwasson

You're right. It's not worth the trouble :-)
This fileld won't be visible to the end user anyway.

About the Auto Number Type Fields in Access Database tables;
Select "Tools > Database Utilities > Compact Database".
If your table has no records, this will reset the value back to 1. If your table has records, this will set the auto number sequence back to the next incremental number already in the field.

bdb

Thanks bdbrown.

Hi again to everyone!

Datagrid sollution still works. :-)
But now I'm trying to examine different approaches.

Currently I'm trying to learn how to use DAO objects to open some database.

I managed to open the databse and a table.
I can get the list of Fields and number of Records.

But I can't figure how to get a specific value from that table.

 - this is my code:
'--------------------------------------------------
Private Sub Command1_Click()
    Dim myDatabase As Database
    Dim myTable As TableDef
    Dim myField As Field

    Set myDatabase = OpenDatabase("e:\davor\videoteka\videoteka2.mdb")
    Set myTable = myDatabase.TableDefs("Filmovi")
    Set myField = myTable.Fields("Broj")
   
    For Each x In myTable.Fields
        Print x.Name
    Next x

    Print myField.Name
    Print myTable.RecordCount
End Sub
'-----------------------------------------------------

If the table looks like this:

======================================================
Number (auto)        Name           Surname              Address                Telephone
-------------------------------------------------------------------------------------------------
    1                    SDFSDa         dFGErgerg           ERTFFFR 45            11324454
    2                    FGHJRRJ        regdsffgdf            dfgsdfer  43            57456455
    3                    JGFBBDE        xcwEWDF            ERGDFErr  4             5645322
    4                    dfgETHh         trteRTEFF           retewrgG 5              12333222
    5                    SDFSDa         ASDASDA            SASDQ 2                 23423626
    6                    rtzGHRT         GHRTTTR            wESDFG2 3             66544433
=======================================================

How do I get a specific value (Cell)?            For example: How do I get and Address value of record under Number 5    (SASDQ 2)  ?

I'm using DAO 3.6.



If someone answers this, I'll open new "Points for ..." question, and point to it.

dbrckovi;

You can use a lookup function on an indexed field using the Table type recordset as follows;
(assuming the field "Number" in your example is the "PrimaryKey" index)

'--------------------------------------------------
Private Sub Command1_Click()
    Dim myDatabase As Database
    Dim myTable As Recordset

    Set myDatabase = OpenDatabase("e:\davor\videoteka\videoteka2.mdb")
    Set myTable = myDatabase.TableDefs("Filmovi", dbOpenTable) ' open as Table-type

    myTable.Index = "PrimaryKey"
    myTable.Seek "=", 5 ' any number you wish to find in the indexed field

    If myTable.NoMatch then
        Print "Record not found"
    Else
         'Record found
         Print myTable.Fields("Address")
    End If

     Set MyTable = Nothing
     MyDatabase.Close

End Sub
'----------------------------------------------------    

You can also use the "FindFirst", "FindNext", "FindLast" methods of a dynaset- or snapshot-type recordset.

    Set myTable = myDatabase.TableDefs("Filmovi", dbOpenDynaset) ' open as Dynaset

    MyTable.FindNext "[Number] = 5"

bdb

Hi!

I get an error in this line:          Set myTable = myDatabase.TableDefs("Filmovi", dbOpenTable)
It says: Wrong number of arguments or invalid property asignment.

As I can see, TableDefs recieves only one argument, but if I remove dbOpenTable, I get Type mismatch error in the same line.

What is wrong?

Sorry,  my mistake - the line should read;

    Set myTable = myDatabase.OpenRecordset("Filmovi", dbOpenTable)  ' open as Table-type

bdb

bdbrown:
Thanks. It works.

I have oppened the "Points for" question here:
https://www.experts-exchange.com/questions/21159100/Points-for-bdbrown.html

Post something there and you'll get the points you deserved.

Would like to ask a question beyond this one.

If access 2000 is not installed on the computer, is it possible to connect to the database ?????

if yes, with which connection type can we use ?  I know that adodb is not working ...

thanx

weeb0;

You should really open a new post for a new question, especially if your not the author of the original question.

bdb