När jag kör mitt program så får jag följande fel:
"An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll"

Den klagar på följande rad:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DsPoker1.Clear()
        OleDbDataAdapter1.Fill(DsPoker1) ' <-- här klagar den...
    End Sub

SELECT strPlayers FROM holecards WHERE (cards = 'strSql1 strColor')

DataSetName: DsPoker

DataBindnings - Text: DsPoker1 - Table.strPlayers

Hur ser select-frågan ut i adapterns commando-objekt?

/Peter

SELECT strPlayers FROM holecards WHERE (cards = 'strSql1 strColor')

Om du gör en breakpoint precis innan update och tittar på select-satsen. Är det den du skrev ovan då?

Har du testat att köra den direkt mot databasen (Access?)?

Prova även att köra följande kod:<code>dim ds as new dataset
OleDbDataAdapter1.Fill(ds)</code>

Jag får inte ihop frågan i access heller.. :(
Fattar nog inte riktigt hur man gör frågor i access tror jag...

ett exempel som rimligtvis borde generera "38.8" :

select players7 from holecards where cards = 'aao'

Men om jag skriver in exakt så i access så får jag upp en dialogruta där jag ska skriva in något...?

Kanska kan hjälpa dig med frågan. Hur ser tabellen holecards ut (vilka kolumner och typer) och vad vill du göra?

Allt är av typen "text".
-------------------------------------------------
bild: http://www.hyden.nu/poker_tables.gif |
-------------------------------------------------
Vad jag vill göra är att med hjälp av strSql1, strPlayers och strColor välja ut rätt fält.

i min fantasi ser sqlsträngen ut så här:
select strPlayers from holecards where cards = strSql1 & strColor

ex. :
strPlayers = players3
strSql1 = aa
strColor = o
genererar:
select players3 from holecards where cards = aao
vilket i sin tur bör hämta ut "63.9" från databasen...

förstår du hur jag menar?
Om det spelar någon roll så är det vb.net jag jobbar i... och databasen är en access 2003.

/Anders

Din sql-sträng bör se ut som följande:

Om du vill hämta in siffran till ditt dataset som ska ha typen string (om typen på kolumnen 3players) är text/string.

SELECT 3players as [PlayerNumeric] from holecards where cards='aao'
eller
SELECT 2players as [PlayerNumeric] from holecards where cards='aao'

"as [PlayerNumeric]" betyder att kolumnen får ett alias vilket gör att den alltid kommer returneras med detta namn.

Eller kanske om du vill hämta hela raden och sedan hantera den i vb:
<code>SELECT * from holecards where cards='aao'</code>

Det du kanske borde göra är att strukturera din databas så att du har flera tabeller med relationer mellan dem (en playertabell, en färgtabell, en korttabell etc.) och även typa den korrekt (decimalt istället för text för player-kolumnerna t.ex.). Detta för att få en vettigare struktur.

Mvh
Peter

Hmm, är inte riktigt med på hur du menar, pratar du access nu eller sqlfråga i mitt program?
hur blir min sqlfråga i programmet?

strSql1 = "SELECT "& strPlayers & " FROM holecards WHERE cards = " & strSql & strColor

Är det så du menar att jag ska skriva i programmet?

Jo precis så skulle den kunna se ut, eller snarare

strSql1 = "select " & strPlayers & " FROM holecards where cards = <b>'</b>" & strSql & strColor & "<b>'</b>"

Alltså med '-tecken runt where-strängen.

Såg att du i texten ovan skrev select players7. I din tabell heter den 7players. Det kan inte vara det som är fel?

Angående det om att dela upp det i flera tabeller så kan du prova att söka på t.ex. rellationsdatabaser i google eller söka i hjälpen i Access. Finns mycket att läsa och lära. :)

Mvh
Peter

Fnys... när jag döpte om fälten till "players1" istf "1players" så funkade det :/
Nästan...
Jag får iaf inget fel längre!
Men å andra sidan så får jag inte ut någon text i min textbox, där svaret ifrån sql-frågan borde komma :(

Mitt dataset heter "DsPoker2" och databinding - text på textboxen är:
DsPoker2 - Table.Expr1

Klickfuntionen på knappen ser ut så här:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
             OleDbDataAdapter1.SelectCommand.CommandText = strSql1

            DsPoker2.Clear()
            OleDbDataAdapter1.Fill(DsPoker2)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Inga problem alls. :)
Bindningen (DsPoker2 - Table.Expr1) är det fältnamn i dataset-tabellen som du vill använda. När du skriver den selectfrågan du skrivit kommer datasetets fältnamn bli DsPoker2 - Holecards.1players. Du måste alltså binda till det fält som du hämta alt. använda alias som jag skrev lite längre upp.

Mvh
Peter

Hmm, nu förstod jag ingenting :)
Hur menar du att jag ska skriva?

Ska det stå DsPoker2 - Holecards. & strPlayers alltså?
VS tilllåter mig inte att skriva så...

Nej, det är därför du ska använda alias i din select-fråga.

SELECT 1players as [playerNumber] from xxx where zz=yy
returnerar en tabell med följande utseende:
playerNumber
---------------
xxx

SELECT 2players as [playerNumber] from xxx where zz=yy
returnerar en tabell med följande utseende:
playerNumber
---------------
xxx

Detta gör att det bundna fältet i ditt formulär skall vara 'playerNumber'. Alltså oavsett vilken kolumn som hämtas från databasen. Du får dock inte uppdateringsmöjlighet då och då försvinner ju nyttan med bindningar.

Jag tror det första du borde göra är att designa om databasen. Splitta upp din flata tabell till flera mindre med relationer mellan sig.

Med vänliga hälsningar
Peter Ilis / som för övrigt inte längre använder bindningar då han anser att det är onödigt krångligt. :D

Jag fick det tillslut att funka :)

Sqlfrågan jag använder är:

strSql = "SELECT " & strPlayers & " FROM holecards WHERE cards = '" & strCard & "'"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If strCard1Value = "" Or strCard2Value = "" Or strSuite = "" Or strPlayers = "" Then
            MsgBox("Please make all choises...")
        Else
            Try

                OleDbDataAdapter1.SelectCommand.CommandText = strSql

                DataSet1.Clear()
                OleDbDataAdapter1.Fill(DataSet1)
                lblResult.DataBindings.Clear()
                lblResult.DataBindings.Add(New Binding("Text", DataSet1, "holecards." & strPlayers))

            Catch ex As Exception

                MsgBox(ex.ToString & ", " & ex.Message)

            End Try
        End If
    End Sub