Creating primary keys using VBA

[rushdib]

Hi,
How do I create primary keys for a table in VBA?

Thanks in advance,

Rushdi

 

[cmmrfrds]

Does the table already have a field that you want to make the primary key or will you add a new field as the primary key?

 

[rushdib]

Yes, the table already has a field. I created the table using make table query.

 

[cmmrfrds]

Here is example in using an ADO connection.

Function testit2()
Dim cn As New ADODB.Connection
Dim connString As String
Dim sql As String

'-- name of the column to make primary is id
sql = "ALTER TABLE Categorys " & _
"ADD constraint pk Primary Key(id); "

Set cn = CurrentProject.Connection
cn.Execute sql

End Function

See link.

http://dbforums.com/showthread.php?threadid=499823