Posts by debasisdas

Why not simply use the WHERE clause along with the SQL statement to find the record. You can also use COUNT to find if the record exists and then display the message accordingly. Using COUNT will be really fast.

i have the code but not now.

I will send you that later on.

You need to use ADO with any database of your choice for optimal performance.

i don't think this if statement can be changed to a loop as there are too many conditions to check.

you need to format the input to date for before passing the same to database for processing.

"If you judge people, you have no time to love them." Mother Teresa

You need to work with CDO.

What about simply using a COUNT on the database table !!!

something like the following

select num,count(num) from table_name group by num

"A smile is nearly always inspired by another smile."

"Life is eternal. Love is immortal."

"When you depart from me sorrow abides, and happiness takes his leave".

William Shakespeare in Much Ado About Nothing,

kindly post your table structure.

to enter single quotes you need to enter 2 single quotes ('') also do not forget to enclose those by enclosing single quotes.

"How do you know it's love? I don't know, but it lasts forever." Van Halen

to do that you need to log in first and normal users can't create another user .

The balance of a focused mind and an expanded consciousness brings perfection.

you can use GUI tools like TOAD or PL/SQL DEVELOPER.

if you want a free tool try SQL DEVELOPER from oracle corporation.

Trust is the breath of business,ethics its limbs, to uplift the spirit its goal.

"And think not, you can direct the course of love; for love, if it finds you worthy, directs your course". Khalil Gibran

barcode reader work very straight forward , just as an keyboard.

once you read the barcode using the device it directly inputs the code to the control (ex textbox) having focus.

What you need to do is process the data further as per your business logic.

Try this

select * from emp where rownum<4 order by sal desc

you need to store the number of rooms in a peparately column.

The self-judgement is an obstruction.

Number of rooms should be stored as numbers not strings in database table to perform any calculation on the same.

Love is an emotion without limit and understanding.

You need to use the trigonometrical functions SIN and COS for all that.

in which table you have stores the number of room ?

i can't fine that from your table structure.

you can code in both the events of the control change and scroll

to solve your problem i need few information from you.

1. is the database installed on your PC ?
2. are you trying to log in to a database in a network ?
3.is the scott user exists and and is unlocked ?

"A fastidious person in the throes of love is a rich source of mirth." Martha Duffy

what is your table structure ?

Do not judge a book by merely looking at its cover.

try the following 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

"Love is watching someone die". Death Cab for Cutie

you simply need to use MDI form and other forms that you want to minimize as child form of the MDI.

You need to do the following .

1.add all the records except picture
2.update the recordset
3.edit the same record
4.update the picture field with the photo.
5.update the recordset again.

Give in to love, or live in fear.

please try to use the sample code to retrieve picture from database tables.
again this sample code uses ADO for database connection.

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

please try to use the sample code to store picture.
this sample code uses ADO for database connection

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

if you are looking for the connection string please find it here.

As vb5prgrmr pointed out, a join is not even necessary because all the data can be obtained from one table.

what if i want only matching data based on both the tables ?

in that case a join is compulsory.

i didn't understand your question .

What is a forum window ?
What do you mean by update without saving ?

try the following

select b.SAL_ACC ,b.NAME ,b.ADV ,b.DT_PREP from mstr a,detail b where a.psno=b.psno

if using sql*plus with oracle use the follwing

SQL> SET TIMING ON

SQL> YOUR QUERY ...........

is the follwing is your query

SELECT Products, TABLE 1;

what does the query mean ?

if you are using ADO. Use the refresh method of the recordset object. and then pass the same to the listview.

After the insert operation you need to call the REQUERY method of the recordset before passing the same to the displaying control.

try using localhost instead of system name.

Once used to light, you are afraid of darkness.

Then this question should have been posted in the .net forum ,not here.