Visual Basic Forum RSS Feed

Customised Watch Window

Mon, 01 Dec 2008 08:10:06 -0700

Hello,

I am in the middle of writing an Add-In to assist with some program conversions. I need to automate this as there are hundreds of legacy VB6 programs that need converting.

What it will hopefully do is listen in on all ADODB ***.CommandText properties it finds and list any SQL sent to the server as the program executes it. This can then be analysed later.

What I'd like to do is programmatically do the same thing as the Watch Window but allowing me to 'dump' the contents of variables and properties to a text file or database.

Any ideas gratefully received.

Matt.

VB6 PrintForm

Mon, 01 Dec 2008 04:23:09 -0700

i am at novice level. Shortsightedly I have developed an extensive application only to realize too late that PrintForm is not all that it's cracked up to be.

I have a single A4 sized form to print (the form is bigger than the screen size). There is a mixture of graphics and textboxes on the form. Without data populated in the textboxes, the form prints perfectly with "Form.PrintForm". But as soon as I run the program and populate the form (textboxes) with data, only half the page (actualy about 2/3) prints. The rest of the printed page is left blank. This makes me think that the problem might be memory related, but I still have no idea how to fix the problem.

I have searched the internet for a solution and found that as early as 2004 a similar question surfaced. But the question was never answered or solved.

Can anyone help me PLEASE.

Problem in maintaining Passwords in Visual Basic 6.0

Sun, 30 Nov 2008 04:14:17 -0700

I have found that the Visual Basic 6.0 has no security in maintaining passwords.

To check This , do the Following,

Step 1: Make an EXE file with a login form in Visual Basic 6.0 with some passwords.

Step 2: Open Notepad and Drag that EXE file into Notepad.

Step 3: In the Search Window Search for ASCII char 160(á) Followed By N-3 i.e. ( áN-3).

The password lies before the cursor or after the cursor.

prakashraj.sns @ gmail.com, prakashraj.viswanathan @ gmail.com

ADO/ODBC VB

Fri, 28 Nov 2008 04:05:45 -0700

Hiya

I have a problem with ADO, which works fine using ODBC

I am connected to an SqlServer2000 database and execute a stored procedure of which the primary function is to insert a record into a table, but there are several audit trail inserts too.

The stored procedure has a final argument of @ReturnResults int, which is set to 1, and if set, it selects the data to return to the caller.

When I execute this in Query analyser, I get the results I would expect, ie, 1 recordset with 1 row. When I execute this through VB and use ODBC, I get the results I expect. However, when I use ADO, I get a recordset back but the recordset is closed and so when I try to access it I get the error "Operation is not allowed when the object is closed".

I really want to use ADO, for the speed.

My code is here:

'Open the connection -- ADO
oConn.Open "Provider=SQLOLEDB.1;Password=********;Persist Security Info=True;User ID=*******;Initial Catalog=MyDB;Data Source=DS;Trusted_Connection=No"

'OPen the connection -- ODBC
oConn.Open "DSN=Test;Uid=******;pwd=********"

Execute the procedure

SQL string = "Exec stp_f_PurchaseOrdersFromSale 555567,0,1"

(The last argument indicates return to me a recordset of the new PurchaseOrder)

The execute code is:

Set O_CMD = New ADODB.Command
Set O_CMD.ActiveConnection = oConn
O_CMD.CommandType = adCmdText
O_CMD.CommandText = SQLStr
O_CMD.CommandTimeout = 0
Set o_RS = O_CMD.Execute

If I use ODBC and then say ? o_rs.recordcount, it returns 1
if I use ADO and then say ? o_rs.recordcount, it returns the error

I have a feeling the problem is my connection properties for the ADO connection.

Any help appreciated.

couter using VB DAO

Fri, 28 Nov 2008 00:59:30 -0700

gud day, this is my new code of my counter using vb-DAO. if i were going use this code, this will happen (refer to my attachment). the quantity of the first product will added to its proceeding product. That is a very big mistake. My only problem right now is my counter. I want to know which product is most buy by the customer to get this is that I want to compare my product code and then sum up their quantity and display tally of the product being sold within the range of time.

"code"

Private Sub cmdSearch_Click()
Dim total As Currency
Dim x As Integer
Dim i As Integer
Dim Quantity As TableDef
'On Error GoTo abortsub

