ms access db to vb6

[ismah]

how to transfer data from excel to ms access database?? and how to retrieve data from ms access database using visual basic 6.0??anybody can help me..

[ling_tj]

first of all you have to add many components
-Ms ADO Data Control 6.0
-Ms Common Dialog 6.0

on A1, B1, C1, ... (Row Excel) fill with name of atributes on table as like as Access.
for example ID, Name
start the data that you what to save in A2, B2, ...

this is the code:

Dim db As ADODB.Connection

CommonDialog1.InitDir = ""
CommonDialog1.DialogTitle = "Select the Excel File to import from"
CommonDialog1.Filter = "Excel(*.xls)|*.xls"
CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then
    Set db = New ADODB.Connection`
    db.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & App.Path & "\testA.mdb;Persist Security Info=False"
    db.Open
    sqlstring = "INSERT INTO test SELECT * FROM [Excel 8.0;HDR=YES;Database=testE.xls].[Sheet1$]"
Else
    MsgBox "File not exists"
End If

CommonDialog1.FileName = ""
db.Execute sqlstring
MsgBox "Successfully Imported"
db.Close
Set db = Nothing

note:
testA is the name of database Access
testE is name of Excel file
test is table name.

[ihsan shah]

Can i download visual babic from the internet

[ling_tj]

Yes, you can.