| Author |
Message |
    
Penkonda_tiger
Bewarse
Username: Penkonda_tiger
Post Number: 2062
Registered: 06-2005
Posted From: 62.234.167.180
| | Posted on Wednesday, August 09, 2006 - 11:38 am: |    |
Oki doki .. good to know its working  |
Bommarillu
Pilla Bewarse
Username: Bommarillu
Post Number: 392
Registered: 07-2005
Posted From: 12.41.255.10
| | Posted on Wednesday, August 09, 2006 - 11:31 am: | |
it worked. thanks pt.
Kalki: nadi ade problem |
Kalki
Desanike Pedda Bewarse
Username: Kalki
Post Number: 6734
Registered: 04-2005
Posted From: 129.33.49.252
| | Posted on Wednesday, August 09, 2006 - 9:49 am: | |
VB manaku raadu gaani MS access occhu 
 OKKA MAGADU ...The ONE and ONLY |
Bommarillu
Pilla Bewarse
Username: Bommarillu
Post Number: 391
Registered: 07-2005
Posted From: 12.41.255.10
| | Posted on Wednesday, August 09, 2006 - 9:47 am: | |
okay let me try using that. thanks... |
Penkonda_tiger
Bewarse
Username: Penkonda_tiger
Post Number: 2060
Registered: 06-2005
Posted From: 62.234.167.180
| | Posted on Wednesday, August 09, 2006 - 9:44 am: | |
aha then you have to use a RecordSet |
Penkonda_tiger
Bewarse
Username: Penkonda_tiger
Post Number: 2059
Registered: 06-2005
Posted From: 62.234.167.180
| | Posted on Wednesday, August 09, 2006 - 9:42 am: | |
Dim cn As ADODB.Connection
'Create a new ADO Connection object
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source").Value = _ "C:\Program Files\Microsoft Office\Office10" & _ "\Samples\Northwind.mdb"
.Open
.execute(“ select Table1 into table2”)
End With
Set cn = Nothing |
Bommarillu
Pilla Bewarse
Username: Bommarillu
Post Number: 390
Registered: 07-2005
Posted From: 12.41.255.10
| | Posted on Wednesday, August 09, 2006 - 9:31 am: | |
It's not as simple PT, my problem is that I have to loop thru the fields of the table 1 so that i get the correct values into table2... so help
I'm trying something else. let me see if that works. |
Gaali
Desanike Pedda Bewarse
Username: Gaali
Post Number: 11078
Registered: 03-2004
Posted From: 199.26.230.102
| | Posted on Wednesday, August 09, 2006 - 9:25 am: | |
PT where are you? Hemu gaadaithe yeepaatiki rendu diff solutions yicheevaadu.
 |
Gaali
Desanike Pedda Bewarse
Username: Gaali
Post Number: 11077
Registered: 03-2004
Posted From: 199.26.230.102
| | Posted on Wednesday, August 09, 2006 - 9:22 am: | |
ODBC yemanna setup cheyyalemo PT mama.
|
Bommarillu
Pilla Bewarse
Username: Bommarillu
Post Number: 389
Registered: 07-2005
Posted From: 12.41.255.10
| | Posted on Wednesday, August 09, 2006 - 9:21 am: | |
using Vb6.
So far I have the following code
Sub DB1DDE()
Dim intChan1 As Integer, intChan2 As Integer, intChan3 As Integer
Dim strResp1 As Variant, strResp2 As Variant, strResp3 As Variant
' In a Visual Basic module, get data from IndustryCode3 table
' in db1.mdb.
' Make sure database is open first.
intChan1 = DDEInitiate("MSAccess", "db1;TABLE tblIndustryCode3")
intChan2 = DDEInitiate("MSAccess", "db1;QUERY Query 1")
strResp1 = DDERequest(intChan1, "All")
strResp2 = DDERequest(intChan2, "All")
DDETerminate intChan1
DDETerminate intChan2
' Insert data into a table
' this is where I'm stuck
End Sub |
Penkonda_tiger
Bewarse
Username: Penkonda_tiger
Post Number: 2056
Registered: 06-2005
Posted From: 62.234.167.180
| | Posted on Wednesday, August 09, 2006 - 9:20 am: | |
mamma use an ADO object .. define the connection ... a
call the Execute method with following sql
"Select into table1 from table2"
if you want i can write a small function for u |
Gaali
Desanike Pedda Bewarse
Username: Gaali
Post Number: 11074
Registered: 03-2004
Posted From: 199.26.230.102
| | Posted on Wednesday, August 09, 2006 - 9:17 am: | |
VB code aa? 
Which version of VB are you using?
|
Bommarillu
Pilla Bewarse
Username: Bommarillu
Post Number: 388
Registered: 07-2005
Posted From: 12.41.255.10
| | Posted on Wednesday, August 09, 2006 - 9:16 am: | |
I have a table with data. how do i take this data and insert into another table using VB Code. Please help. |
