Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 4729

You are currently viewing page 2 of this multi-page discussion thread; Jump to the first page

Permalink

Jul 26th, 2007

Re: accessing ms access from VB

yes. infact that was my main mistake!ive tried other methods as well..thanx for reminding me bout that,jireh..

rumi

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since Jul 2007

Permalink

Jul 26th, 2007

Re: accessing ms access from VB

Click to Expand / Collapse Quote originally posted by rumi ...

yes. infact that was my main mistake!ive tried other methods as well..thanx for reminding me bout that,jireh..

So does your problem is solved?

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Jul 27th, 2007

Re: accessing ms access from VB

yes,quite but now im facing another problem.. i tried using loops to check whether Reservation made by customer have been occupied before saving the record,so i used these..

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub CmdSave_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Reserv_Date").Value = Txt_Date.Text And Adodc1.Recordset.Fields("Booking_Time").Value = Txt_Time.Text And Adodc1.Recordset.Fields("Fac_Type").Value = Cmb_Type.Text Then
Txt_Date.Text = ""
Txt_Time.Text = ""
Txt_Date.SetFocus
DisableButtons
CmdSave.Enabled = True
CmdAddNew.Caption = "&Cancel"
MsgBox "Reservation occupied! Please choose another date and time", vbOKOnly
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Requery
If Adodc1.Recordset.Fields("Reserv_Date").Value <> Txt_Date.Text And Adodc1.Recordset.Fields("Booking_Time").Value <> Txt_Time.Text And Adodc1.Recordset.Fields("Fac_Type").Value = Cmb_Type.Text Then
Adodc1.Recordset.Update
EnableButtons
CmdSave.Enabled = False
CmdAddNew.Caption = "&Add New"
MsgBox "Records are succesfully saved!", vbOKOnly
End If
End Sub
Private Sub CmdSave_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Reserv_Date").Value = Txt_Date.Text And Adodc1.Recordset.Fields("Booking_Time").Value = Txt_Time.Text And Adodc1.Recordset.Fields("Fac_Type").Value = Cmb_Type.Text Then
Txt_Date.Text = ""
Txt_Time.Text = ""
Txt_Date.SetFocus
DisableButtons
CmdSave.Enabled = True
CmdAddNew.Caption = "&Cancel"
MsgBox "Reservation occupied! Please choose another date and time", vbOKOnly
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Requery
If Adodc1.Recordset.Fields("Reserv_Date").Value <> Txt_Date.Text And Adodc1.Recordset.Fields("Booking_Time").Value <> Txt_Time.Text And Adodc1.Recordset.Fields("Fac_Type").Value = Cmb_Type.Text Then
Adodc1.Recordset.Update
EnableButtons
CmdSave.Enabled = False
CmdAddNew.Caption = "&Add New"
MsgBox "Records are succesfully saved!", vbOKOnly
End If
End Sub

but it never work..do u have any idea how?

rumi

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since Jul 2007

Permalink

Jul 27th, 2007

Re: accessing ms access from VB

try this one hope it would work because I've never use adodc...

(Toggle Plain Text)

Function savecheck() As Boolean
   Dim rs as recordset for adodb sorry I don't know how 
   savecheck = True
Set rs= open the recordset for that table ...
the query in your rs must be like this "select * from [tablename] where Reserv_Date+Booking_Time+Fac_Type = '" & Txt_Date.Text + Txt_Time.Text  + Cmb_Type.Text & "'"
   if Not rs.Eof then
      savecheck=False
      Msgbox "Already occupied!" 
      Exit Function
   End if
End If

Private Sub CmdSave_Click()
    If savecheck Then
       put your code here that will save your data entry
   End if
Ens Sub

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Jul 29th, 2007

Re: accessing ms access from VB

hi there jireh..
i tried blending in your codes with the use of adodc but it nvr seem to work..i found the logic of your codes appropriate for my program but i just dont know how to make a query with the use of adodc..it seems that adodc simplifies the steps in connecting from vb to database(everything is almost auto)but i still cant figure out a way.i know you never use adodc before but if you happen to have any idea on resolving my problem please send feedbacks k..thanx so much

rumi

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since Jul 2007

Permalink

May 1st, 2008

Re: accessing ms access from VB

How do i access only a column from MS access to VB?
I am also newbie on VB.

elleinad

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since May 2008

Permalink

May 2nd, 2008

