Display data from access into spreadsheet

[dhaya123]

Hi,

Could anyone give a solution for display the msaccess data into the excel spreadsheet.

I am having the code to display it on Listbox but needed to display on the worksheet2.

code:
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open _
"Provider = Microsoft.ACE.OLEDB.12.0; " & _
"Data Source = C:\Users\a.accdb"
ComboText = ComboBox1.Text
'objRecordset.Open " select col1 FROM tab1", _
'objConnection

objRecordSet.Open " select co1 FROM tab where col1 ='" & ComboText & "' order by ScenId ", _
objConnection
objRecordSet.MoveFirst
Count = 0
Do Until objRecordSet.EOF
:::::::Need to add the code here
'activesheet.
'Set list_item = ListView1.ListItems.Add(, , objRecordSet!col1)
'Item = objRecordset(Count).value
'InputScreen.ComboBox1.AddItem (Item)

objRecordSet.MoveNext
Loop
objRecordSet.Close
objConnection.Close

 

[AlexHedley]

http://office.microsoft.com/en-gb/a...ata-between-access-and-excel-HP001095095.aspx

http://office.microsoft.com/en-gb/e...ss-database-to-your-workbook-HA102840045.aspx

 

[dhaya123]

Thank you Alex

 

[dhaya123]

Insert into multiple values in a single statement

Hi,

Could any one tell me how to insert a multiple values in vba.

I tried but dnt get solution:banghead:

CharName = ComboBox1.Value
Created = TextBox1.Value
Modu = TextBox3.Value
'Connection String
Set objConnection1 = CreateObject("ADODB.Connection")
Set objRecordset1 = CreateObject("ADODB.Recordset")
objConnection1.Open _
"Provider = Microsoft.ACE.OLEDB.12.0; " & _
"Data Source = source"




Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = objConnection1
cmd.CommandText = " INSERT INTO ScenDetails (Charter,PreparedBy,Module) VALUES ('" & CharName & "', '" & Created & "', '" & Modu & "' )"
'cmd.Execute


'Displaying in List Box
Set objRecordset1 = Nothing
objConnection1.Close
Set objConnection1 = Nothing



please help me in this:banghead::banghead::banghead::banghead::banghead::banghead::banghead::banghead::banghead::banghead: