Visual Basic :: Updating A Password To An Access Database

Pass A Password To A Password Protected Access Database Using OLE??
I need to pass a password to an access database that is password protected.

This database is going to be opened by a vb app, that uses the access application ref. 9.0 libary. What I need to do is open a report in preview mode. All that I have done previously.

This is the code...

Dim AccessApp As Access.Application
Set AccessApp = New Access.Application

AccessApp.OpenCurrentDatabase ReadFromINI("DATABASES", "ESITE", App.Path & "settings.ini")
AccessApp.DoCmd.OpenReport "rptAnvändarLösen", acViewNormal
AccessApp.CloseCurrentDatabase

Set AccessApp = Nothing

When I have done this before the OpenCurrentApplication had a seperate input for password, but not the 9.0 library...

How can I answer the password box that now appears on the screen..???

/Smirre

Supplying Password For Password Protected Access Database
for protection of access database suppose i set password for the database.

then i have given the connection string to connection object of ADO. now if i open this connection for database i get an error.
so any suggestions in this matter are welcome.

Open Access Form From A Password Protected Access Database Through VB
Iam using a password protected Access database. I can open the database with out any problem. There is a startup Access form associated with this database. I would like to open this form with out any prompt to the user for the password. When the program is run, the database opens twice. The first instance with the login screen prompting the user for the password. The second instance opens as desired. How to overcome this problem with the program opening the form only once.
Code:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Const VK_NUMLOCK = &H90
Private Const VK_SCROLL = &H91
Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Sub SafeSendkeys(ByVal keys As String, Optional bWait As Variant)
Dim keysBefore(0 To 255) As Byte
Dim keysAfter(0 To 255) As Byte
Call GetKeyboardState(keysBefore(0))

If IsMissing(bWait) Then
Call SendKeys(keys, False)
Else
Call SendKeys(keys, CBool(bWait))
End If
Call GetKeyboardState(keysAfter(0))

