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

VB > 数据库(包含打印，安装，报表)
收藏 回复
[问题点数：40分，结帖人wyl_82]
更多帖子
私信 空间 博客
wyl_82
等级
本版专家分：182
结帖率 100%
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窗体中程序应该如何编写？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
zyg0
等级
本版专家分：23072
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
Blank
黄花 2007年1月 VB大版内专家分月排行榜第二
Blank
蓝花 2012年6月 VB大版内专家分月排行榜第三
2007年2月 VB大版内专家分月排行榜第三
'写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?
只看TA 引用 举报 #1得分 35
更多帖子
私信 空间 博客
zyg0
等级
本版专家分：23072
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
Blank
黄花 2007年1月 VB大版内专家分月排行榜第二
Blank
蓝花 2012年6月 VB大版内专家分月排行榜第三
2007年2月 VB大版内专家分月排行榜第三
我的注释是以前程序的，你不用看注释按照顺序调用就ok
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
wyl_82
等级
本版专家分：182
请问，ini文件是用VB生成，还是提前在根目录下建一个ini文件?
      这些值servername=192.168.0.1；databasename=DATA；
            username=sa;password=123  写在那里？
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
zyg0
等级
本版专家分：23072
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
Blank
黄花 2007年1月 VB大版内专家分月排行榜第二
Blank
蓝花 2012年6月 VB大版内专家分月排行榜第三
2007年2月 VB大版内专家分月排行榜第三
写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文件
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
heavensonic
等级
本版专家分：51
勋章
Blank
蓝花 2005年7月 扩充话题大版内专家分月排行榜第三
剛看到一貼說地球人都知道這個方法，原來還有不知道的地球人。
具體格式如下
[app]
key=value

[com]
servername=192.168.0.1
databasename=DATA
username=sa
password=123
只看TA 引用 举报 #5得分 5
更多帖子
私信 空间 博客
YUAN168
等级
本版专家分：411
不用INI文件，用.udl文件更好，還可以動態的測試有沒有連到數據庫，程式安裝後也可以動態改變連的數據庫！想知道嗎？　快加我：QQ－－＞439609487　（注明csdn)
只看TA 引用 举报 #6得分 0
收起
收藏 回复
wyl_82

等级：

关注 私信 TA的帖子
JAVA上百实例源码以及开源项目源代码

Java源码下载 1个目标文件 摘要:Java源码,网络相关,HTTP 　　Java实现HTTP连接与浏览，Java源码下载，输入html文件地址或网址，显示页面和HTML源文件，一步步的实现过程请下载本实例的Java源码，代码中包括丰富的...

PB通过INI连接数据库

Vb.net和C#开发时我们学习过用配置文件来保存数据库连接的属性，这样可以方便我们更换移植数据库,提高软件的生存能力。那么Pb9.0也有类似的机制来实现，即.ini文件。什么是.ini文件？.ini文件是InitializationFile的...

csv文件导入数据到MySQL数据库

-- 文件名最好用英文 注意： 绝对路径“/” （此路径在mysql安装目录的my.ini文件中改写） -- 默认路径 C:\ProgramData\MySQL\MySQL Server 5.6\my.ini -- 找到my.ini 文件中的 secure_file_priv= 可将其改写成自己...

C语言与数据库操作入门（Win版）- 连接sql数据库

转 https://blog.csdn.net/flyingqd/article/details/78763652 https://blog.csdn.net/jadeshu/article/details/79474782 https://www.cnblogs.com/huzhongzhong/archive/2011/07/12/2104209.html ...

JAVA上百实例源码以及开源项目

　Java实现HTTP连接与浏览，Java源码下载，输入html文件地址或网址，显示页面和HTML源文件，一步步的实现过程请下载本实例的Java源码，代码中包括丰富的注释，对学习有帮助。 Java实现的FTP连接与数据浏览程序 1个...

VB如何操作INI文件

以便程序在下一次执行的时候可以使用，比如说保存本次程序执行时窗口的位置、大小、一些用户设置的数据等等，在 Dos 下编程的时候，我们一般自己产生一个文件，由自己把这些数据写到文件中，然后在下一次执行的时候...

VB数据库记录查询四法

在VB中进行数据库记录的查询操作，必需根据打开数据库的方式来确定。以VB3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面四种查询方法分别适用于以上面不同的对象方式打开的数据库。 1．用SEEK方法查询...

SQL on file 工具-----在文件中的数据如果不放到数据库，该怎么使用sql对其进行查询分析

SQL 是常用的数据查询语言，但只能在数据库中使用，常见的的文件数据就要先入库后才能使用 SQL，这很麻烦。有一类工具能够直接针对文件执行 SQL，这会带来很大的方便性，但这些工具在使用环境、易用性、SQL 能力、...

python中的text文件出现nbsp_Python 中常见的配置文件

为什么要写配置文件在开发过程中，...这个固定文件我们可以直接写成一个 .py 文件，例如 settings.py 或 config.py，这样的好处就是能够在同一工程下直接通过 import 来导入当中的部分；但如果我们需要在其他非 Pyth...

VB实现SQL Server 2000存储过程调用

同样的道理，可以把要完成某项任务的许多Transact-SQL语句写在一起，组织成存储过程的形式，通过执行该存储过程就可以完成这项任务。本文以SQL Server2000存储过程为例，探讨了存储过程的优点，并以Visual Basic6.0...

DB2新手使用的一些小笔记:新建实例、数据库路径不存在、客户端连接

　这次，我们的DB2是被部署在Windows上的。Windows下有一个所谓的图形界面的客户端。不过似乎不大好用，遇到了一些问题，我们来解决吧。...　DB2的实例之间是相互独立的，实例可以被看作是数据库的容器。而默认DB2

