如何获得一个不会重复的简单代码？

Question

我需要为SQL数据库表的ID创建一个代码，我正在处理由vb.net编程的应用程序和另一个由vbscript编程的应用程序。它们都连接到数据库，我需要在每个数据库中生成一个必须由相同过程生成的代码。例如：

VB.NET：

dim code as integer= someFunction()

的VBScript：

dim code= call someFunction()

我希望这些函数能够以不同的语言生成相同类型的代码。

Answer 1

如果您真的打算这样做，可以在VB.NET中实现VBS中相同的功能：

VB.NET

In [18]: np.lib.recfunctions.append_fields(x, 'f3', [4], dtypes='<i8', 
    ...: usemask=False, asrecarray=True)
Out[18]: 
rec.array([(1, 2, 3, 4)], 
          dtype=[('f0', '<i8'), ('f1', '<i8'), ('f2', '<i8'), ('f3', '<i8')])

的VBScript：

    Dim tlib = CreateObject("Scriptlet.TypeLib")
    Messagebox.Show(tlib.Guid)