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 kd (Visual Basic):Function ImeKompa()
Dim strImeKompjutera As String
strImeKompjutera = String(255, Chr(0))
ImeRacunara strImeKompjutera, 255
strImeKompjutera = Left(strImeKompjutera, InStr(1, strImeKompjutera, Chr(0)) - 1)
ImeKompa = strImeKompjutera
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()
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.