Új hozzászólás Aktív témák

• #2417 bepken veterán

  Új Válasz 2014-03-14 17:01:46 #2417

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bepken

  veterán

  sziasztok!

  a következő problémám volna:
  teljesen elölről kezdtem a kis művemet, ezúttal külső adatbázisra hivatkozik és ez kellően meg is bonyolította számomra a dolgokat...

  így néz ki a kereső gomb click event:

  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  
  'telefonszám szövegének formázása
  txtTelNumber.Text = ""
  txtTelNumber.Paste()
  txtTelNumber.Text = Replace(txtTelNumber.Text, " ", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "/", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "(", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, ")", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "-", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "+", "")
  
  If txtTelNumber.TextLength > 7 Then
  
  If txtTelNumber.Text.StartsWith("06") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  If txtTelNumber.Text.StartsWith("36") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  End If
  
  con.Open()
  sql = "SELECT [tel] from tel"
  da.Fill(ds, "tel")
  con.Close()
  
  For index = 0 To ds.Tables("tel").Rows.Count - 1
  Dim dt As DataTable
  dt = ds.Tables("tel")
  
  If txtTelNumber.Text = ds.Tables("tel").Rows(index).Item("tel") Then
  lbTelNum.Text = ds.Tables("tel").Rows(index).Item("tel")
  Else
  lbTelNum.Text = ""
  End If
  
  If lbTelNum.Text = "" Then
  lbTelNum.Text = ""
  lbExist.Text = ""
  Else
  Me.lbTelNum.Text = Me.lbTelNum.Text
  Me.lbExist.Text = "Már létezik!"
  End If
  Next
  End Sub

  a cél továbbra is az volna, hogy a textbox-ba beírt számot keresse meg az access táblában, majd ha megtalálja, azt jelezze.

  ez ugye most úgy néz ki, hogy ha a "txtTelNumber" mezőbe beírt szám benne van a táblában, annak értéke kerüljön át az "lbTelNum" mezőbe (és mellette az "lbExist" is írjon ki valamit) >> hogyha a "lbTelNum" üres, akkor egyszerűen nullázza ki ezt a két mezőt.

  a gyakorlatban ez működik is, de csak az első érték beadásakor....ha jól sejtem, az lehet a gond, hogy a következő kattintáskor már nem fut le a ciklus.
  próbáltam Else ágon újra beadni neki ugyanezt a ciklust, de csúnyán megakasztottam vele a gépet, úgyhogy valószínűnek tartom, hogy nem az lesz a megoldás...

  várom az ötleteket, véleményeket!

  _____________________________________________________

  szerk.:
  cigam!

  a Form_Load részhez írd be:
  KeyPreview = True

Új hozzászólás Aktív témák