Posts by debasisdas

you might have opened the databsae in readonly mode.

Please find a related discussion here.

You can you some third party tools also.

Many can argue - not many converse.

Language is the close-fitting dress of thought.

You start working on th eproject and post here if you face any problem. We will definately help you.

How your card reader is reading from the cards ?

Try to use timer.

Obvious thinking commonly leads to wrong judgments and wrong conclusions.

flooded

What is your thesis about ?

You just need to make some changes to the code to suit your requirment. I think you don't have to make any changes to ShowPic()

Try to register the componet with windows before using that in VB.

Where all think alike, no one thinks very much.

This part of the forum is not the right place for all that. Please visit Geek's Lounge for all that.

What is the problem with the code ?

Is that throwing any error ?

Try to use this sample code.

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String

Private Const ChunkSize As Integer = 16384
Private Const conChunkSize = 100

Private Sub Form_Load()
    CN.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Pubs;Data Source=Test"
    Dim strsql As String

    strsql = "SELECT * FROM pub_info where pub_id = '9999'"
    RS.Open strsql, CN, adOpenForwardOnly, adLockReadOnly
      ShowPic
    Set RS = Nothing
    Set RS = New Recordset
End Sub

Private Sub ShowPic()
    DataFile = 1
    Open "pictemp" For Binary Access Write As DataFile
        Fl = RS!logo.ActualSize ' Length of data in file
        If Fl = 0 Then Close DataFile: Exit Sub
        Chunks = Fl \ ChunkSize
        Fragment = Fl Mod ChunkSize
        ReDim Chunk(Fragment)
        Chunk() = RS!logo.GetChunk(Fragment)
        Put DataFile, , Chunk()
        For i = 1 To Chunks
            ReDim Buffer(ChunkSize)
            Chunk() = RS!logo.GetChunk(ChunkSize)
            Put DataFile, , Chunk()
        Next i
    Close DataFile
    FileName = "pictemp"
    Picture1.Picture = LoadPicture(FileName)
End Sub

AND means all the conditon must satisfy.

OR means any of the condition should satisfy.

If the truth were self evident, eloquence would be unnecessary.

Most of the shadows of this life are caused by our standing in our own sunshine.

Can You please explain what do you mean by copy the oracle database.

Hope is the dream of a man awake.

Try to assign values dynamically instead of all the hard coding .

SQL is part of backend database not of VB itself. It always executes in database .Vb has no sql syntax of its own. Even the SQL is not compiled by VB.

To open a form, you need to create an instance of the form object.

You need to capture that before deleting the items from the list view.

Do you have Outlook configured in your system ?

You need to handle the Change event of the text boxes.

Self learning is the best form of learning anything and once you know that you will never forget that.

I am glad that i could help you guys.

We always strive after what is forbidden, and desire the things refused us.

You need to format the datetime into 24 hrs format .

If you are having a licensed copy of windows and net is connected. You can directly update the system with framework latest version.

Whom do you expect to read all that code and solve your problem ?

You can also use a counter to accomplish this task.

Try to use this sample code

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String

Private Const ChunkSize As Integer = 16384
Private Const conChunkSize = 100

Private Sub cmdSave_Click()
    CN.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Pubs;Data Source=Test"
    Dim strSQL As String

    strSQL = "SELECT * FROM pub_info where pub_id = '9999'"
    RS.Open strSQL, CN, adOpenForwardOnly, adLockOptimistic

    RS.AddNew
      SavePicture
    RS.Update

    Set RS = Nothing
    Set RS = New Recordset
End Sub

Private Sub SavePicture()
    Dim strFileNm As String
    DataFile = 1
    Open strFileNm For Binary Access Read As DataFile
        Fl = LOF(DataFile)   ' Length of data in file
        If Fl = 0 Then Close DataFile: Exit Sub
        Chunks = Fl \ ChunkSize
        Fragment = Fl Mod ChunkSize
        ReDim Chunk(Fragment)
        Get DataFile, , Chunk()
        RS!logo.AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For i = 1 To Chunks
            Get DataFile, , Chunk()
            RS!logo.AppendChunk Chunk()
        Next i
    Close DataFile
End Sub

Years teach us more than books.

You need to capture ,user clicks on which cell.
Then capture the data in that cell.
Store in public variable.
Show the form 2 and display in a textbox.

It is always better to store the picture in a LOB field in database after converting the file into a byte stream . It ensures that no data is lost . So you don't have to bother about location of all the files.

That is a simple but excellent piece of code for beginners.

Simply You need to create DSN with required credentials for the purpose.

You can use normal combobox .Try like this

Dim SQLName As String
CboName.Clear
SQLName = "SELECT NAME FROM ENGINEER"
Rs.Open SQLName, Con, adOpenDynamic, adLockOptimistic

Set CboName.DataSource = Rs
For i = 0 To Rs.RecordCount - 1
CboName.AddItem Rs(0)
Rs.MoveNext
Next i
Rs.Close

Please specify what is the error message ?

Which line is throwing the error ?

You call the second form in the timer event of timer control .Timer accepts interval in miliseconds . i.e. for 1 second u need to pass 1000.

You need to compile a DLL using c code and refer the same from VB.

To connect TOAD to oracle you simply need to pass the username ,password and the database name. IF connecting to any other server ,you need to midify the entries in the TNSNAMES.ORA file.

First of all Create is a DDL.
So commit is not required for that.
Check to ensure that you created the table in that schema.

You can't convert directly. But you can upload data of access into oracle.
You can export the data of access into a .CSV file and from oralce use the SQL LOADER to load the same data to oracle table.

Integrity is the foundation upon which all other values are built.

First we form habits, then they form us. Conquer your bad habits or they will conquer you.

Your brain shall be your servant instead of your master, Your will rule it instead of allowing it to rule you.
Charles E. Popplestone