Results 1 to 2 of 2

Thread: VB6

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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

  2. #2
    Registered User PepiX's Avatar
    Join Date: Sep:2004
    Location:
    Posts: 13,376


    Code:
    dbTable.FindFirst "<SQL>"
    if Not dbTable.NoMatch Then
    : http://www.blueclaw-db.com/access_findfirst.htm
    ███████ ( Ilko)
    ███████-, ? ( )
    ███████

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |