VB 怎么读写注册表啊，

Question

我在工程中添加一个窗体，用来设置我连接的数据库（SQL SERVER 2000）的
代码如下
Provider=SQLOLEDB;
Data Source=SERVER;
Initial Catalog=SW;
User ID=sa;
Password=12345
现在是主要把数据库名称：SERVER ID：SA 密码：12345  保存在注册表里
好让应用程序不用每次启动都设置其连接到的数据库属性但是我对VB操作注册表不懂
请高手赐招
谢了

Answer 1

用wsh
参考这几句代码:
      regS = "HKEY_CURRENT_USER\Software\YtInfo\GpsClient\GpsClientPath"  '安装文件时注册表位置
     
        Set Reg = CreateObject("Wscript.Shell")
        'Reg.RegWrite "要写入的值的名称", "值"  .RegRead 读键值
        regPath = Reg.RegRead(regS)

Answer 2

GetSetting 函数
      从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数：部分 描述 appname 必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。 
section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。 
key 必要。字符串表达式，返回注册表项设置的名称。 
default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。 
说明如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。
 --------------------------SaveSetting 语句
      在 Windows 注册表中保存或建立应用程序项目。语法SaveSetting appname, section, key, settingSaveSetting 语句的语法具有下列命名参数：部分 描述 appname 必要。字符串表达式，包含应用程序或工程的名称，对这些应用程序或工程使用设置 
section 必要。字符串表达式，包含区域名称，在该区域保存注册表项设置。 
key 必要。字符串表达式，包含将要保存的注册表项设置的名称。 
setting 必要。表达式，包含 key 的设置值。 
说明如果无论如何也不能保存注册表项设置，则将导致错误发生。

Answer 3

参照：SaveSetting App.Title, "Settings", "SERVER_ID", "SA ")text1.text= GetSetting(App.Title, "Settings", "SERVER_ID")

Answer 4

App.Title 我写了我的工程名
怎么报错啊
保存的默认路径是注册表HKEY_CURRENT_USER\Software 下面吗？

Answer 5

一般来说，不要引用WSHOM。OCX来读写注册表，以前我就是用那个来读写，发现在有的机器上经常出问题，我现在都用API来读写注册表

Answer 6

操作注册表得调用api，可以实现注册表的读写操作。需要特别声明

Answer 7

已经搞定，用的API
谢谢各位
结帖！