گرفتن MAC address دیوایس و ذخیره در دیتابیس

[shahab.es 5,429]

سلام دوستان

کتابخونه Serial و sql رو تیک بفرمایید

Dim sql As SQL
Dim serial As Serial
If File.Exists(File.DirInternal,"db.db") = False Then
	File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
End If
If sql.IsInitialized = False Then
	sql.Initialize(File.DirInternal,"db.db",False)
End If
'get serial'
Dim mySerial As String
mySerial = serial.Address
'insert query'
Dim query As String = "INSERT INTO tbl (id,address) VALUES (null,'"& mySerial &"')"
'insert to db'
sql.ExecNonQuery(query)