Set Dbase = OpenDatabase(App.Path & "\Break.mdb")
Set SALE = Dbase.OpenRecordset("Select * from SalesTable")

'Set SALE = Dbase.OpenRecordset("select ProdCode, sum(Quantity) , max(Date) from SalesTable GROUP BY ProdCode, Date;")

SALE.MoveFirst
Do Until SALE.EOF

If DTPicker1.Value <= SALE!Pitsa And _
DTPicker2.Value >= SALE!Pitsa Then

If SALE!ProdCode = SALE!ProdCode Then
For i = 0 To SALE.EOF
x = x + SALE!Quantity

'For Each Quantity In SALE!Quantity
'x = x + SALE!Quantity

With grd
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = SALE!ProdCode
.TextMatrix(.Rows - 1, 1) = SALE!ProdName
.TextMatrix(.Rows - 1, 2) = x 'SALE!Quantity + SALE!Quantity
.TextMatrix(.Rows - 1, 3) = Format((SALE!Price), "##.00")
.TextMatrix(.Rows - 1, 4) = Format((SALE!Price * .TextMatrix(.Rows - 1, 2)), "##.00")
End With
total = total + grd.TextMatrix(grd.Rows - 1, 4)
Next i
End If
End If

SALE.MoveNext
Loop
grd.Rows = grd.Rows + 1
grd.TextMatrix(grd.Rows - 1, 3) = "Total"
grd.TextMatrix(grd.Rows - 1, 4) = Format(total, "#,##0.00")

'abortsub:
'Exit Sub
End Sub

Attachment: gui2.jpg (236840 bytes | downloaded 8 times)

Help reqd to update project from VB6 to VB8

Wed, 26 Nov 2008 21:22:13 -0700

Hi

I am using an application built in VB6 in VB 8 express edition. When I try to open it, it asks me to update the project and then throws the following error :

Upgrade failed: Exception occured: Could not load referenced component:
EParser.tlb (Asian CERC - Expression Parser 1.0.0)
You need to install this component before you upgrade the project.
It is recommended you install VB6.0, with all referenced components, and ensure the application compiles and runs before upgrading.

Can anyone help me here. I am kinda stuck here.

Thanks in Anticipation.

Adios...

How to create backup program in VB6

Wed, 26 Nov 2008 15:33:48 -0700

Hey I was wondering how i could make a little backup program in VB to copy a small access database. Im not sure where to even start. I am just looking to get a small program working then I was going to try and advance onto copying this dbase to another computer on the network.

RELEASE: Jabaco 1.4.0 BETA - 2008-11-18

Wed, 26 Nov 2008 12:43:29 -0700

Jabaco is a simple programming language with a BASIC like syntax that enables you to build powerful applications on the Java Framework.

Features

* BASIC to Java Bytecode-Compiler
* Open Source Framework with many Visual Basic functions and wrappers
* Jabaco Debugger (over JDWP)
* Graphical GUI-Editor for rapid application development
* Source-Editor with autocompletion
* Java Exe-Wrapper for Windows

Jabaco in action: http://www.jabaco.org/index.php?page=webcast

Converting string to object pointer

Mon, 24 Nov 2008 12:01:59 -0700

Hi,

I'm using Visual Basic Express 2008.
I'm trying to update a button's background color (one of many buttons). I have a dialog box that use's a listbox to represent a list of buses. I want the user to select a bus number from the list, and then I want to change the background color of the button representing that bus (ie: buttonBus1.BackColor). Doing it directly, I can just do "buttonBus1.BackColor = Color.Blue". But I want to use the string returned from Dlg.ListBoxBus.SelectedItem (which contains the number of the bus) so I could do this by the program. How can you convert the string I would build (ie: buttonBus1 from "buttonBus" + "x") into a pointer to the real buttonBus1?

Desperate, frustrated, and will be thankful to any who could help.

removing a sheet total at the end of crystal report

Sun, 23 Nov 2008 23:32:15 -0700

hi!

This is urgent, plz help me at this point of time!

how can i remove the sheet total at the last page or end of crystal report. only the grand total will appear...
As of now, this is the preview of my report...

this is the 1st page:

HEADER
SURNAME AMOUNT
JAVIER 0.00

