[RESOLVED] Databse Problem...

[greythej]

I am tryin to create a form for my database in vb6.

the tables were made in access and saved to the harddrive

i add a data control to the form and set the DatabaseName to the access database i have created...

i then try to set the RecordSource to a table in the database, however when i click on the drop down arrow to select the table ann error message comes up stating that a '.mdb' is an unrecognised database format????

any help would be greatly appreciated

GTJ

[westconn1]

what version of access?
and what is the control using to connect, ADO or DAO?

pete

[greythej]

Access 2000 and what is ADO or DAO?

[Mark Gambo]

I am tryin to create a form for my database in vb6.

the tables were made in access and saved to the harddrive

i add a data control to the form and set the DatabaseName to the access database i have created...

i then try to set the RecordSource to a table in the database, however when i click on the drop down arrow to select the table ann error message comes up stating that a '.mdb' is an unrecognised database format????

any help would be greatly appreciated

GTJ

Before you use Bound Controls you should Read This Article entitled "Why Data Binding and the like are evil" (Link courtesy of Hack).

Here is what I use to connect to an Access Database:

Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Dim strSQL As String
Dim a As Single
Dim strConnectString as String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
 
strDBCursorType = adOpenDynamic  'CursorType
strDBLockType = adLockOptimistic   'LockType
strDBOptions = adCmdText         'Options
 
Set cn = New adodb.Connection
 
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source=" & App.Path & "\[color="#FF0080"][B]YourDatabaseName.mdb[/B][/color]" & _
                      ";Jet OLEDB:Engine Type=5;"
 
cn.Open ConnectString
    
    With cn
        .CommandTimeout = 0
        .CursorLocation = adUseClient
    End With
 
Set rs = New adodb.Recordset       'Creates record set
 
strSQL = "SELECT * "
strSQL = strSQL & "FROM [B][color="#FF0080"]YourTableName[/color][/B];"
 
rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
 
If rs.RecordCount = 0 Then
    MsgBox "No Records"
Else
 
    For a = 1 To rs.RecordCount ' Loops through Recordset
 
        'Put your code here
         Me.Text1.Text = [B][color="#FF0080"]rs!FieldName1[/color][/B] & ""
         Me.Text2.Text = [B][color="#FF0080"]rs!FieldName2[/color][/B] & ""
            '.....
 
        rs.MoveNext
    Next a
 
End If
 
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Change the Code in Red to the names of your schema.

[kulitag]

data controll doesn't recognize access 2000 or higher's database, you have to download sp6 and mdac at microsoft

[greythej]

visual basic sp6 or access sp6?

[kulitag]

vb sp6

[dee-u]

And the latest MDAC....