Posts by debasisdas

If yo want to match for two conditions then you have to specify that in the sql query.

How can you develop a project only in sql server 2000 without using any front end tool.

You can try to make a copy of the original MDB file and that can be used as a backup of actual data. The syntaxes of oracle or mysql will not work here.

I think this is a duplicate thread , and your question has already been replied in your other thread.

if you want to save the data then no need to open the record set at all.

Try using this sample code

'con is the adodb connection object
con.BeginTrans
con.execute "your insert or update statement here."
con.CommitTrans

Are you trying to do this

Private Sub Command1_Click()
Dim f As New Form1
f.Show
End Sub

You need to maintain some counter.

There is no sense posting all that code here. Please use code tags . That make the code more readable.

From your code i am not sure what are you trying to do .
And where is the letter P ?

It is always better to design your own component.

You simply need to enable and disable the timer.

Can you kindly post the code that you are working on for reference of our experts.

Try to register the component with windows using REGSVR32 key before using in project.

Can you pass few more details on your exact requirment please.

Whom do you expect to go through all that code .

and you may not get the elipses for the printer object.

You need to use ADO . select Project--->reference --->microsoft activex data object 2.x

create connection object

use that connection string here to open the connection to database.

The simplest solution is to use an UDL file.

Opennotepad and save the file with .UDL extension . No need to write anything in the file.

Then double click the file to open and the other step are self explanatory.

Close the file after checking the connection and write click and open with notepad. Copy only the connection string part and use in VB 6.0 code to open the connection . The access 2007 file will be having .ACCDB format.

ADODB is based on the OLEDB. This is a different architecture from ODBC. ODBC is a different layer itself, it is neither part of front end nor backend.

Try find out the number of active connections . Try to use v$session

I am glad to share my knowledge .

It is hard to fail, but it is worse never to have tried to succeed.
Theodore Roosevelt

What are you looking for then ?

You can also use this sample query with a different logic

DELETE FROM emp  WHERE ROWID NOT IN(SELECT MAX(ROWID) FROM emp GROUP  BY empno)

Optimism is choosing to be happy anyway.

if looking for the connection string please find it here. and then use ADO in VB for the purpose.

My pleasure .

It is better to start a different thread for a new question.

anyways try to use this sample query

DELETE FROM emp e  WHERE rowid>(SELECT MIN(ROWID) FROM emp WHERE e.empno=empno)

try to use this

Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "myfriend@gmail.com  "
.Cc = "hisfriend@yahoo.com"
.Subject = "Hello Friends (one more time)..."
.Body = "This is the body of message"
.HTMLBody = "HTML version of message"
.Attachments.Add ("c:\myFileToSend.txt")
.Send      'send the mail
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing

You need to store the username,pasword and along with that store the secret question and its answer. If the user forgets the password display the question and prompt for the answer. If it matches with stored answer then provide the password or send a mail to his account.

How do you connect the mobile to system. Is that a smart phone or PDA ?

What you want to impliment in online examination project ?

Can you please specify which control you are using for designing the 9 boxes.

Try to use ADO for the purpose.
Then use inbuilt methods of the objects.

Try to use the inbuilt login screen of VB 6.0

Are you able to connect to the database from windows PC ?

The man who removes a mountain begins by carrying away small stones.

Please findout the details here

To find the difference yo simply need to substract.

Kindly post what you have tried to solve this.

I am patient with stupidity but not with those who are proud of it

Try to use this sample code

To use this sample, please following steps

Create a new project in VB6
Pull down the Project menu and choose Components .
Select the checkbox next to Microsoft ChartControl 6.0(OLEDB), Click OK.
Add a combobox,one Mschart control and one check box tothe existing form.
Paste in the following code tothe code window

Private Sub Form_Load()
'Fill the combo box with different types of chart types.
With Combo1
.AddItem "3D Bar"
.AddItem "2D Bar"
.AddItem "3D Line"
.AddItem "2D LIne"
.AddItem "3D Area"
.AddItem "2D Area"
.AddItem "3D Step"
.AddItem "2D Step"
.AddItem "3D Combination"
.AddItem "2D Combination"
End With
'Declare 2D array to store values for the chart
'Variant ----so that can store both text as well as numbers
Dim X(1 To 7, 1 To 6) As Variant
 
X(1, 2) = "Steel"
X(1, 3) = "Aluminium"
X(1, 4) = "Copper"
X(1, 5) = "Buxite"
X(1, 6) = "Lead"
 
X(2, 1) = "JAN"
X(2, 2) = 2
X(2, 3) = 3
X(2, 4) = 4
X(2, 5) = 5
X(2, 6) = 6
 
X(3, 1) = "FEB"
X(3, 2) = 4
X(3, 3) = 6
X(3, 4) = 3
X(3, 5) = 10
X(3, 6) = 18
 
X(4, 1) = "MAR"
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 7
X(4, 6) = 9
 
X(5, 1) = "APR"
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 13
X(5, …

1.Type a word in the cobobox.
2.Pass the value to open the recordset.
3.Populate teh combo with items from recordset.

Use the change event of combo box for the purpose.

You can refer some good books for the purpose or can find a lot by inesting some quality time in web-seaching.

To be happy, we must not be too concerned with others.

try to use this sample code

Public Function DistanceBetween(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single) As Single
  ' Calculate the distance between two points, given their X/Y coordinates.

  ' The short version...
  DistanceBetween = Sqr((Abs(X2 - X1) ^ 2) + (Abs(Y2 - Y1) ^ 2))

  ' The longer version, to illustrate how it works...
  Dim Horizontal As Single, Vertical As Single
  Horizontal = Abs(X2 - X1)
  Vertical = Abs(Y2 - Y1)
  DistanceBetween = Sqr((Horizontal * Horizontal) + (Vertical * Vertical))
End Function

For searching it is always better to use LIKE than "="

You can also assign individual keys for each of the positions using the above logic.

Yes winsock is the solution. You can also try to use MAPI control.

if the database is oracle then can use a trigger for the purpose.

try to use LIKE search and fill the combobox with the recordset.