1,以XP为例,系统默认系统目录为:C:\Windows ,那么将VB运行库文件放在到系统的安装目录的C:\Windows\SYSTEM32\下。
2,点开始,运行,输入:regsvr32.exe C:\Windows\SYSTEM32\vb运行库名称 , 然后点确定,提示注册成功即可。
如果用vb来建立数据库的话,用adox对象就可以了,主要用到下面几个对象:Dim
cat
As
New
ADOX.Catalog
'对应数据库
数据库文件
Dim
tb()
As
New
ADOX.Table
'数据库里的表
Dim
cl
As
New
ADOX.Column
'数据库里的字段
不过这种方法比较麻烦,简单的办法是用文本文件来存储(如果你不想让别人知道你用文本文件存储的数据,你可以文本文件的
后缀名
你可以改成dat,tpl,log....)。给你附带一个比较完整的文本文件读写的代码:
'以下是读记事本代码,读取后的数据存储在数组hs()中:
Dim
i
As
Long,
hs()
As
String
i
=
0
ReDim
hs(0)
Open
App.Path
&
"\1.txt"
For
Input
As
#1
Do
While
Not
EOF(1)
ReDim
Preserve
hs(i)
Line
Input
#1,
hs(i)
i
=
i
+
1
Loop
Close
#1
'以下是写记事本代码:
dim
filename
as
string
filename
=
"这是第一行"
&
chr(13)
&
chr(10)
&
"这是第二行"
&
chr(13)
&
chr(10)
&
"这是第三行"
&
chr(13)
&
chr(10)
Open
App.Path
&
"\2.txt"
For
Output
As
#1
Seek
#1,
1
#1,
filename
Close
#1
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)