Application.WorksheetFunction.Transpose

altså når jeg kigger på tmpList i Watches vinduet ser posterne ud som følg.:

tmpList(0)                          Variant(0 to 8)
  tmpList(0,0)    "11111111"        Variant/String
  etc.

jeg synes at du tager et par omveje, hvorfor gør du det ?
Prøv at skimme nedenstående som jeg bruger til at hente data til en list.

Public Liste()
Public Sub GetTable()

    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String
    Dim Database As String
    Dim Tabel As String
    Database = "o:\logistik\database\logistik.mdb"
    Tabel = "leverandørkart"

    'connection string.
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Database & ";"
   
    'SQL Statement.
    szSQL = "SELECT Navn, Konto " & _
            "FROM " & Tabel & _
            " WHERE Aktiv = True " & _
            "ORDER BY Navn"
   
    'Create the Recorset object and run the query.
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, _
                adLockReadOnly, adCmdText
               
    Liste = Application.WorksheetFunction.Transpose(rsData.GetRows)
End Sub

Okay - det lyder da for nemt - tester lige...

Den siger stadig mismatch 

Jeg viser lige hele funktionen:

Public Function GetCust(DBTable As String)
'****************************************************************************************
'*          Function created on 1. October 2003 by Morten Frederiksen                                                                                      *
'*          Function changed on
'*
'****************************************************************************************
'*    Værdier der skal bruges til at hente oplysning fra settings arket              *
'****************************************************************************************

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim intColIndex As Integer
Dim DBPath, DBBase, i, j, k, tmpList As Variant, tmpRSList As Variant
Dim Count1, count2, posten As Variant
DBPath = GetName("strPathDB")
DBBase = GetName("strMainDB")


    ' open the database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        DBPath & DBBase & ";"
    Set rs = New ADODB.Recordset
    With rs
        ' open the recordset
        .Open DBTable, cn, adOpenStatic, adLockOptimistic, adCmdTable


        GetCust = Application.WorksheetFunction.Transpose(rs.GetRows)

    End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Function

prøv lige det her
Public Function GetCust(DBTable As String) as Variant

Hjalp ikke

Nu har jeg prøvet at skrive din kode af men nu kommer den med en fejl om at enten EOF eller BOF er nået....... jeg kan se at rsDAta indeholder posterne...

Du får lige koden
Public Function GetCust2(DBTable As String) As Variant

Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim Database As String

Database = GetName("strPathDB") & GetName("strMainDB")

'connection string
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Database & ";"

'SQL statement.
szSQL = "SELECT * " & _
      "FROM " & DBTable

'Create the Recordset object and run the query
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

GetCust2 = Application.WorksheetFunction.Transpose(rsData.GetRows)

End Function

Og den fejler altså på GetCust2=.....

Fejlen er helt præcis:

Run-time error '3201':

Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet.
Den anmodede handling kræver en aktuel post.

og det er fordi EOF = true når jeg kigger på rsData...??????????

Nu har jeg ændre:
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
til
rsData.Open szSQL, szConnect, adOpenStatic, adLockOptimistic, adCmdText

Og nu når jeg videre til Transpose men får så samme fejl at det er mismatch?

Jeg fatter ikke en meter af det her...????

Hmmmmm

Var desperat - så gik i database og udfyldte de tomme felter (ikke alle kunder har udfyldt alle felter) og nu virker den... hmmmmmmmmmm....

Men vil det sige at jeg ikke kan transponerer hvis nogle felter indeholder Null-værdier????????????????????????????????????????

jeg tror jeg ved hvorfor den fejler.
rs felterne starter ved 0, dvs rs(0) er første felt.
Transpose kan ikke klare at starte ved 0.
Det er lidt ligesom  Option base 1.
hvis du istedet definerer i szSql hvilke felter du vil have overført går det fint.

szSQL = "SELECT Navn, Konto FROM " & DBTable