If keysBefore(VK_NUMLOCK) <> keysAfter(VK_NUMLOCK) Then
Call keybd_event(VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End If
If keysBefore(VK_CAPITAL) <> keysAfter(VK_CAPITAL) Then
Call keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End If

If keysBefore(VK_SCROLL) <> keysAfter(VK_SCROLL) Then
Call keybd_event(VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End If

End Sub
'Under a click event I have:
'************************
UserApps(AppAP).appRunPath = "C: estdb1.mdb"
If UserApps(AppAP).appAvailable = True Then LaunchFile (UserApps(AppAP).appRunPath)
hApp = FindWindow(vbNullString, "Password Required")
Call SetForegroundWindow(hApp)

Call SafeSendkeys("password", True)
Call SafeSendkeys("{Enter}", True)
'************************
What is wrong in my code?

Thanks in advance.
Rama

How To Open An Access Form From A Password Protected Access Database?
I have a password protected access database. I can open this database. Though the startup form (Access form) comes up, the database opens twice. One instance with the login screen for the password (since the database is password protected) and the other opens properly with the form. Can any one help in opening without the first instance occuring?

Code:
UserApps(AppAP).appRunPath = "c: estdb.mdb"
If UserApps(AppAP).appAvailable = True Then LaunchFile (UserApps(AppAP).appRunPath)
(AppAP).appRunPath, "password")
hApp = FindWindow(vbNullString, "Password Required")
Call SetForegroundWindow(hApp)
Call SafeSendkeys("password", True)
Call SafeSendkeys("{Enter}", True)

Thanks in advance,
Rama

Updating An Access Database In Vb6
I have a database named acesar.mdb with many tables one of which is called "userfile". Within that table is a field called "expDate" which is a date field in date/time format. I want to have a routine which adds one year to each record (member) of that table for that field. Can someone help me with this? The event will be triggered by a "special" password which I have already done. Thanks.

Updating Access Database
HOW DO I WRITE A PROGRAM IN VISUAL BASIC TO UPDATE A ACCESS DATABASE

Updating An ACCESS 97 DataBase...
Hi !!

Here's the problem...

I've got a project running with a Access97 DB and I'd like to upgrade it regularely from a *.txt file... is it possible ? and do I have to convert the *.txt into Access (*.mdb) first ?
I'm lost... How can I do ?

Thank you

COSIDUS

Updating Access Database
Hi

Making the conversion from VB6 to VB.NET has been extremely difficult for me. Everytime I think that I have things working right, something else appears. Here's the latest.

My code to update a database is (I thought) very simple as shown here

dataAdapter.Update(dataSet,"Table")

Unfortunately, this results in an error message that reads "Update requires a valid UpdateCommand when passed a DataRow collection with modified rows."

I have tried to find this message in Microsoft's KB and in the help files but can't and hove no clue as to the cause. My code is identical to the code in the tutorial I am working with.

Can anyone help a very frustrated novice?

Updating Access Database Using VB6
Hi,

I have a quite confusing question. I am writing a Visual Basic 6.0 program that interacts with two databases. One is an existing database created by someone else. This database has Access forms for the user to fill out. One of the fields on these forms is a lookup text field. In my program, I am trying to update this field. However, it will not allow me to update this field because it is a lookup text field. Is there any possible way around this?

Thanks!

Rooey

Updating Access Database From Web!
I have a large Access database (price-catalog) on-line. At the moment I update it by using the web-query in MS Excel. I have included these queries to my self made VB macro that acquires the data from 5 different web sites, cleans the data and compines them to one large database. Then I convert it to Access DB and upload it to my site. (users can now search the database to find the lowest price)
This is pretty complicated task to do each day. So, I was wondering that is it possible to automate this process?
Is it possible to write a script that does this work for me (to schedule the update, executed at nights) so that I don't have to do anything? Just check that the process has been done right.

Or can you suggest some other ways to do this. My site works like Pricesearch.com.

Any suggestions are welcome!

Access Database Updating SLOW
HI... Im using VB6 with Crystal Reports9. I seem to have a problem when it comes to displaying the Information in a Table on my Report. Before i load the report, i first Populate my Database Table with Records, and then the report will use this Table's Records to display the information on the screen using the report viewer.

My Problem is: The last few records of the table is not displayed, because when the report is loaded, the records arent updated to the Table yet, when i look inside the table it;s not their, only about 2s after the update, then the reports will show. So it looks like when i add a record and close my database Table, it takes about 2s before the last few records are visable, only after 2s when i load the report, then all the data shows. Here is my connectionstring info:

Code:
Dim sConn as stirng
dim mConnection as new ADODB.Connection

'Create The Connection String
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Database.mdb" & ";Persist Security Info=False"
mConnection.Open sConn

This is how i add a record to the table.As you can see i do close the connection to the table, but the data is only visable inside the table after a few seconds, and this is not good, because the report is instantly loaded after this code is code, by then the records arent visable yet.

Code:
Private Sub SaveOtherFieldsToDatabase()
Dim SubReportOtherFieldsTable As New ADODB.Recordset

'Calculate the Net Salary that must be shown at the bottom of the Salary Report
dbSalaryTotal = (dbTripsTotal + dbYardworkTotal) - (dbDeductionsTotal + dbInsurance)

With SubReportOtherFieldsTable

.Open "SELECT * FROM SubReport_Otherfields", mConnection, adOpenDynamic, adLockOptimistic, adCmdText
.AddNew

!fldTotalSalary = dbSalaryTotal
!fldInsuranceAmount = dbInsurance
!fldDateFROM = DateFROM
!fldDateTO = DateTO

.Update
.Close

Set SubReportOtherFieldsTable = Nothing

End With

End Sub

This is code i use in my form_load event to show my report

Code:
'*** Set and LOAD THE REPORT ***
Set Report = New EmployeeSalaryReport
Report.DiscardSavedData
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
CRViewer91.Zoom (87)

Searching And Updating Database Access
Hey there,

I'm not too sure on how to go about this i would like to

1) Search the database
2) if a matching computername is found in the database
3) overwrite the computername with a new info

Thus far my codes are as such

Rs.Find "PC"

