Prikazi cijelu temu 29.06.2013 19:27
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Dlookup vo VB
Pozdrav do site forumdzii.
Eve veke nekoe vreme ne sum aktiven na forumov pa zatoa malku da se aktiviram.
Rabotam edna aplikacija vo VB studio e sega dodeka rabotev vo MS ACCESS dosta cesto gi koristev funkciite Dlookup Dmax Dmin DFirst DLast DSum DCount i taka no vo VB studiovo nema takvi funkcii pa pocnav sam da gi pravam
Pocnav so funkcijata Dlookup koja najmnogu ja koristam bidejki vo mnogu slucai mi e potreben samo eden podatok .
Sega mi treba od vas poiskusnite vo vb da mi dadete nekoi soveti i da mi pomognete da ja napravam funkcijata identicna so onaa vo MS ACCESSOT
Eve ja Funkcijata:

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DLookup(Pole As String, Tabela As String, Optional ByVal Uslov As Variant) As Variant
  2.    On Error Resume Next
  3.    Dim rsdl As ADODB.Recordset
  4.    Dim strsql As String
  5.    
  6.    If IsNull(Uslov) Or Uslov = "" Then
  7.       strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela
  8.    Else
  9.       strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))"
  10.    End If
  11.    Set rsdl = cn.Execute(strsql)
  12.    
  13.    If Not (rsdl.EOF And rsdl.BOF) Then
  14.       rsdl.MoveFirst
  15.       DLookup = rsdl(Pole).Value
  16.    Else
  17.       DLookup = ""
  18.    End If
  19.    
  20. End Function

sega kade zastanav
Kako da napravam vo funkcijava da ako ne vnesam uslov samata funkcija da prepoznava dali ima uslov ili nema
toa e ova Optional ByVal Uslov As Variant
sega treba da stavam na primer r=Dlookup("Sifra","tblArtikli","") za da funkcionira
drugo sto sakam da napravam e vo uslovot avtomatski da se prepoznava tipot na uslovot dali text ,bolean ,integer,date drugi podatoci.
Ova e za pocetok a posle ke vidime sledno od koga ke go napravime ova
Pozdrav