Select fra 2 tabeller i samme db, og vise listen over indholdet i en list

Hvis du har adgang til selve DB\'en, kan du oprette en forespørgsel dér, som du bruger i stedet for en tabel. Ellers er du nødt til at skrive en SQL-string som rækkekilde for din listboks.

HDH
ProAccess

det skal være en sql string!

Så er du nødt til at angive din sql som recordsource til din data-kontrol.

Data1.RecordSource=\"SELECT T1.Felt1, T2.Felt2 FROM Tabel1 AS T1, Tabel2 AS T2 WHERE T1.ID = T2.fID;\"

Selvfølgelig med dine relevante tabeller og felter...

Jeg skal have alle kolonne fra de to tabeller;


Tabel 1: TypeVand
Tabel 2: TyepEl

De indeholder begge, Id, Apparat, Forbrug, Brugstid, Pris

Og de kommer igennem en løkke der viser alle resultaterne fra db\'n...
men hvis jeg bruger følgende så sker der fejl:

strSelect = \"SELECT T1.*, T2.* FROM TypeVand AS T1, TypeEl AS T2 WHERE T1.ID = T2.fID\"

Den siger jeg har \"too few parameters. expected 3\"

Du skal fjerne f\'et i det sidste ID

virker stadig ikke... har fjernet det, den siger stadig det samme

strSelect = \"SELECT T1.*, T2.* FROM TypeVand AS T1, TypeEl AS T2 WHERE T1.ID = T2.ID\"

nu siger den expected 1

havde glemt at udskifte t1.felt1 med t1.*

Jeg er meget sikker på at det er der hvor du laver din connection til din database. Prøv at vise koden hvor du laver connection til databasen. For selve SQLSætningen er rigtig nok.

Kedde

Relation mellem dine tabeller:

Hvad er det, som \"binder\" tabellerne sammen, eller rettere ER der noget, som binder dem sammen?

SQLSætningen er fuldstændig ligeglad med hvordan relationerne er strikket sammen. Ihvertfal sålænge du laver det på denne her måde.

kedde

Jeg fik bare lige pludselig indskydelsen, at der måske var tale om en UNION-Query:

SELECT \'El\' AS Type, TypeEl.* FROM TypeEl UNION SELECT \'Vand\', TypeVand.* FROM TypeVand

ProAccess

Public Function DatabaseReload(strSelectOption As Integer)
Dim rsTemp As Recordset
Dim strSelect As String
Dim tempvalue As Integer

If strSelectOption = 0 Then
  strSelect = \"SELECT * FROM TypeEl,TypeVand\"
ElseIf strSelectOption = 1 Then
  strSelect = \"SELECT * FROM TypeVand\"
ElseIf strSelectOption = 2 Then
  strSelect = \"SELECT * FROM TypeEl\"
Else
  MsgBox (strSelectOption)
  MsgBox (\"fejl i databasereload\")
End If

Set rsTemp = dBase.OpenRecordset(strSelect)

frmMain.listItems.listItems.Clear

  If rsTemp.EOF Or rsTemp.BOF Then
    MsgBox (\"fejl kald i database reload!\")
  Else
    Do Until rsTemp.EOF
      If frmMain.listItems.listItems.Count = 0 Then
        tempvalue = 1
      Else
        tempvalue = frmMain.listItems.listItems.Count + 1
      End If
     
      frmMain.listItems.listItems.Add tempvalue, , rsTemp!Apparat
      frmMain.listItems.listItems.Item(tempvalue).ListSubItems.Add 1, , rsTemp!Forbrug
      frmMain.listItems.listItems.Item(tempvalue).ListSubItems.Add 2, , rsTemp!Brugstid
      frmMain.listItems.listItems.Item(tempvalue).ListSubItems.Add 3, , \"kr \" & rsTemp!Pris & \",00\"
      rsTemp.MoveNext
    Loop
    rsTemp.Close
  End If
End Function



Det er i linien hvor den add\'er flere records til listview-dimsen, at den f.eks. med \"rsTemp!\" siger der er fejl.

sætter hele tiden den forkerte ind...


If strSelectOption = 0 Then
  strSelect = \"SELECT T1.*, T2.* FROM TypeVand AS T1, TypeEl AS T2 WHERE T1.ID = T2.ID\"
ElseIf strSelectOption = 1 Then
  strSelect = \"SELECT * FROM TypeVand\"
ElseIf strSelectOption = 2 Then
  strSelect = \"SELECT * FROM TypeEl\"
Else
  MsgBox (strSelectOption)
  MsgBox (\"fejl i databasereload\")
End If


og VB melder ud med fejl i

Set rsTemp = dBase.OpenRecordset(strSelect)

Du bruger så vidt jeg kan se ADO recordset, har du husket at sætte en reference til det runtime library, der indeholder ADODB?

Hvor stammer DBase fra, det har jeg ikke lige hørt om.

dBase.OpenRecordset(strSelect)

Kedde