Do While Rs.EOF <> True
Debug.Print "PC Name: "; Rs!PC
Count = Count + 1
Mark = Rs.Bookmark
Rs.Find "PC", 1, adSearchForward, Mark
Loop

How do i continue from here

thank you very much
cheers!

Problems Updating MS Access Database
I have the following code. I am retreiving data from two tables in a database, but want to update one of the fields in one of the tables. It's not liking the TempDyna.Edit code. Any ideas on how to get this to update my field properly?

TempSQL$ = "SELECT T980_DD350.B1A_CONT_NR_TX, T980_REPORT_ID.SENT_DT FROM T980_DD350, T980_REPORT_ID WHERE T980_DD350.K_ID = T980_REPORT_ID.K_ID AND T980_REPORT_ID.K_ID = " & Kid
Set TempDyna = MyDb.OpenRecordset(TempSQL, dbOpenDynaset)
DBEngine.Idle dbFreeLocks
If TempDyna.BOF = False And TempDyna.EOF = False Then
TempDyna.Edit
TempDyna.LockEdits = False
TempDyna("SENT_DT") = Format(Now, "MM/DD/YYYY")
TempDyna.Update
End If
Call dfClose(TempDyna)

Vb Error Updating With Access Database
Good Afternoon.

I am posting this again. Usually I receive a response very quick, but since there were 2 responses due to me posting on the wrong site, maybe it got overlooked. I would really appreciate the help. Thanks in advance.

I get error "3251" (Object or provider is not capable of performing requested operation).

I am able to update Access table when I read sequentially thru the file;

sample code:

strSql = "Abends"

rstAbends.Open strSql, strConn1, adOpenKeyset, adLockOptimistic, adCmdTable

intFlag = 0

Do Until rstAbends.EOF Or intFlag = 1
If rstAbends!JesNumber = txtJesNum.Text Then

If (Len(txtTurnAround.Text) > 0) And
rstAbends!turnaroundaction <>
UCase(txtTurnAround.Text) Then
rstAbends!turnaroundaction =UCase (txtTurnAround.Text)
End If
intFlag = 1

rstAbends.Update

However, when I use the SQL statement to retrieve the record, (which is the correct way to do it since I know the key value!), I get the above mentioned error, which will not even allow me to perform an assignment statement to the field. strjesnumber does have a value.

rstAbends.Open strSql, strConn1, adOpenKeyset, adLockOptimistic, adCmdTable

Set rstAbends = olah_cndb.Execute("Select * from ABENDS WHERE jesnumber = '" & strjesnumber & "'")

'If Not IsNull(txtTurnAround.Text) Then
If (Len(txtTurnAround.Text) > 0) And rstAbends!turnaroundaction <> UCase(txtTurnAround.Text) Then
rstAbends!turnaroundaction = UCase(txtTurnAround.Text)
End If

rstAbends.Update

Thanks in advance

Problem Updating Access Database
Morning,

Have a problem where i am trying to update some tables in access from vb. What it does is Deletes thecontents of a table (WORKS), imports the contents of a csv file( DOESNT WORK SAYS THAT THE TABLE ALREADY EXISTS) and then moves the data from the import table to the actual table it needs to be in(WORKS). What i need to do is to tell it to overwrite the table in the second query! The code is as follows......

Private Sub Form_Load()

Dim cmd As String
Dim sqldelete As String
Dim sqlmove As String
Dim sqlimport As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim database As String

Adodc1.Visible = False