SHEET TOTAL 0.00

THIS IS THE LAST PAGE ASSUMING:

HEADER
SURNAME AMOUNT
JAVIER 0.00

GRAND TOTAL 0.00

SHEET TOTAL 0.00-THIS SHOULD BE REMOVED. HOW CAN I DO THIS?????

Crystal reports groupwise calculation.

Sun, 23 Nov 2008 20:52:23 -0700

HI !!

I want the groupwise calculation in the crystal report.

It's look like...

Group 24/9/2008

Account Name Credit Debit
----------------------------------------------------------------------
Opening balance (Cr) 2000
----------------------------------------------------------------------
Jhon A/c (Cr) 1000
Dwee A/c (Dr) 500
----------------------------------------------------------------------
Total 1000 500
----------------------------------------------------------------------
Closing Balance (Need This) (Cr) 2500

Group 25/9/2008

Account Name Credit Debit
----------------------------------------------------------------------
Opening balance (Need This) (Cr) 2500
----------------------------------------------------------------------
Varun A/c (Cr) 100
Rajesh A/c (Dr) 500
----------------------------------------------------------------------
Total 100 500
----------------------------------------------------------------------
Closing Balance (Need This) (Cr) 2100

Please help .......

error in hive name

Sat, 22 Nov 2008 19:07:27 -0700

can some one remove error from following code.

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")

Set colEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_CURRENT_USER' AND " & _
"KeyPath='CONSOLE'")

Do
Set objLatestEvent = colEvents.NextEvent
Wscript.Echo Now & ": The registry has been modified."
Loop

monitor registry

Fri, 21 Nov 2008 04:54:53 -0700

Can some one give me code to monitor two specified registries. Suppose there are two registry key. Key a and b having value of a = 10 and b = 120
Now i want vbs code which monitor these two keys and in case anyone changes the values, code redo the changes and set default value again.

Anybody can help of my counter

Tue, 18 Nov 2008 19:27:33 -0700

gud day....this is my code of my counter but doesn't work on my system. how i will going to count the product having the same product code and date? and when it is already existing i will just add the quantity and if not found it will save in the database.

counter

For i = 1 To grd.Rows - 1
With INV
If grd.TextMatrix(i, 0) = INV!ProdCode Then
.Edit
!Quantity = !Quantity + Val(grd.TextMatrix(i, 3))
.Update
Else
.AddNew
!ProdCode = grd.TextMatrix(i, 0)
!ProdName = grd.TextMatrix(i, 2)
!Quantity = grd.TextMatrix(i, 3)
!Date = DTPicker1.Value
.Update
End If
End With
Next i

regards,
D9

open a file

Mon, 17 Nov 2008 14:21:02 -0700

here is a easy question for you guys:

How do I open a file? I don't mean import it in vb, I want to open it using the default program.
example: I want to open a mp3 using windows media player when I ask my program to do so...

thanks

Storing a color scheme

Mon, 17 Nov 2008 08:04:01 -0700

Hello,

I have a program all created, and I am looking to implement a color scheme. As of right now the scheme is being stored in a database. My question is, when I load the scheme into the program, what type of variable do I need to set the colors as?

'****************************** Store Variables
Public Type ColorScheme
    Text1 As Byte
    Text2 As Byte
    BG1 As Byte
    BG2 As Byte
    BoxBG As Byte
    BoxText As Byte
End Type

'************** Code to execute on page load
BG.BackColor = UColor.BG1
Me.BackColor = UColor.BG2
Hint1.BackColor = UColor.BG2
Hint2.BackColor = UColor.BG2
LabSelect.ForeColor = UColor.Text2
LabDate.ForeColor = UColor.Text2
LabNum1.ForeColor = UColor.Text1
LabNum2.ForeColor = UColor.Text1
LabOpen.BackColor = UColor.Text1

As of right now, they are set to byte. Obviously that doesn't work, but I have tried everything I can think of and anytime the page loads, I get a type mismatch. Is there a function or anything to convert string into a color property?

Parallel Port Programming in Visual Basic

Sun, 16 Nov 2008 04:21:32 -0700

To get an idea about how to use Visual Basic in Programming Parallel Port,
Read my article about "Parallel Port Programming in Visual Basic" in my ProgrammersHeaven Blog.
http://www.programmersheaven.com/user/sanjeewamad/blog/406-Parallel-port-programming-in-Visual-Basic/

