jdata1.frm

vb数据库操作演示

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "VB操作数据库方法演示"
   ClientHeight    =   3675
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   ScaleHeight     =   3675
   ScaleWidth      =   4875
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      Caption         =   "退出"
      Height          =   375
      Left            =   3690
      TabIndex        =   5
      Top             =   3000
      Width           =   975
   End
   Begin VB.CommandButton Command3 
      Caption         =   "方法二"
      Height          =   375
      Left            =   2610
      TabIndex        =   3
      Top             =   3000
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "清 空"
      Height          =   375
      Left            =   1410
      TabIndex        =   2
      Top             =   3000
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "方法一"
      Height          =   375
      Left            =   210
      TabIndex        =   0
      Top             =   3000
      Width           =   975
   End
   Begin VB.ListBox List1 
      Height          =   1680
      Left            =   930
      TabIndex        =   1
      Top             =   1080
      Width           =   3015
   End
   Begin VB.Label Label2 
      Caption         =   "VB大世界(http://vbworld.sxnw.gov.cn)  贾利冬"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      MousePointer    =   14  'Arrow and Question
      TabIndex        =   6
      Top             =   720
      Width           =   4095
   End
   Begin VB.Label Label1 
      Caption         =   "VB操作数据库方法演示"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   840
      TabIndex        =   4
      Top             =   240
      Width           =   3375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim str As String
Dim db As Database
sdbname = App.Path + "\net1.mdb"
Set db = OpenDatabase(sdbname)
Set rs = db.OpenRecordset("ask")
For i = 1 To rs.RecordCount
List1.AddItem rs("姓名")
rs.MoveNext
Next i
Command3.Enabled = False
End Sub

Private Sub Command2_Click()
For i = List1.ListCount - 1 To 0 Step -1
 List1.RemoveItem i
Next i
Set rs = Nothing
Set conn = Nothing
Command1.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
Dim str As String
Dim conn As Connection
Dim rs As Recordset
Set conn = New Connection
Set rs = New Recordset
sdbname = App.Path + "\net1.mdb"
sPassword = ""
str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
conn.Open str
rs.Open "Select * from ask", conn, 3
For i = 1 To rs.RecordCount
List1.AddItem rs("姓名")
rs.MoveNext
Next i
Command1.Enabled = False
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Label2_Click()
ShellExecute hWnd, "open", "http://vbworld.sxnw.gov.cn", vbNullString, vbNullString, conSwNormal
End Sub