|
hi,
Everyone know this error? the database has been placed in state by user "Admin"!
We are using a shared database in access databases. When more than one user has connect to my databases by my application (my program)the database open, the following error message appears. "The
database has been placed in a state by user 'Admin' on machine XXXXX that
prevents it from being opened or locked."
How to solve this error? please help!
My following code as below:
Try
DB = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source=C:\prdsystem\prdnsf.mdb")
DB.Open()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "")
End
End Try
Da = New OleDb.OleDbDataAdapter(sql, DB)
Ds = New DataSet
Da.Fill(Ds, "emp")
|
|
|
|
|
Googled it[^]
CleaKO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that.'" - Tommy (Tommy Boy) "Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
I am using
the following code from VB.NET( I put only necessary lines to be short)
AcroApp = CreateObject("AcroExch.App")
PDDoc = CreateObject("AcroExch.PDDoc")
InsertPDDoc = CreateObject "AcroExch.PDDoc")
PDDoc.Create()
InsertPDDoc.Open(OutPdfPath)
.....
If PDDoc.InsertPages(-1, InsertPDDoc, 0, iNumberOfPagesToInsert, 1) = False Then
MsgBox("Error Inserting Pages ")
Exit For
End If
And this InsertPages(...) work fine for
some documents(that was opened before upon
name InsertPDDoc). But some pdf files the client sent to us are not working.It is
totally depends on pdf file that was opened.
Could you please answer why it is different on different files? The same code could do InsertPages() for one pdf file and could not do for another.
What 'wrong' with that file where it could not do it. I would appreciate any
clue on this.
Thank you.
|
|
|
|
|
Hello!
I would like to know how to encrypt a string before I add it to database? I should be able to decyrpt it when reading back from database.
Any sample or direction is appreciated.
Thank You.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
I use this method: change the 2 constants to whatever you want
Imports System.Text
Imports System.Security.Cryptography
Public Class Encryption
#Region "Public Routines"
const ENCRYPT_KEY AS STRING = "TEST"
const ENCRYPT_VECTOR AS STRING = "CODEPRJT"
Public Shared Function ToBase64(ByVal sDataToEncrypt As String) As String
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))
Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateEncryptor(key, Vector), CryptoStreamMode.Write)
Dim Input() As Byte = Encoding.Default.GetBytes(sDataToEncrypt)
cryptoStream.Write(Input, 0, Input.Length)
cryptoStream.FlushFinalBlock()
Return Convert.ToBase64String(stream.ToArray())
End Function
Public Shared Function ToBase32(ByVal sDataToDecrypt As String) As String
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))
Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateDecryptor(key, Vector), CryptoStreamMode.Write)
Dim Input() As Byte = Convert.FromBase64String(sDataToDecrypt)
cryptoStream.Write(Input, 0, Input.Length)
cryptoStream.FlushFinalBlock()
Return Encoding.Default.GetString(stream.ToArray())
End Function
#End Region
End Class
-- modified at 22:28 Thursday 15th March, 2007
|
|
|
|
|
Thank you vey much I really appreciate it.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Sorry for bothering you but when I used your class, I started getting an error message
Specified key is a known weak key for 'TripleDES' and cannot be used."} .
I changed these two constants
const ENCRYPT_KEY AS STRING = "NEMESIS"
const ENCRYPT_VECTOR AS STRING = "DOMAIN"
What is causing the problem?
Thank You.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
i think it's saying that "domain" is word that shouldn't be used because it's like reserved word. try "dom.ain"
you have upto 24 characters for the key and 8 characters for the vector. my key has period, underscores, dashes, etc in it.
|
|
|
|
|
Thanks for replying but it is giving me the same error message even I use another keyword and vector values...
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
i think it follows the rules of "complex password" where just letters are not enough
ex of one of my apps:
Const EncryptKey As String = "THE_XXXX_APPLICATION"
Const EncryptVector As String = "X.X.X.X."
takes it fine...
|
|
|
|
|
How do I move the rows of a dataview into a datatable?
thanks!
|
|
|
|
|
You don't. A DataView has no rows of its own. A View is just that, a different view of rows in a DataTable.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
OK, I see. What if I let the user sort a datagrid that is bound to a datatable... how do I get the sorted rows back into the datatable?
thanks again
|
|
|
|
|
You don't. SQL and Access doesn't sort the data in the tables. Sorting only applies to the view of the data, not the table behind it.
When you bind a DataGrid to a DataTable, you're actually seeing the DefaultDataView of that DataTable, not the DataTable itself.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
OK, but what if I want to allow the user to save the current datagridview as a datatable? How do I get the updated rows of the current view from the datagrid into a new table for saving?
thanks
|
|
|
|
|
It's already a DataTable. The DataGridView is showing you a VIEW of that data, not the data itself.
What are you trying to do with all this?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I want to save the edited view as a datatable to xml.
For instance:
1. Read table from XML
2. Put table into datagridview
3. User deletes rows and/or sorts the datagridview
4. User now XMLsaves the edited datagridview as the original datatable
|
|
|
|
|
Since none of these data methods actually saves, or cares, about the order of records, what's the point? The order of the records, as displayed, is controlled by the presentation layer, not the data layer...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Right, but I want to persist the modified datatable across sessions in the saved .xml -- or for import to another program.
|
|
|
|
|
You can get a new DataTable made with the current view by calling the .ToTable() method on the view that your DataGridView is bound to. Something like:
Dim newTable As DataTable = myOldTable.DefaultView.ToTable()
You can then save the new table as an XML file using any method you want.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
excellent! Thanks for your patience...
|
|
|
|
|
Hello,
I am looking for a SIMPLE way to play a music file, preferibly without windows media play; I would like to be able to play mp3 and wma files.
Thanks
Al968
Avast Antivirus-http://www.avast.com
|
|
|
|
|
haven't tried any of the links but
http://www.vbcodesource.com/controlNet.html
|
|
|
|
|
Thanks for the responce, I tested those but they only seem to work for vb6
Thanks Anyway
Al968
Avast Antivirus-<url>http://www.avast.com<url>
|
|
|
|
|
you can still use them with interopt?
|
|
|
|