About Delete

Thu, 13 Nov 2008 20:15:08 -0700

hi i'm a beginner of VB. Im using DAO, I want to delete some data on my database using this code but unfortunately it doesn't work.

With DTPicker1.Value
Dbase.Execute ("Delete * from SalesTable where eDate ='" & DTPicker1.Value & "'")

anybody can help me.

Send/receive data over a network

Mon, 10 Nov 2008 22:23:48 -0700

hey, i'm using VB express and i'm trying to make some multiplayer games, i want a simple block of code that will send data over a network and wait for a response when i click a button, can anyone help me?

group by function in Visual Basic

Mon, 10 Nov 2008 11:18:25 -0700

I am trying to code "group by" function in Visual Basic. This is what I am trying to do:

I have these fields: EmpID(), Date, TimeWorked(). I will have multiple entries for each employee.

I need to code to get total hours worked by each employee. I am not using any database.

The sql query would have been:

select EmpID, sum(TimeWorked) from table_name
group by EmpID;

error

Sun, 09 Nov 2008 19:39:59 -0700

"run-time error'3061'"? what does it mean?

BLINKY PROBLEM...

Sat, 08 Nov 2008 23:58:35 -0700

hey i had a programming class last year at my school, but i have unfortunately forgot almost everything....
see we had a program called "blinky", which is where we had 2 timers put into our form, and we coded it to where we got the background to blink different colors according to whatever colors you put in the code....
i'm hoping someone could help me!!
THANKS =]

here's what i got so far, this is as close as i could get it from memorization on how it was in the book:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        intswitch1.Start()
        intswitch2.Start()

    End Sub

    Private Sub intswitch1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intswitch1.Tick
        Static intswitch1 As Integer = 0
        Me.BackColor = Color.AliceBlue
        intswitch1 = intswitch1 + 1
        Me.BackColor = Color.Aquamarine
        intswitch1 = intswitch1 + 1
        Me.BackColor = Color.Violet
        intswitch1 = intswitch1 + 1
        Me.BackColor = Color.Green
        intswitch1 = intswitch1 + 1

    End Sub

    Private Sub intswitch2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intswitch2.Tick
        Static intswitch2 As Integer = 0
        Me.BackColor = Color.Black
        intswitch2 = intswitch2 + 1
        Me.BackColor = Color.Red
        intswitch2 = intswitch2 + 1
        Me.BackColor = Color.White
        intswitch2 = intswitch2 + 1
        Me.BackColor = Color.Blue
        intswitch2 = intswitch2 + 1

    End Sub
End Class

why sendkeys is not working ?

Sat, 08 Nov 2008 10:53:01 -0700

hi
Can you help me ?

problem :
OS platform : win xp

i have open a M S word document using OLE control in vb form, now i want to retrieve selected texts from word file to say clipboard, so i have written like:

Private Sub Command1_Click()
'SendKeys "^(C)", True
'or
SendKeys "^{INSERT}"
End Sub

but none of them are working.
I don't understand what is wrong in that, is there any other way by which i can retrieve selected text from M S Word file embedded with vb form and move it to clip board. So that later on i can fetch those text from clipboard to my vb application. Can you give me some suggestion or ideas or sample code for that ?
Thank you.

Free Activex

Thu, 06 Nov 2008 02:22:51 -0700

Free activex style xp, vista, and more style
You can download on http://irvisoft.net46.net

List Activex:
-frame
-maskedbox
-progressbar

and more....

ACCESS DATABASE MERGING MULTIPLE FILES INTO SINGLE FILE

Tue, 04 Nov 2008 17:27:04 -0700

Poll: THE APPLICATION IS USEFUL

YES	1 votes
NO	0 votes
NOT AT ALL	0 votes

[b]MERGING MULTIPLE ACCESS DATABASE FILES INTO SINGLE DATABASE FILE NEEDED ONLY COMMON STRUCTURE (ANY DATABASE NAME OR ANY TABLE NAME)

PLEASE CLICK THE LINK AND DOWNLOAD THE SOURCE CODE FULLY
[/b]

Attachment: FINALMG1.zip (417931 bytes | downloaded 37 times)