Results 1 to 2 of 2
Thread: VB6
Hybrid View
-
3rd January 2011 23:47 #1Registered User
Join Date: Nov:2008
Location: Sofia, Mladost 3
Posts: 311
VB6
, , . . , text1, text2 .
Code:Dim dbWorkspace As Workspace Dim dbDatabase As Database Dim dbTable As Recordset Dim dbPass As Field Dim dbName As Field Private Sub Command2_Click() If txtName.Text <> "" And txtPass.Text <> "" Then UpdateRecord dbTable.MovePrevious If dbTable.BOF Then NewRecord DisplayFields End If End Sub Private Sub Command3_Click() If txtName.Text <> "" And txtPass.Text <> "" Then UpdateRecord dbTable.MoveNext If dbTable.EOF Then NewRecord DisplayFields End If End Sub Private Sub Form_Load() If Dir("login1.mdb") <> "" Then MsgBox "loading..." Else Dim dbWorkspace As Workspace Dim dbDatabase As Database Dim dbTableDef As TableDef Dim dbName As Field Dim dbPass As Field Set dbWorkspace = DBEngine.Workspaces(0) Set dbDatabase = dbWorkspace.CreateDatabase("login1.mdb", dbLangGeneral) Set dbTableDef = dbDatabase.CreateTableDef("login") Set dbName = dbTableDef.CreateField("name", dbText) Set dbPass = dbTableDef.CreateField("pass", dbText) dbName.Size = 50 dbPass.Size = 50 dbTableDef.Fields.Append dbName dbTableDef.Fields.Append dbPass dbDatabase.TableDefs.Append dbTableDef dbDatabase.Close MsgBox "Databbase for login members created ", , "Create list" End If 'izvli4ane Set dbWorkspace = DBEngine.Workspaces(0) Set dbDatabase = dbWorkspace.OpenDatabase("login1.mdb") Set dbTable = dbDatabase.OpenRecordset("login", dbOpenTable) If dbTable.BOF And dbTable.EOF Then NewRecord dbTable.MoveFirst DisplayFields End Sub Private Sub NewRecord() dbTable.AddNew dbTable!Name = " " dbTable!pass = " " dbTable.Update dbTable.MoveLast End Sub Private Sub UpdateRecord() dbTable.Edit dbTable!Name = txtName.Text dbTable!pass = txtPass.Text dbTable.Update End Sub Private Sub DisplayFields() txtName.Text = dbTable!Name txtPass.Text = dbTable!pass End Sub Private Sub logbutton_Click() If Text1.Text = ' tyk nz kakvo trqbav da e :S Then MsgBox "hi" Else End If End Sub
-
3rd January 2011 23:51 #2
: http://www.blueclaw-db.com/access_findfirst.htmCode:dbTable.FindFirst "<SQL>" if Not dbTable.NoMatch Then




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in