Nej det tror jeg altså ikke - det er fordi nogle af posterne indeholder værdien Null (eller det er jo ikke en værdi nærmere ingenting) - når jeg går i databasen og indsætter et X i de tomme felter så virker skidtet...

Og jeg ville også være ked af at skulle indsætte felter for så kan jeg ikke bruge funktionen til andre tabeller - det var jo tanken at den skulle kunne bruges til mange andre funktioner også... ;O)

Men ved du om der er en løsning på Null problemet - jeg kan selvfølelig definere at tabellen ikke må indeholde Null - men det synes jeg ikke om - da f.eks. ikke alle har en e-mail osv. osv.

Jeg mangler ikke nogle referencer eller noget?

Hvilke referencer bør man have????

Prøv lige om dette gøre en forskel
tmpList = Application.WorksheetFunction.Transpose(CVar(tmpList))

eller dette
tmpList=CVar(rs.GetRows)

Det hjælper ikke - har jeg prøvet

Altså som tingene står nu så ser min kode ud som følgende:

Public Function GetCust(DBTable As String) As Variant
  Dim rsData As ADODB.Recordset, szConnect As String, szSQL As String, Database As String
 
    Database = GetName("strPathDB") & GetName("strMainDB")
   
    'connection string
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Database & ";"
   
    'SQL statement.
    szSQL = "SELECT * " & _
          "FROM " & DBTable
   
    'Create the Recordset object and run the query
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenStatic, adLockOptimistic, adCmdText
   
    GetCust = Application.WorksheetFunction.Transpose(rsData.GetRows)
    rsData.Close
    Set rsData = Nothing

End Function

Og den virker perfekt så længe alle poster i min DB ikke indeholder Null-værdier...

Men det er irreterende at alle felter skal være udfyldt - så hvis du har en løsning på dette...?

Tænkte lige om det er muligt at trasnponerer i ren VB(A) ???

Altså en funktion som ikke er en worksheetfunction?

Det kan vel gøres med en For..Next løkke der løber et array igennem, og samtidig udvider det andet.

Okay - det havde jeg også tænkt på - men ville lige høre om der fandtes en funktion som kunne.... så'n automatisk...

Men den med Null-værdier har du ingen løsning på eller?

Brug funktionen IsNull() til at validere dine data
Hvis IsNull() = false så brug dine data ellers brug f.eks. = ""
en tom string er nemlig ikke Null

hvis dine data nu hedder DATA, så kan du gøre sådan her med dem alle
DATA = "" & DATA
så bliver Null værdier erstattet med en tom string og resten sker der ikke noget med

Hmmmmm... ja - og ellers må jeg jo lave min egen Transponerings-funktion...

Det tror jeg lige jeg vil lege lidt med og så poste den her...

Kunne I ikke begge smide et svar så I kan få point få ulejligheden

...og så venligst tag et kig på spørgsmål http://www.eksperten.dk/spm/409090
for det er godt nok noget L.....

Tak for hjælpen

Din Data funktion hmmm... så skal jeg jo gennemløbe alle posterne - ajjj jeg tror at det bedste er at jeg laver en transponerings funktion...

I din transporeringsfunktion håndterer du IsNull() med den tomme string "", hvis du kommer i problemer der.

Okay.. du får point når Bak har svaret....

>> Flemming et lille tillægsspørgsmål

Hvis nu jeg skal lave en funktion som istedet for at hente skal skrive - hvor skal jeg så rette?

Altså jeg ved godt at jeg skal bruge insert into... men skal jeg rette i den måde jeg åbner ???

Findes der ikke noget hjælp - jeg kan ikke finde noget ADO hjælp i Excel - måske mangler jeg igen en reference ????????? Eller findes der nogle Web-steder for Dummies som mig???

jeg tror heller ikke du kommer uden om problemet, uden at lave din egen transponeringsfunktion. Nu har jeg også prøvet at teste med null-værdier.
Hvad med at indsætte et mellemrumstegn i databasen, når når et felt ikke udfyldes ? Du vil jo styre indsættelsen gennem excel-form, så det skulle vel ikke være et problem.

