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):Public Function DLookup(Pole As String, Tabela As String, Optional ByVal Uslov As Variant) As Variant
On Error Resume Next
Dim rsdl As ADODB.Recordset
Dim strsql As String
If IsNull(Uslov) Or Uslov = "" Then
strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela
Else
strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))"
End If
Set rsdl = cn.Execute(strsql)
If Not (rsdl.EOF And rsdl.BOF) Then
rsdl.MoveFirst
DLookup = rsdl(Pole).Value
Else
DLookup = ""
End If
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