sqldelete = "DELETE IMPORT.[Call start], IMPORT.[Call duration], IMPORT.[Ring duration], IMPORT.Caller, IMPORT.Direction, IMPORT.Called_number, IMPORT.Dialled_number, IMPORT.Account, IMPORT.Is_Internal, IMPORT.[Call ID], IMPORT.Continuation, IMPORT.Party1Device, IMPORT.Party1Name, IMPORT.Party2Device, IMPORT.Party2Name, IMPORT.Hold_Time, IMPORT.Park_Time FROM IMPORT;"
sqlmove = "INSERT INTO SMDR ( [Call start], [Call duration], [Ring duration], Caller, Direction, Called_number, Dialled_number, Account, Is_Internal, Continuation, Party1Device, Party1Name, Party2Device, Party2Name, Hold_Time, Park_Time )SELECT IMPORT.[Call start], IMPORT.[Call duration], IMPORT.[Ring duration], IMPORT.Caller, IMPORT.Direction, IMPORT.Called_number, IMPORT.Dialled_number, IMPORT.Account, IMPORT.Is_Internal, IMPORT.Continuation, IMPORT.Party1Device, IMPORT.Party1Name, IMPORT.Party2Device, IMPORT.Party2Name, IMPORT.Hold_Time, IMPORT.Park_Time FROM IMPORT;"
sqlimport = "SELECT * " & "INTO [IMPORT] " & "FROM [Text;database=C:Program FilesAvayaIP OfficeCCCDeltaServerSMDR_Output].[SMDR.csv]"

'create the connection
cmd = "provider=microsoft.jet.oledb.4.0;" & "data source=" & "c:calllogger2002.mdb"

'Establish the connection
Set cn = New ADODB.Connection
    With cn
        .ConnectionString = cmd
        .Open
    End With
'Ammend the records
Set rs = New ADODB.Recordset
    With rs
        .Open sqldelete, cn
        .Open sqlimport, cn ' This is the line that doesnt work!!
        .Open splmove, cn
    End With
Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

Any help anyone can offer will be greatly appreciated as this is the very last piece of the puzzle.

Thanks

Glen

Updating The Value Of A Field In An Access Database...
I have a combo box, in a subform whose value list is based on a query. How can I make these values reflect the true result of the query without closing and reopening the main form.

Thanks

Error Updating Access Database Via VB Command
Good Afternoon.

I get error "3251" (Object or provider is not capable of performing requested operation).

I am able to update Access table when I read sequentially thru the file;

sample code:

strSql = "Abends"

rstAbends.Open strSql, strConn1, adOpenKeyset, adLockOptimistic, adCmdTable

intFlag = 0

Do Until rstAbends.EOF Or intFlag = 1
If rstAbends!JesNumber = txtJesNum.Text Then

If (Len(txtTurnAround.Text) > 0) And
rstAbends!turnaroundaction <>
UCase(txtTurnAround.Text) Then
rstAbends!turnaroundaction =UCase (txtTurnAround.Text)
End If
intFlag = 1

rstAbends.Update

However, when I use the SQL statement to retrieve the record, (which is the correct way to do it since I know the key value!), I get the above mentioned error, which will not even allow me to perform an assignment statement to the field. strjesnumber does have a value.

rstAbends.Open strSql, strConn1, adOpenKeyset, adLockOptimistic, adCmdTable

Set rstAbends = olah_cndb.Execute("Select * from ABENDS WHERE jesnumber = '" & strjesnumber & "'")

'If Not IsNull(txtTurnAround.Text) Then
If (Len(txtTurnAround.Text) > 0) And rstAbends!turnaroundaction <> UCase(txtTurnAround.Text) Then
rstAbends!turnaroundaction = UCase(txtTurnAround.Text)
End If

rstAbends.Update

Thanks in advance

Datagrid, Saving And Updating To Access Database
Hello

I am using a datagrid and l would like to update and save the contents to the access database. The customer would like to have an excel style grid, that they can navigate and edit details to it, then update. And also they like to be able to add a new record and add that to the database.

I am using the data environment, as l needed to print some reports (working ok)

Code so far.

Code:'updating
deCustomers.rsCmdCustomers.update

'saving
deCustomers.rsCmdCustomers.save

Many thanks in advance

Steve

Updating Single Record In MS Access Database
I have a form that loads records from a database and you can scroll through them. If you come upon a record that does not have a UserID filled in, I have coded the below method to create the user id and for it to populate the text field on the form with the new user id.

My problem is that I also want to update the record with the new userid, but when I try to do this i am getting an exception saying "Object reference not set to an instance of an object".

I'm not sure what I have done wrong, so any suggestions would be appreciated!