C# Oracle数据库连接及操作

壹、ORACLE817安装（服务器端/客户端）... 1 贰、ORACLE817配置（服务器端）.....伍、Oracle数据库体系结构... 10 陆、ORACLE数据类型... 14 柒、c#通过oledb连接Oracle. 27 捌、一个C#操作Oracle的通用类... ...

nphp 连接mysql_MySQL数据库简述

一、安装mysqlCentos6环境下安装MySQL数据库：Centos6默认yum安装mysql 5.1，我们可以自己配置通过yum安装5.6或者其他版本。1、查看系统里面有没有mysql 的repo[root@mini ~]#yum repolist all | grep mysql2、如果...

PB9.0和.INI文件

Vb.net和C#开发时我们学习过用配置文件来保存数据库连接的属性，这样可以方便我们更换移植数据库,提高软件的生存能力。那么Pb9.0也有类似的机制来实现，即.ini文件。 什么是.ini文件？  .ini 文件是Initialization...

VB数据库方面的知识

VB数据库记录查询四法 在vb中进行数据库记录的查询操作，必需根据打开数据库的方式来确定。以vb3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面四种查询方法分别适用于以上面不同的对象方式打开的数据库...

开发宝典：数据库设计技巧，你知道几个？

因此在软件系统开发中，数据库设计应遵循必要的数据库范式理论，以减少冗余、保证数据的完整性与正确性。在数据库的设计过程中还是存在一些技巧，值得学习和借鉴。 数据库设计方法、规范与技巧 数据库技术是信息...

RDO和VB数据库编程

RDO的发展 远程数据对象 (Remote Data Object ,简称RDO) 是位于 ODBC API 之上的一个对象模型薄层，它依赖 ODBC API、选定的 ODBC 驱动程序以及后端数据库引擎实现大部分的智能和功能，因此短小（大约 250 K）、快速...

C语言与数据库操作入门（Win版）

C语言与数据库操作入门

VB编程资源大全(源码 文件)

"icl"文件中分离出icon (4KB) 85,iniedit.ZIP 如何编辑ini文件以及任何包含文本的windows文件 (6KB) 86,helpfile.ZIP 在vb中调用help文件并实现winhelp的关键字、主题等功能 (5KB) 87,split.ZIP ...

C语言与数据库操作入门

C语言与数据库操作入门（Win版） 2017年12月10日 17:30:17 阅读数：1394 数据库，DataBase，学C语言的是不是想说，很想爱她却并不容易呢？不用着急，C语言也可以操作数据库的，既使你不会Windows ...

sql server 连接工具_SQL on file 工具

无论程序员，还是数据分析师或科研工作者，有很多人都会...但有时候数据在CSV/TSV/XLS之类的文件里，为了能继续使用熟悉的SQL，我们不得不先把文件导入数据库。这个过程很麻烦，要建立表结构、设定字段名和数据类型...

力控实时数据库相关问题

5.01 力控的数据库是用SQL Server还是ACCESS...　力控实时数据库为了方便管理，将数据库分成0－30共31个区域(AREA)、每个区域又划分成0－99共100个单元（UNIT、下面又分子单元（SUBUNIT、组（GROUP，点名（NAME和点参数

vb数据库的编程技巧

VB数据库记录查询四法山东 许振华 在VB中进行数据库记录的查询操作，必需根据打开数据库的方式来确定。以VB3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面四种查询方法分别适用于以上面不同的对象方式...

原生php往word文件对应位置写入值 , 并实现预览和下载功能(超实用)

文件预览的效果图(附带导出pdf文件和打印功能): 实现方式如下: 1.打开模板word文件 , 在对应地方打上... 用数组来记录书签和表字段的对应关系 如果经常变动也可以用数据库来记录 'PROJECT_MAP' => ...

vb源码

VB源码:HOOK 万能网游密码截取技术之（诛仙）  ... ...VB源码:IP地址输入框控件  下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码  下载地址:http://www.2e3.

vb mysql 字符集_查看和设置MySQL数据库字符集 (默认情况下，mysql的字符集是latin1(ISO_8859_1)（注：...

注意 安装mysql时最好设置成utf8格式字符编码，安装过程中有一个界面是设置字符的，选择第三个，并从右边下拉框中选择utf8即可，这样mysql的字符集变成utf8了。一、通过MySQL命令行查看、修改:1. 查看字符编码：...

用VB开发绿色软件

我认为的绿色软件就是免安装，短小精干的软件，目前的大部分共享软件都属于此类（或向绿色软件靠拢）。连比较大的phoshop软件也把一些注册项放到一个专门的注册文件（reg文件）里，到时重装的操作系统，只需把reg...

[转]FTP搜索引擎的设计与实现（优化版）

FTP搜索引擎的设计与实现（优化版）By falcon摘要：FTP是因特网最主要的服务之一，FTP搜索引擎为资源共享提供了极大的方便。本文分析和设计了一个基于WEB的FTP搜索引擎，在ASP+ACCESS+VB环境下给出了编程实现，并...

VBS读写文件以及OpenTextFile方法

文件的创建： FSO 让你可以用现存在的文本工作，也可以让你自己创建脚本。为了创建一个新的文本文件...例如：（在c:\windows文件夹创建一个xxwl.ini文件） Set objFSO = CreateObject("Scripting.FileSystemObject") S

七夕情人节表白HTML源码(两款)

七夕节、情人节表白用的HTML源码(两款)

相关热词 c#dll vb 调用 c# outlook c#修改表数据 c# 子窗体值返给父窗体 c# label 格式化 c# 程序如何控制摄像头 c# 获取运行时间 c#知识点结构图 微软c# c#解析owl