det er kun sql-sætningen der skal være anderledes - åben og luk af database er det samme

Det er også en løsning jeg har tænkt på - men virker det ikke "Rigtigst" hvis jeg laver den funktion?

Iøvrigt kunne den jo være vældig brugbar senere også..... så det bliver nok den

kig her
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/pg_introduction.asp

Mht. til sql - ja det fandt jeg ud af men den brokker sig over min sætning og jeg kan ve en eller anden ikke se hvad jeg gør forkert - jeg er nu igang med at indsætte elementerne et ad gang for at se hvor fejlen er men måske du kan se det med det vups?:

INSERT INTO Kundebase(Kundenr, Navn. Adresse, Postnr, By, KontaktPerson, Email, Telefon, Fax, Mobiltelefon, Oplysninger) VALUES('Test1','Test2','Test3','4300','Holbæk','Test4','test5','test6','test7','test8','test9');

Måske punktumet efter navn hahah

tjaaa............ måske et eller flere af disse felter - Postnr, Telefon, Fax, Mobiltelefon - tal skal ikke have de små ' ' omkring sig......... check felt defineringer i din database....

Nope den brokker sig stadig:

INSERT INTO Kundebase(Kundenr, Navn, Adresse, Postnr, By, KontaktPerson, Email, Telefon, Fax, Mobiltelefon, Oplysninger) VALUES('TEST25','TEST26','TEST26','2770','Kastrup','TEST26','TEST26','TEST26','TEST26','TEST26','TEST26');

De er alle tekstfelter...

2770  ikke '2770' ....... sådan som jeg lige husker det

Lige et allersidste spørgsmål..:

I forbindelse med projekt Transponering kan jeg hive arrayets størrelse ud ?

Altså hvis jeg har et array der hedder Data om som er dimmet således Data(1 to 10, 1 to 20) kan jeg så hente 10 og 20???

Men det er et tekstfelt i databasen?

Ny transpose funktion. Læs iøvrigt http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q246/3/35.asp&NoWebContent=1 , specielt denne del:

If you decide to use Excel's Transpose method instead of the TransposeDim() function to transpose the array, you should be aware of the following limitations with the Transpose method:
The array cannot contain an element that is greater than 255 characters.
The array cannot contain Null values.
The number of elements in the array cannot exceed 5461.
If the above limitations are not taken into consideration when you copy an array to an Excel worksheet, one of the following run-time errors may occur:

Run-time Error 13: Type Mismatch
Run-time Error 5: Invalid procedure call or argument
Run-time Error 1004: Application defined or object defined error


Function TransposeDim(v As Variant) As Variant
' Custom Function to Transpose a 0-based array (v)
   
    Dim X As Long, Y As Long, Xupper As Long, Yupper As Long
    Dim tempArray As Variant
   
    Xupper = UBound(v, 2)
    Yupper = UBound(v, 1)
   
    ReDim tempArray(Xupper, Yupper)
    For X = 0 To Xupper
        For Y = 0 To Yupper
            tempArray(X, Y) = v(Y, X)
        Next Y
    Next X
   
    TransposeDim = tempArray

End Function

Kan ikke lige se hvad der er galt i din INSERT LINIE........


Hente array størrelser
10 fåes ved  UBound(Data,1)
20 fåes ved  UBound(Data,2)
fangede du den logik ?

Ha - der sparede du mig nok for en del arbejde hahahaa

Fedest...

jeps - er vist ved at være træt - det var for logisk - hmmm

Okay... mht. SQL det er åbenbart fordi jeg bruger By.... den skal sættes i []

Hmmmmmmmm..... jeg lærer det nok en dag hahahaha

Ja, det virker måske ikke helt logisk, men jeg gætter på BY er et reserveret ord i SQL  (fx. Order By)

jeps

hehe - nogle gange er "fejlene" bare for simple *gg*

OBS - Den Transpose funktion virker rigtig godt...!!