**Note
As soon as adapter1.UpdateCommand.CommandText = command1 is processed the exception is caught and it appears that command is nothing...??????

Code:
Private Sub RunMakeUserID()
        Dim command1 As String
        i = objCurrencyManager.Position
        firstName = objDataView.Item(i)("FirstName")
        LastName = objDataView.Item(i)("LastName")
        phoneExtension = objDataView.Item(i)("Extension")

        makeUserID = firstName.Substring(0, 1) + LastName.Substring(0, 1) + phoneExtension

        txtUserID.Text = makeUserID

        Dim connection1 As OleDb.OleDbConnection
        connection1 = New OleDb.OleDbConnection("Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB: Database L" & _
        "ocking Mode=1;Data Source=""F:435Lab6NorthwindNorthwind.mdb"";Jet OLEDB:Engine Type=5;Provider=""Micr" & _
        "osoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist secu" & _
        "rity info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Data" & _
        "base=False;Jet OLEDB:Create System Database=False;Jet OLEDB: Don't Copy Locale on" & _
        " Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet " & _
        "OLEDB:Global Bulk Transactions=1")

        Try

            connection1.Open()
            Dim adapter1 As New OleDb.OleDbDataAdapter
            command1 = ("Update Employees set UserID = '" & txtUserID.Text & "' where LastName = '" & txtLName.Text & "'")
            lblSQL.Text = command1
            adapter1.UpdateCommand.CommandText = command1

            adapter1.UpdateCommand.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            connection1.Dispose()
        End Try

    End Sub

Access Password Protected Access Database
heyy all..just a small question..

i use DAO to manipulate my access database. When i protect my database with a password, i cannot access it with my code. I get an error message saying "Invalid password" i think or something like that. Where should i include the password in my code?

The code i use to access my database is in a module, and this is it:

VB Code:
Public dbServer As DatabasePublic rsFileLog As Recordset public sub connect()Dim qry As Stringqry = "Select * from FileLog" '<--- Table name is FileLogSet dbServer = OpenDatabase(App.Path & "Log.mdb") Set rsFileLog = dbServer.OpenRecordset(qry, dbOpenDynaset)

thanxx in advance

Password For Access Database
Is there anyway I can add a security password for an Access Database file, so that noone can open it manually (that means, going to the file folder and double-clicking it).

Database With Password Access
Probably you people may say i'm new in this stuf of programing... but it doesn't matter's if it is true or not... i just want to now how can we open a database from Microsoft Access, witch has password, in Visual Basic with data control!!! i now the password, i just don't seem to find the property or function to write it...
I've seen other messages and i tried this:

Data1.DatabaseName = App.Path + "data.mdb"
Data2.DatabaseName = App.Path + "data.mdb"
Data1.Connect = "Access;PWD=Password"
Data2.Connect = "Access;PWD=Password"
Data1.RecordSource = "Imagens"
Data2.RecordSource = "Campos"

But it has given a msg that said
>>Couldn't find installable ISAM
why doesn't it works???
I would realy appreciate an answer!!
thank you!

Password For Access Database
Hi, may I know how do I make a password for my access database? Which means that I will require to enter the password in order to open the database.

Using A Password For Access Database Through VB
I have the following code to connect to my access database but i get an error saying 'Cannot start application, workgroup information file missing'. When i turn off the password the code works fine. The workgfroup information file is not missing and Access can open the database while the password is enabled. This has been annoying me for the last 24 hours...

Heres the code anyway:

Dim myconnection As New ADODB.Connection
Dim studenttable As New ADODB.Recordset

Private Sub Command1_Click()

myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "AIMHIGH.mdb;User Id=Admin;Password=password;"
myconnection.Open

studenttable.Source = "SELECT * FROM Student"
studenttable.CursorType = adOpenStatic
studenttable.LockType = adLockOptimistic
studenttable.ActiveConnection = myconnection
studenttable.Open

End Sub

Access Database && Password
Hello,
I m using Access2000 as backend and i hv set password on the database. Now how to include this thing in my connection commands, i mean how to pass this password from VB through commands. My connection commands r given bellow.

