Icem@n
Grünschnabel
hallo,
Ich benutze VB6(SP5) und Access2000
mein Programm sieht folgendermaßen aus:
mein Problem ist das ich der Knotentabelle die Firma_id übergeben will die in der Firma tabelle ausgewählt wird, damit in der Knotentabelle nur die knoten der ausgewählten firma zur auswahl stehen, nun hab ich schon eine Textbox wo die ausgewählte Firma_id drinne steht, aber ich kann einfach nicht darauf zugreifen. Gibt es eine Möglichkeit in eine SQL-where abfrage auf den wert in der Textbox zuzugreifen?
bin für jede Hilfe Dankbar
Mfg Icem@n
Ich benutze VB6(SP5) und Access2000
mein Programm sieht folgendermaßen aus:
Code:
Option Explicit
Dim rst As Recordset
Dim rec As Recordset
Dim conn As Connection
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
rst.MoveFirst
Case 1
If Not rst.EOF Then
rst.MoveNext
If rst.EOF Then rst.MoveLast
End If
Case Is = 2
If Not rst.BOF Then
rst.MovePrevious
If rst.BOF Then rst.MoveFirst
End If
Case Is = 3
rst.MoveLast
End Select
End Sub
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
rec.MoveFirst
Case 1
If Not rec.EOF Then
rec.MoveNext
If rec.EOF Then rec.MoveLast
End If
Case Is = 2
If Not rec.BOF Then
rec.MovePrevious
If rec.BOF Then rec.MoveFirst
End If
Case Is = 3
rec.MoveLast
End Select
End Sub
Private Sub firma_hinzufügen_ändern_löschen_Click()
neuefirma.Show
End Sub
Private Sub Form_Load()
''''''''''''''''''''''''''' Verbindung zur DB herstellen '''''''''''''''''''''''''''''''''
Set conn = New Connection
conn.Open "Provider = Microsoft.Jet.Oledb.4.0;" & _
"Data Source = " & App.Path & "\Fernwartung1.mdb"
''''''''''''''''''''''''''' firma-Tabelle öffnen'''''''''''''''''''''''''''''''''
Set rst = New Recordset
rst.CursorLocation = adUseClient
'rst.CursorType = adOpenStatic
'rst.LockType = adLockOptimistic
rst.Open "Select * from firma", conn
Set Text1(0).DataSource = rst
Text1(0).DataField = rst.Fields("firma_id").Name
Set Text1(1).DataSource = rst
Text1(1).DataField = rst.Fields("firma_name").Name
'''''''''''''''''''''''''''Knoten-Tabelle öffnen'''''''''''''''''''''''''''''''''
Set rec = New Recordset
rec.CursorLocation = adUseClient
'rec.CursorType = adOpenStatic
'rec.LockType = adLockOptimistic
rec.Open "Select * from Knoten", conn
Set Text2(0).DataSource = rec
Text2(1).DataField = rec.Fields("firma_id").Name
If Text2(1).Text = Text1(0).Text Then
Set Text2(0).DataSource = rec
Text2(0).DataField = rec.Fields("Knoten_id").Name
Else
Text2(0).Text = "nicht vorhanden"
End If
End Sub
mein Problem ist das ich der Knotentabelle die Firma_id übergeben will die in der Firma tabelle ausgewählt wird, damit in der Knotentabelle nur die knoten der ausgewählten firma zur auswahl stehen, nun hab ich schon eine Textbox wo die ausgewählte Firma_id drinne steht, aber ich kann einfach nicht darauf zugreifen. Gibt es eine Möglichkeit in eine SQL-where abfrage auf den wert in der Textbox zuzugreifen?
bin für jede Hilfe Dankbar
Mfg Icem@n