请救：VB与数据库连接时将连接信息写成ini文件或记录文件，请问如何实现？

2005-03-04 09:00:15 214 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB开发者浏览器自动化指南：SeleniumBasic环境搭建与实战应用浏览器自动化是现代软件开发和测试中的关键技术，它通过模拟用户操作实现网页交互的自动化。其核心原理是WebDriver协议，它作为浏览器与自动化脚本之间的桥梁，允许程序化控制浏览器行为。这项技术的价值在于能够显著提升重复性Web操作的效率，确保测试的一致性和准确性，广泛应用于数据抓取、自动化测试和业务流程自动化等场景。对于VB开发者而言，SeleniumBasic是一个关键的COM库，它将WebDriver的强大能力无缝集成到VB6和VB.NET开发环境中。通过SeleniumBasic，开发者无需切换技术栈阅读详情

VB与SQLServer2000数据库连接时，将连接信息写成ini文件或者记录文件
ini的内容(连接信息)至少包括servername，databasename,username,password四个方面内容，

请教：1，ini文件应该怎么写？（假如servername=192.168.0.1；databasename=DATA；
username=sa;password=123）

2, VB程序中我编写了一个窗体，上面有四个文本框用来输入servername，databasename,
username,password。然后“确定”按钮判断输入的四个值与ini文件中的是否相同，
假如相同则登录数据库成功，不相同则退出。
请帮我给出VB窗体中程序应该如何编写？

...全文

数据库国产化探究及升级改造过程指导当前官网最新版本为DM8，相较于目前主流产品架构：不同特性依靠不同内核去实现，DM8独特采用了双存储引擎架构，行存储引擎和列存储引擎可相互配合、协同工作。同时实现了计算层和存储层的分离，同一内核既支持共享存储式集群，也支持分布式事务集群。阅读详情

wyl_82

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

YUAN168 2005-03-04

打赏
举报

不用INI文件，用.udl文件更好，還可以動態的測試有沒有連到數據庫，程式安裝後也可以動態改變連的數據庫！想知道嗎？　快加我：QQ－－＞439609487　（注明csdn)

heavensonic 2005-03-04

打赏
举报

剛看到一貼說地球人都知道這個方法，原來還有不知道的地球人。
具體格式如下
[app]
key=value

[com]
servername=192.168.0.1
databasename=DATA
username=sa
password=123

zyg0 2005-03-04

打赏
举报

写ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'读ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'写入ini中的servername
Public Sub set_com_num(ByVal vNewValue As String)
WritePrivateProfileString "com", "servername", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的servername
Public Function Get_com_num() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "servername", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_num = Left(strTemp, n)
End Function
'写入ini中的databasename
Public Sub set_com_name(ByVal vNewValue As String)
WritePrivateProfileString "com", "databasename", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的databasename
Public Function Get_com_name() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "databasename", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_name = Left(strTemp, n)
End Function
'设置ini中的username
Public Sub set_readcount1(ByVal vNewValue As String)
Debug.Print vNewValue
WritePrivateProfileString "com", "username", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的username
Public Function Get_readcount1() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "username", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount1 = Left(strTemp, n)
End Function
'设置ini中的password
Public Sub set_readcount2(ByVal vNewValue As String)
WritePrivateProfileString "com", "password", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的password
Public Function Get_readcount2() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "password", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount2 = Left(strTemp, n)
End Function
我给注视也改好了，写文件时如果没有文件，他会在当前盘当前路径创建一个sample.ini文件

wyl_82 2005-03-04

打赏
举报

请问，ini文件是用VB生成，还是提前在根目录下建一个ini文件?
这些值servername=192.168.0.1；databasename=DATA；
username=sa;password=123 写在那里？

zyg0 2005-03-04

打赏
举报

我的注释是以前程序的，你不用看注释按照顺序调用就ok

zyg0 2005-03-04

打赏
举报

'写ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'读ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'写入ini中的com口
Public Sub set_com_num(ByVal vNewValue As String)
WritePrivateProfileString "com", "servername", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的com口
Public Function Get_com_num() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "servername", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_num = Left(strTemp, n)
End Function
'写入ini中的机器名
Public Sub set_com_name(ByVal vNewValue As String)
WritePrivateProfileString "com", "databasename", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的机器名
Public Function Get_com_name() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "databasename", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_com_name = Left(strTemp, n)
End Function
'设置ini中的第一次读取时间
Public Sub set_readcount1(ByVal vNewValue As String)
Debug.Print vNewValue
WritePrivateProfileString "com", "username", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的第一次读取时间
Public Function Get_readcount1() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "username", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount1 = Left(strTemp, n)
End Function
'设置ini中的第2次读取时间
Public Sub set_readcount2(ByVal vNewValue As String)
WritePrivateProfileString "com", "password", vNewValue, App.Path & "\sample.ini"
End Sub
'获得ini中的第2次读取时间
Public Function Get_readcount2() As String
Dim strTemp As String * 255
Dim n As Long
n = GetPrivateProfileString("com", "password", "", strTemp, Len(strTemp), App.Path & "\sample.ini")
Get_readcount2 = Left(strTemp, n)
End Function
读取写入的模块写好了,只是个调用,比较也是调用后比较ok?

请救：VB与数据库连接时将连接信息写成ini文件或记录文件，请问如何实现？

相关推荐