Dim con As New ADODB.Connection
Dim mrec As New ADODB.Recordset

With con
.Provider = "Microsoft.jet.OLEDB.4.0"
.ConnectionString = "d:sevillsunbirdsunbird.mdb"
.Open
End With

'i use follwoing pattern to retrive data
mrec.Open "select count(*) from grnMaster", con, adOpenKeyset, adLockBatchOptimistic

Thanks,
Sevil

Access Database Password
I have a connection string as follows...
I have set a password for the database...
How to add the password into the connection string??

Code:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:My Documentsdb1.mdb;Persist Security Info=False

Error Updating Access Database Using Visual Basic
Option Explicit
Dim c As New adodb.Connection
Dim cn As New adodb.Connection
Dim cm As adodb.Command
Dim rsnew2 As New adodb.Recordset
Dim rsnew3 As New adodb.Recordset

Private Sub cmd_close_Click()
Unload.me
End Sub

Private Sub cmd_edit_Click()
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1") = text1.Text
End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2") = text2.Text
End If
rsnew3.Update
MsgBox " add new successful ", vbInformation, "successful"

End Sub

Private Sub Form_Load()
Dim cs As String
c.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:COMION.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)

End Sub

I am getting message that "edit is successful", but its not updating in database..
What should i do ????

Error Updating Access Database Using Visual Basic
hi everybody
i am trying to access a database and update the changes..
Here is the code...

Code:
Option Explicit
Dim c As New adodb.Connection
Dim cn As New adodb.Connection
Dim cm As adodb.Command
Dim rsnew2 As New adodb.Recordset
Dim rsnew3 As New adodb.Recordset

Private Sub cmd_close_Click()
Unload.me
End Sub

Private Sub cmd_edit_Click()
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1") = text1.Text
End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2") = text2.Text
End If
rsnew3.Update
MsgBox " add new successful ", vbInformation, "successful"

End Sub

Private Sub Form_Load()
Dim cs As String
c.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:COMION.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)

End Sub
I am getting message that "edit is successful", but its not updating in database..
What should i do ????

Some Added Records Not Showing When Updating An Access Database
Ok, Here's the Skinny...

I am writing an application that pulls a list of names off of a
server, it runs a command prompt with a batch file, and outputs
to a text file. (There is an erlier post I put on here last week
regarding that portion of it.)

The problem is that when VB reads through the file and adds the
records, it appears to skip some of the records in the begginning
(appearing to be a random amount) I pasted the code below,
any ideas?

below is the code that creates the file

VB Code:
Private Sub Timer2_Timer() Dim ListCMD Dim BatchFile Dim ListLoc Dim lPid As Long Dim lHnd As Long Dim lRet As Long Timer2.Enabled = False BatchFile = App.Path & "atch.bat" ListLoc = App.Path & "list.txt" ListCMD = "c:" & vbNewLine & "cd " & vbNewLine & "cd " & App.Path & vbNewLine & "telalertc.exe -host jorma -list destinations > list.txt" Open BatchFile For Append As #1 Print #1, ListCMD Close #1 BatchFile = "cmd.exe /c " & Chr(34) & BatchFile & Chr(34) lPid = Shell(BatchFile, vbHide) If lPid <> 0 Then lHnd = OpenProcess(SYNCHRONIZE, 0, lPid) If lHnd <> 0 Then lRet = WaitForSingleObject(lHnd, dwMilliseconds) CloseHandle (lHnd) Timer3.Interval = 3000 Timer3.Enabled = True End If End If End Sub

Below is the code that reads the file

