ADOX - tilføje kolone til en eksisterende tabel

Som sædvanlig er der ikke nogen hjælp at hente her ...

Så jeg måtte jo selv rodde videre med det og har fundet ud af at linien

objColumn.Properties.Refresh

var hovedfejlen i ovenstående stykke kode ...

Jeg vil gætte på det fordi den ikke kender adVarWChar konstanten, jeg har prøvet scriptet og får denne fejl:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Jeg har prøvet at lave et stykke kode som skulle finde ud af hvilken værdi der var tal om. Ved at ligge fra olp til 256 kolonner i tabelle mius dem som måtte fejle. Med type fra 0->255. Så skulle iden være man kunne åbne tabellen og se hvilekn kolonne der var af typen tekst/text og dermed havde tallet. Det har vist sig fra 22->255 er alle blevet af typen tekst, samt 0,1 og 15.

Her er koden som jeg prøvede med:



<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
Dim objADODBConnection
Set objADODBConnection = Server.CreateObject("ADODB.Connection")
objADODBConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPathToDB & "database.mdb"

Dim objADOXDatabase
Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")
objADOXDatabase.ActiveConnection = objADODBConnection


on error resume next
for i = 0 to 255
  Dim objColumn
  Set objColumn = Server.CreateObject("ADOX.Column")

  objColumn.Name = "NyKolone"  & i
  objColumn.Type = i 'adVarWChar
  objColumn.Properties.Refresh
  objColumn.DefinedSize = 255
  objColumn.Attributes = 3 'adColFixed + adColNullable

  Set objColumn.ParentCatalog = objADOXDatabase

  objADOXDatabase.Tables("EksisterendeTabel").Columns.Append objColumn
  Set objColumn = Nothing
next

objADODBConnection.Close
Set objADOXDatabase = Nothing
Set objADODBConnection = Nothing

Den kender ikke konstanten ved dig fordi du mangler sætningen
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->

I C:\Program Files\Common Files\System\ado\adovbs.asp kan du se at værdien er 202 ... Så lærte du måske også lidt :)

ok.. :) jeps det gjorde jeg....

men min fejler ikke i linien:  objColumn.Properties.Refresh

Hmm, det gjorde min heller ikke ... den fejlede når jeg prøvede på at sætte DefindedSize el. Attributes bagefter ... men det var pga. objColumn.Properties.Refresh

Tænk sig at jeg kunne lære nr. 2 på exp.dk noget ;-) hehe