form1.frm

极易使用的SQL数据库操作控件 Ver 1.0 一个很容易使用的SQL服务器操作控件

VERSION 5.00
Object = "*\AProject1.vbp"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form1 
   Caption         =   "SQL数据库操作控件示例 Ver 1.0"
   ClientHeight    =   5730
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10800
   LinkTopic       =   "Form1"
   ScaleHeight     =   5730
   ScaleWidth      =   10800
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      Caption         =   "绑定到MSHFlexGrid"
      Height          =   405
      Left            =   2745
      TabIndex        =   14
      Top             =   4035
      Width           =   1545
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   1515
      Left            =   5130
      TabIndex        =   13
      Top             =   3840
      Width           =   5520
      _ExtentX        =   9737
      _ExtentY        =   2672
      _Version        =   393216
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
   Begin VB.CommandButton Command4 
      Caption         =   "备份数据库到文件"
      Height          =   435
      Left            =   2820
      TabIndex        =   12
      Top             =   4650
      Width           =   1710
   End
   Begin VB.ListBox List3 
      Height          =   2760
      Left            =   5970
      TabIndex        =   11
      Top             =   960
      Width           =   4500
   End
   Begin VB.ListBox List2 
      Height          =   2760
      Left            =   3240
      TabIndex        =   10
      Top             =   960
      Width           =   2625
   End
   Begin VB.CommandButton Command3 
      Caption         =   "列取数据库.字段"
      Height          =   405
      Left            =   255
      TabIndex        =   9
      Top             =   3900
      Width           =   900
   End
   Begin VB.ListBox List1 
      Height          =   2760
      Left            =   180
      TabIndex        =   8
      Top             =   975
      Width           =   2655
   End
   Begin VB.TextBox TxtPassWord 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   9000
      PasswordChar    =   "*"
      TabIndex        =   3
      Text            =   "911"
      Top             =   300
      Width           =   1500
   End
   Begin VB.TextBox TxtSQLusername 
      Height          =   330
      Left            =   5790
      TabIndex        =   2
      Text            =   "sa"
      Top             =   330
      Width           =   1935
   End
   Begin VB.TextBox TxtSQLserver 
      Height          =   330
      Left            =   3105
      TabIndex        =   1
      Text            =   "hua05"
      Top             =   300
      Width           =   1545
   End
   Begin VB.CommandButton Command1 
      Caption         =   "连接到服务器"
      Height          =   405
      Left            =   180
      TabIndex        =   0
      ToolTipText     =   "函数：ConnectToSQLServer"
      Top             =   255
      Width           =   1830
   End
   Begin SQLServerData.sqlSDBC sqlSDBC1 
      Left            =   1545
      Top             =   1530
      _ExtentX        =   741
      _ExtentY        =   741
   End
   Begin VB.Label Label4 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label4"
      Height          =   270
      Left            =   0
      TabIndex        =   7
      Top             =   5460
      Width           =   10785
   End
   Begin VB.Label Label3 
      Caption         =   "密码："
      Height          =   210
      Left            =   8190
      TabIndex        =   6
      Top             =   360
      Width           =   585
   End
   Begin VB.Label Label2 
      Caption         =   "用户名："
      Height          =   255
      Left            =   4770
      TabIndex        =   5
      Top             =   390
      Width           =   915
   End
   Begin VB.Label Label1 
      Caption         =   "服务器名："
      Height          =   210
      Left            =   2205
      TabIndex        =   4
      Top             =   360
      Width           =   930
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/06/28
'描    述：SQL数据库操作控件示例 Ver 1.0
'网    站：http://www.mndsoft.com/
'e-mail  ：[e-mail]   最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ    ：88382850
'****************************************************************************
'更多示例请访问枕善居获取

Option Explicit

'连接到SQL服务器
'语法：object.ConnectToSQLServer 服务器名次,用户名,登陆密码
'示例:
Private Sub Command1_Click()
    If Command1.Caption = "连接到服务器" Then
        sqlSDBC1.ConnectToSQLServer TxtSQLserver, TxtSQLusername, TxtPassWord
     Else
        sqlSDBC1.DisconnectFromSQLServer

     End If
     Call checkSQL
End Sub




'检查SQL 服务器连接状态
Sub checkSQL()
    If sqlSDBC1.IsConnected Then
       Label4.Caption = "已经连接"
       Command1.Caption = "断开连接"
    Else
       Command1.Caption = "连接到服务器"
       Label4.Caption = "未连接"
    End If
End Sub

'列取所有数据库
Private Sub Command3_Click()

 sqlSDBC1.OpenConnection TxtSQLusername, TxtPassWord, TxtSQLserver, "Northwind"
' sqlSDBC1.OpenRecordset "select * form Customers"
' sqlSDBC1.CheckAccount TxtSQLserver, TxtSQLusername, TxtPassWord
sqlSDBC1.ListDatabases List1

sqlSDBC1.ListTables List2
List2.Selected(3) = True



End Sub

Private Sub Command4_Click()
'sqlSDBC1.RestoreDatabaseFromFile "fangwu", "c:\133.bak"
sqlSDBC1.BackupDatabaseToFile "fangwu", "c:\133.bak"

End Sub

Private Sub Command5_Click()
   sqlSDBC1.BindToMSHFlexGrid MSHFlexGrid1
End Sub

Private Sub List2_Click()
List3.Clear
sqlSDBC1.ListFields List3, List2.Text
End Sub