Prikazi cijelu temu 27.03.2013 10:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: ID kompjutera u tablicu na serveru
Ovo ide na vrh modula:
Dodatna napomena autora:
Public Declare Function ImeRacunara Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long

Ovaj kod ide u neki modul:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ImeKompa()
  2. Dim strImeKompjutera As String
  3.  
  4. strImeKompjutera = String(255, Chr(0))
  5. ImeRacunara strImeKompjutera, 255
  6. strImeKompjutera = Left(strImeKompjutera, InStr(1, strImeKompjutera, Chr(0)) - 1)
  7. ImeKompa = strImeKompjutera
  8. End Function

Napravis dodatno polje u tabeli u kojoj zelis da se biljezi sa kojeg je compa radjeno napr polje Komp.
Napravis txtbox na formi na kojem ce biticontrol source ovo polje iz tabele.
Ovaj txt box moze biti nevidljiv.
U default value ovog txt boxa napisi :
ImeKompa()
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.