发信人: rardge()
整理人: fishy(1999-10-29 23:10:30), 站内信件
|
【 在 fstao (fstao) 的大作中提到: 】
: 新建一个form1，在form1里添加一个command1。
: 我在command1添加以下代码：
: Private Sub Command1_Click()
: Dim dbperson As Database
: .......
针对你的问题，以下给出一些代码，需要在窗体上建立2个 Command 控件。
并假设 Sales.ini 在 C 盘根目录上。
Private Sub Command1_Click()
'写文件
Dim x As Long
x = WritePrivateProfileString("Access", "DBName", "Hello", "C:
\Sales.ini")
If x = 0 Then
MsgBox "Error!"
Else
MsgBox "Ok!"
End If
End Sub
Private Sub Command2_Click()
'读文件
Dim x As Long
Dim Buffer As String * 255, GetMessage As String
x = GetPrivateProfileString("Access", "DBName", "Error", Buffe
r, 255, "C:\Sales.ini")
GetMessage = Left(Buffer, x)
If GetMessage = "Error" Then
MsgBox "Error!"
Else
MsgBox GetMessage
End If
End Sub
以上是读写 INI 文件的代码，读出的值在 GetMessage 变量中，你可以把它设成
全局变量，或作
为值参送到读写数据库的过程中。
例如：Set dbperson = OpenDatabase(GetMessage)
I hope it helps.
Rardge
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.1.42]
|
|