回 帖 发 新 帖 刷新版面

主题:这些代码是连接服务器的谁能给我解释一下啊

Private Sub btnDbConn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDbConn.Click
        Dim succ As Boolean = False

        If txtServer.Text = "" Then
            MsgBox("请输入服务器名")
        ElseIf txtDatabase.Text = "" Then
            MsgBox("请输入数据库名")
        End If

        '如果用户名跟密码都为空,则尝试用WINDOWS的集成安全性连接数据库
        If txtUsername.Text = "" And txtPassword.Text = "" Then
            If OleConn.SqlConnection(txtServer.Text, txtDatabase.Text) Then
                succ = True
            End If
        Else
            If OleConn.SqlConnection(txtServer.Text, txtDatabase.Text, txtUsername.Text, txtPassword.Text) Then
                succ = True
            End If
        End If

        If succ Then
            Server = txtServer.Text
            Database = txtDatabase.Text
            Username = txtUsername.Text
            Password = txtPassword.Text

            '保存登录设置到注册表
            SaveSetting("student", "config", "server", Server)
            SaveSetting("student", "config", "database", Database)
            SaveSetting("student", "config", "username", Username)
            SaveSetting("student", "config", "password", Password)
            '控制返回到主界面
            btnDefault.PerformClick()
        End If
    End Sub

    Private Sub frmDbConn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '从注册表读连接设置
        Server = GetSetting("student", "config", "server")
        Database = GetSetting("student", "config", "database")
        Username = GetSetting("student", "config", "username")
        Password = GetSetting("student", "config", "password")
        txtServer.Text = Server
        txtDatabase.Text = Database
        txtUsername.Text = Username
        txtPassword.Text = Password
    End Sub

回复列表 (共3个回复)

沙发

SaveSetting 函数在 Windows 注册表中为指定为 AppName 的应用程序生成注册表项,然后使用 GetSetting 函数显示其中一项设置

先从注册表获取用户 密码 服务器 数据库名
按钮事件调用写好的连接数据库函数吧然后再把新输入的用户 密码 服务器 数据库名
保存到注册表

最后是生成btnDefault这个按钮的click事件

板凳

SaveSetting 函数
用法怎么用 啊我们能修改函数吗

3 楼

直接调用就行了  MSDN里面有具体的用法吧
这样
Public Sub SaveSetting( _
   ByVal AppName As String, _
   ByVal Section As String, _
   ByVal Key As String, _
   ByVal Setting As String _
)
SaveSetting 函数将键添加到 HKEY_CURRENT_USER\Software\VB and VBA Program Settings。

如果由于任何原因无法保存键设置,则发生错误

我来回复

您尚未登录,请登录后再回复。点此登录或注册