/ Snippet Library - View Code

Snippet details

ID: 308

Viewed: 1309

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

to load a database and have it print in textboxes.
Add some textboxes and 2 listboxes. also add a data control and leave tehn all named as defaults.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub Form_Load() ' to load from any harddrive Dim DBPath As String DBPath = App.Path If Right(DBPath, 1) <> "" Then DBPath = DBPath & "" Data1.DatabaseName = DBPath & "nintendo.mdb" Data1.RecordSource = strsql Data1.Refresh On Error Resume Next Data1.Recordset.MoveLast 'count the records Text6.Text = Data1.Recordset.RecordCount Data1.Recordset.MoveFirst Call filltext End Sub Private Sub filltext() Data1.Recordset.MoveLast Data1.Recordset.MoveFirst Lst1.Text = "" Lst2.Text = "" For a = 1 To DatBoy.Recordset.RecordCount ' this one sets a carriage return Lst1.AddItem Data1.Recordset!Game Lst2.AddItem Data1.Recordset!volume DatBoy.Recordset.MoveNext Next a BtnClear.Enabled = True End Sub

No Reviews to show