ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Recordset with Primary Key (https://www.excelbanter.com/excel-programming/434604-recordset-primary-key.html)

Adax

Recordset with Primary Key
 
Hello! I have recordset r with about 50 000 records. There are about 50%
duplicate records. I have idea to guckly removing duplicats: Next recordset
r2 with Primary Key in field "x1". When I make update r2 from r, I think, I
automtically resive records without duplicates. Unfornately, I can't make
Primary Key for field. Is it possible? How make it and how make update r2
form r? Thanks!

Dim r As ADODB.Recordset
Set r = New Recordset

For i = 1 To 3
r.Fields.Append "X" & i, adDouble, , adFldUpdatable
Next i

How to set Primary Index field(1) ("X1")




UglyChicken

Recordset with Primary Key
 
On Oct 7, 7:42*am, "Adax" wrote:
*Hello! *I have recordset r with about 50 000 records. There are about 50%
duplicate records. I have idea to guckly removing duplicats: Next recordset
r2 with Primary Key in field "x1". When I make update r2 from r, I think, I
automtically resive records without duplicates. Unfornately, I can't make
Primary Key for field. Is it possible? How make it and how make update r2
form r? Thanks!

* * * * Dim r As ADODB.Recordset
* * * * Set r = New Recordset

* * * * * * For i = 1 To 3
* * * * * * * * r.Fields.Append "X" & i, adDouble, , adFldUpdatable
* * * * * * Next i

How to set Primary *Index *field(1) ("X1")


Can you modify to some like SELECT DISTINCT <field FROM <table

Adax

Recordset with Primary Key
 
Uzytkownik "UglyChicken" napisal w wiadomosci
...
On Oct 7, 7:42 am, "Adax" wrote:
Hello! I have recordset r with about 50 000 records. There are about 50%
duplicate records. I have idea to guckly removing duplicats: Next
recordset r2 with Primary Key in field "x1". When I make update r2
from r, I think, I automtically resive records without duplicates.
Unfornately, I can't make Primary Key for field. Is it possible? How
make it and how make update r2 form r? Thanks!
Dim r As ADODB.Recordset
Set r = New Recordset
For i = 1 To 3
r.Fields.Append "X" & i, adDouble, , adFldUpdatable
Next i
How to set Primary Index field(1) ("X1")

Can you modify to some like SELECT DISTINCT <field FROM <table


Thanks! But I don't have the table, I have only recordset. Is it possible
without table get SELECT DISTINCT from Recordsetu?



All times are GMT +1. The time now is 03:41 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com