VB Code:
Sub ReloadFullList() Dim matrixdb As Database Dim SQLcmd Dim ListFile Dim BatchFile Dim log Set matrixdb = OpenDatabase(Form1.MatrixDBLocation) ListFile = App.Path & "list.txt" BatchFile = App.Path & "atch.bat" With Form1.Adodc2 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Form1.MatrixDBLocation & ";Mode=ReadWrite;Persist Security Info=False" .RecordSource = "SELECT * from tblPagers" .Refresh End With SQLcmd = "DELETE * from tblpagers" WriteSQLLog (SQLcmd) matrixdb.Execute SQLcmd Open ListFile For Input As #1 Do Until EOF(1) Line Input #1, log If InStr(1, log, "error", vbTextCompare) Then GoTo ConnectError Exit Sub Else: End If Loop Close #1 Open ListFile For Input As #1 Line Input #1, log Line Input #1, log Do Until EOF(1) Line Input #1, log log = Mid(log, 2, Len(log) - 2) With Form1.Adodc2.Recordset .AddNew !pagers = log .Update End With Loop Form1.Adodc2.Recordset.MoveFirst Close #1 Form1.List1.Clear Do Until Form1.Adodc2.Recordset.EOF = True Form1.List1.AddItem Form1.DataGrid2.Text Form1.Adodc2.Recordset.MoveNext Loop Form1.Adodc2.Recordset.MoveFirst Kill BatchFile Kill ListFile MsgBox "Jorma Full List Update Complete, Dont Forget to Push to Server When done.", vbOKOnly + vbInformation, "Jorma List Update Complete" Unload Form4Exit SubConnectError: Close #1 MsgBox "There was an error connecting to Jorma to retreieve the full list, please try again later." & vbNewLine & vbNewLine & "If the problem persists, please contact your System Administrator", vbOKOnly + vbInformation, "Potential Jorma Issue" Unload Form4 Kill BatchFile Kill ListFileEnd Sub

The part where it skips two lines is the header for "connecting to,
pulling list" blah blah, I dont need that in the database, all I need
is the names.

The text file is complete, but the names in the database seem to
start at a different part of the list, sometimes 3 names down,
sometimes 20 names down... it makes absolutely no sense to
me, I even set up a timer to have it wait 3 seconds before it
reads the list, but that doesnt seem to make a difference either!!
Any suggestions would be greatly apperciated

Access Database Password User Help?
How do you access a database that is user password protecting. whats the code. I have this

Set db = OpenDatabase("C:jadejade.mdb", True, False, "MS Access;usr=Nick;pwd=save")

says I dont have necessary permissions but I set it up so I do. Is my way of trying to login to the database incorrect with this code.

thanks

Changing Access Database Password
Is there a way to do this ?
I'm using Delphi 5 but a VB example would be usefull.

Access Database Password Problems
Hi all,

I am currently using Access with my VB project. I need to store passwords within this file and have the ability to retrieve it. Anyone has got any ideas? I need the password to be retrievable to do some connection to servers. However, if I were to enable the input mask within the field itself, the password field would not be retrievable. Please help.

Regards,
Brendon

Open Access Database With Password
Hi all!

I know that these question have been asked a lot around but I tried to implement these answers to my software and it didn't work.

Private Sub Form_Load()

'Makes the connection with the database
adoItems.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app_Path & "dbpis.mdb;Persist Security Info=False"
adoItems.RecordSource = "select itemid, vendor.vendorID, vendorname, itemname, quantity from item, vendor where item.vendorid = vendor.vendorid order by itemname"
adoCars.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app_Path & "dbpis.mdb;Persist Security Info=False"
adoCars.RecordSource = "select carid, serialno, companyname, comments from cars, client where cars.clientid = client.clientid order by serialno"

end sub

In other subs

Set connSRV = New ADODB.Connection
connSRV.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.path & "dbpis.mdb", , Password
strQuery = "insert into item values ( " & adoItems.Recordset.RecordCount + 1 & ", 1, " & Chr(39) & item & Chr(39) & ", 0)"
Set rsCust = connSRV.Execute(strQuery)

Set connSRV = New ADODB.Connection
connSRV.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.path & "dbpis.mdb", , Password
strQuery = "insert into cars values ( " & adoCars.Recordset.RecordCount + 1 & "," & Chr(39) & car & Chr(39) & ", 1, NULL)"
Set rsCust = connSRV.Execute(strQuery)

What is wrong do you think?? The password variable is Password and when I load the form, it says not a valid password.

Many thanx for those who will answer my problem.