Tags:
visual-basic
Er der nogen der kan fortælle hvorfor Text1.text ikke modtager det der står
i (kunde) Det hentes fra en database
Mail for projekt.
Dan
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Sub Combo1_click()
'Text1.Text = Combo1.Text
End Sub
Private Sub Form_Load()
Dim db_file As String
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
' hent data.
db_file = App.Path
If Right$(db_file, 1) <> "\\" Then db_file = db_file & "\\"
db_file = db_file & "statik.mdb"
' åben forbindelse.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open
' Select statement.
statement = "SELECT * FROM lastberegninger"
' opret resultset.
Set rs = conn.Execute(statement, , adCmdText)
' brug resultset som man har lyst her cmbbox og listbox.
Do While Not rs.EOF
With Combo1
.AddItem rs!adresse '& " " & rs!efternavn & " " & rs!adresse
'.AddItem rs!efternavn
'.AddItem rs!adresse
'List1.AddItem rs!efternavn & " " & rs!adresse
End With
If rs!adresse = Combo1 Then
Text1.Text = rs!Kunde
' TxtEfternavn.Text = rs("efternavn")
'TxtAdresse.Text = rs("adresse")
' TxtPostNr.Text = rs("postnr")
'TxtBy.Text = rs("bynavn")
End If
rs.MoveNext
Loop
' Do While Not rs.EOF
' If rs!adresse = Combo1.Text Then
' Text1.Text = rs!Kunde
' TxtEfternavn.Text = rs("efternavn")
'TxtAdresse.Text = rs("adresse")
' TxtPostNr.Text = rs("postnr")
'TxtBy.Text = rs("bynavn")
' End If
' rs.MoveNext
' Loop
' luk resultset og forbindelse
rs.Close
conn.Close
Combo1.ListIndex = 0
End Sub
Private Sub Form_Resize()
Dim hgt As Single
'bla bla
Combo1.Width = ScaleWidth
hgt = ScaleHeight - List1.Top
If hgt < 120 Then hgt = 120
List1.Width = ScaleWidth
List1.Height = hgt
End Sub
Er der nogen der kan fortælle hvorfor Text1.text ikke modtager det der står
i (kunde) Det hentes fra en database
Mail for projekt.
Dan
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Hej der
Den er gal når klikker på Combo1 så får du kun texten fra
Combo1 over at stå i 'Text1.Text
dvs du sætter 'Text1.Text properties til at være =Combo1.txt
------------------------------------------------------------------
--------------------------------------------------------------------
LØSNING:
dvs når indholdet i Text1 txt.boxen ændrer sig
Option Explicit
Dim db_file As String
Dim statement As String
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Private Sub Combo1_click()
'Text1.Text = Combo1.Text
End Sub
Private Sub Text1_change()
dim tmp as string
tmp= Combo1.Text
call databaseforbindelse ' åben databasen statik.mdb
Set rst = New ADODB.Recordset
rst.Open " SELECT * FROM lastberegninger where adresse=' "
& tmp & "'", Con, adOpenStatic, adLockOptimistic
If rst.recordcount=0 then Text1.text = "ingen kunde med
det navn"
If rst.recordcount=0 then exit sub
Text1.Text = rst!Kunde
' TxtEfternavn.Text = rst("efternavn")
'TxtAdresse.Text = rst("adresse")
' TxtPostNr.Text = rst("postnr")
'TxtBy.Text = rst("bynavn")
End If
rst.MoveNext
Loop
set rst nothing
con.Close
End Sub
Private Sub Form_Load()
call databaseforbindelse ' åben databasen statik.mdb
Set rst = New ADODB.Recordset
rst.Open " SELECT * FROM lastberegninger, Con,
adOpenStatic, adLockOptimistic
Do While Not rst.EOF
With Combo1
.AddItem rst!adresse '& " " & rst!efternavn & " " & rst!adresse
'.AddItem rst!efternavn
'.AddItem rst!adresse
'List1.AddItem rst!efternavn & " " & rst!adresse
End With
loop
set rst nothing
con.Close
End Sub
Private Sub Form_Resize()
Dim hgt As Single
'bla bla
Combo1.Width = ScaleWidth
hgt = ScaleHeight - List1.Top
If hgt < 120 Then hgt = 120
List1.Width = ScaleWidth
List1.Height = hgt
End Sub
Public sub databaseforbindelse()
Set Con = New ADODB.Connection
Con.CursorLocation = adUseClient Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource= "& _
App.Path & "\\statik.mdb";Persist Security Info=False"
End sub
Håber dette hjælper dig lidt videre
mvh jens
[Redigeret d. 15/04-04 22:08:42 af Nauticom]