Re: accessing ms access from VB

Click to Expand / Collapse Quote originally posted by anud18 ...

hi....i m actually developing a tool which uses access as the database source...i hv created 2 coloumns in the database....username and password....now in my tool i need to ask the user fr his username and password....if it matches with any of the combinations stored in the database then the user can login ....cn anyone help me wiith dis ....

First create Connectivity with your database with DAta control or ADODC control or by ADODB . If you are useing ADODB connection then create recordset to access your table and then compare all values of ur table with username and password given by user.
like this way: if rs is recordset then code will be like---------
rs.open("select * from tbluser where loginname = '" & txtlogin.text & "' and password = '" & txtpassword.text & "'"),cn
if rs.recordcount > 0 then
''' login successfully
else
''' cant login
end if
----- try this code with your table name and column name....

roshani285

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since May 2008

Permalink

Jan 13th, 2009

Re: accessing ms access from VB

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
option Explicit
 
Private Sub cmdAccept_Click()
Dim cn As New ADODB.Connection
Dim strCNString As String
Dim rs As New ADODB.Recordset
Dim Txt As String
 
   On Error GoTo ErrHandler
   'Connect to database
   strCNString = "Data Source=" & App.Path & "\databasename.mdb"
   cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
   cn.ConnectionString = strCNString
   cn.Properties("Jet OLEDB:Database Password") = ""
   cn.Open
   'Open recordsource
   With rs
       .Open "Select * from tablename where name='" & txtName.Text & "' and Password='" & txtPassword.Text & "'", cn, adOpenDynamic, adLockOptimistic
       'Check username and password
       If .EOF Then
           MsgBox "Access Denied...Password and name do not match,Please enter correct Details!", vbOKOnly + vbCritical, "Security Login"
           txtName.Text = ""
           txtPassword.Text = ""
           txtName.SetFocus
           cn.Close
       Else
           Txt = "" & " " & UCase$(txtName.Text) & ""
           MsgBox "Welcome!!!" & Txt, vbOKOnly + vbExclamation, "Security Login"
 
           cn.Close
           Unload Me
           frmform2.Show
 
       End If
   End With
 
ExitHere:
   Exit Sub
 
ErrHandler:
   MsgBox Err.Number & " " & Err.Description, vbCritical, "Login ..."
   cn.Close
End Sub
 
Private Sub Form_Load()
txtPassword.PasswordChar = "*"
 
End Sub
option Explicit

Private Sub cmdAccept_Click()
Dim cn As New ADODB.Connection
Dim strCNString As String
Dim rs As New ADODB.Recordset
Dim Txt As String

   On Error GoTo ErrHandler
   'Connect to database
   strCNString = "Data Source=" & App.Path & "\databasename.mdb"
   cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
   cn.ConnectionString = strCNString
   cn.Properties("Jet OLEDB:Database Password") = ""
   cn.Open
   'Open recordsource
   With rs
       .Open "Select * from tablename where name='" & txtName.Text & "' and Password='" & txtPassword.Text & "'", cn, adOpenDynamic, adLockOptimistic
       'Check username and password
       If .EOF Then
           MsgBox "Access Denied...Password and name do not match,Please enter correct Details!", vbOKOnly + vbCritical, "Security Login"
           txtName.Text = ""
           txtPassword.Text = ""
           txtName.SetFocus
           cn.Close
       Else
           Txt = "" & " " & UCase$(txtName.Text) & ""
           MsgBox "Welcome!!!" & Txt, vbOKOnly + vbExclamation, "Security Login"
           
           cn.Close
           Unload Me
           frmform2.Show
           
       End If
   End With

ExitHere:
   Exit Sub

ErrHandler:
   MsgBox Err.Number & " " & Err.Description, vbCritical, "Login ..."
   cn.Close
End Sub

Private Sub Form_Load()
txtPassword.PasswordChar = "*"

End Sub

Last edited by Ancient Dragon; Jan 13th, 2009 at 10:55 am. Reason: add code tags

sackymatt

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

29 posts
since Dec 2008

Permalink

Jan 13th, 2009

Re: accessing ms access from VB

hope that code helps u anud

sackymatt

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

29 posts
since Dec 2008

Previous
1
Page 2

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Trying to create a Simple AIO need help!

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: vb6 help needed for bill printing

DaniWeb Message

Cancel Changes

User Name
Password