DaniWeb IT Discussion Community - Visual Basic 4 / 5 / 6

bridge

andre_geerlof — Fri, 20 Nov 2009 14:56:13 GMT

I need to make an application with vb that copies all the files every time the folder opens and copies the files to another folder and it should overwrite all the files in the destination folder.
the destination folder should contain everything the source folder contains, can anyone help me?.

form caption effects

mahii — Fri, 20 Nov 2009 13:17:11 GMT

how do we create form caption [form title bar] effetcs like typing words.

Deleting data in *.DBF from VB

dejanbl — Fri, 20 Nov 2009 09:44:25 GMT

Hi,

i need some help, i need to delete some data in DBF file, and i have this code... but when i execute it .. nothing happends?

Dim connectionString As String
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Documents and Settings\dmarinkovic\Desktop\Data1\FP550_EO022450;Extended Properties=dBase IV"

Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(connectionString)
Dim cmmd As New System.Data.OleDb.OleDbCommand("PACK Articles", dBaseConnection)

dBaseConnection.Open()

Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("DELETE FROM Articles where PLU<>1", dBaseConnection)

dBaseConnection.Close()

project proposal

simbarashe24 — Fri, 20 Nov 2009 08:29:45 GMT

guys am stuck if anybody can help me i will be very gratefull. i need a project proposal for a school library system ,currently the library is using paper system and am supposed to design a system in vb6.Am a student on attachment and the proposal is needed as soon as possible because i need to submit it
thank you guys .

VB6 - Query/StoredProc works in Access but not in VB6 - please help!

jonifen — Fri, 20 Nov 2009 00:01:07 GMT

Hi,

I've got a bit of a problem with an application I am writing at the moment. I know it has to be something small which I'm missing, but I can't figure out what it is.

Basically, I have a Query (or Stored Procedure if you prefer) in an Access2000 database called qryApptList which has one parameter (DateOfAppt). This parameter is Text (as is the Date field in the database table).

If I run the query in Access, it prompts for the Date. I enter it in and it returns my results as it should. If I then do the same thing in VB6 using ADODB, it brings back nothing.

My VB6 code...

Private m_oConnection As ADODB.Connection

Private m_oCmdGetAppointments As ADODB.Command



'Open the database connection

Public Sub OpenDatabaseConnection()

    On Error GoTo ErrorHandler

    

    If Len(m_sDatabasePath) = 0 Then

        m_sDatabasePath = m_oParentForm.FileSelection

    End If

    

    Set m_oConnection = New ADODB.Connection

    

    m_oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                       "Data Source=" & m_sDatabasePath

    

    If m_oConnection.State <> adStateOpen Then

        Set m_oConnection = Nothing

        MsgBox "Could not open connection to database", vbCritical + vbOKOnly, App.Title

        Exit Sub

    End If

    

    Exit Sub

ErrorHandler:

    HandleError "clsDatabaseHandler:OpenDatabaseConnection Sub"

End Sub





'Method to get the appointments from the database

Public Function GetAppointments(ByVal sDate As String, ByRef oRsAppts As ADODB.Recordset)

    On Error GoTo ErrorHandler

    

    If m_oCmdGetAppointments Is Nothing Then

        Set m_oCmdGetAppointments = New ADODB.Command

        

        With m_oCmdGetAppointments

            Set .ActiveConnection = m_oConnection

            

            .CommandText = "qryApptList"

            .CommandType = adCmdStoredProc

            

            .Parameters.Append .CreateParameter("DateOfAppt", adVarChar, adParamInput, 11)

        End With

    End If

    

    m_oCmdGetAppointments.Parameters("DateOfAppt") = sDate

    

    Set oRsAppts = New ADODB.Recordset

    

    oRsAppts.Open m_oCmdGetAppointments, , adOpenStatic, adLockReadOnly

    

    Exit Function

ErrorHandler:

    HandleError "clsDatabaseHandler:GetAppointments Function"

End Function

All this code runs within a separate class module which is called from a form.

And if it helps... my SQL query.

PARAMETERS DateOfAppt Text ( 255 );

SELECT tblAppointments.ApptId, tblAppointments.User, tblAppointments.ApptDate, tblAppointments.ApptTime, tblAppointments.ClientId, tblAppointments.Comments, tblClients.Title, tblClients.FirstName, tblClients.Surname, tblClients.ContactNumber1

FROM tblClients INNER JOIN tblAppointments ON tblClients.ClientId=tblAppointments.ClientId

WHERE tblAppointments.ApptDate=[DateOfAppt];

I have had it working once and I had a recordcount of 1 in the recordset (I only have one record in the table by the way). I haven't knowingly changed anything but now I get 0 records every time.

Any help would be massively appreciated as I'm tearing out what little hair I have left!

Access database /VB sorting - help required

pankaj.garg — Thu, 19 Nov 2009 19:22:59 GMT

hi, i am making an program in VB6 with access database....m inserting dates in the database at random....and want a listbox to be populated with first 3 dates starting after a particular date....
eg. input - 6 jan, 3 dec, 15 feb, 12 march, 10 dec, 7 june, 5 may

now i want first 3 dates after 10 Feb - i.e.- 15 feb, 12 March, 5 may

Please help...

Hotel scheduling [grid thing]

oscarresonable — Thu, 19 Nov 2009 14:54:34 GMT

Hi guyz...

Can you help me in my problem??? I cant figure out the scheduling grid for hotel system,.. What i mean is "it is a grid that you can drag and assign a date to a particular room to reserved or book a room...."

can you help me guyz??? I'm a newbie programmer... Thanks guyz..., any source, websites , and idea is really appreciated...

Oscar resonable

Error 429 Encountered in Application Execution

CaffeineCoder — Thu, 19 Nov 2009 13:23:55 GMT

Greetings all!

I'm facing a problem that's been throwing me for a loop for a while now. I'm implementing an old VB application that someone else wrote a long time ago onto a VM. I've gotten past a few different issues/errors just to get new ones (that's the name of the game though, right?) but while I've seen discussions on how to resolve this from a software development standpoint, I'm trying to see how to correct it based on the environment since it's already a developed app (with no source code here). I'm getting a message of "Error creating Letter: 429 ActiveX component can't creat object." Any recommendations? I've tried compensating by updating the MDAC and MS Jet40 DLL files but I'm still getting this error (followed by error 91 "Object variable or With block variable not set"). This was implemented on a reformatted XP machine a year or so ago, and this VM is a Win 2000. Any recommendations?

Adding numbers from a user in an array

Kristan421 — Thu, 19 Nov 2009 07:27:48 GMT

Private Sub AddToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem.Click

Dim numbers() As Integer = {myarray(x)}
Dim element As Integer
Dim total As Integer

For Each element In numbers
total = total + element
Next element

End Sub

This is the code I have for adding the numbers in an array, but I keep getting an error that pertains to the top line that says "Handles clause requires a WithEvents variable defined in the containing type or one of it's base types". The words "AddToolStripMenuItem" are underlined. How can I fix this?
This is an assignment for school and I really need help!

Help on changing label text

duelforce1 — Wed, 18 Nov 2009 12:15:09 GMT

Hi, Can someone help please, I really need to get the text on a label to change to what is inputed by the user on the previous login form
The text box where the username is entered is called UserNameBox and the label is called Label1

So whatever is put in the text box i need it to be writen in the label on another form
Any help is really appreiciated

Set command button icon at runtime

Shilparani — Wed, 18 Nov 2009 07:22:46 GMT

Hello all,

Im using below code to change the command button icon at run time. When the form is loaded button's icon will be showing but again icon will disappear when focus is changed to other controls on the form. Icon will be shown whenever focus is on that button.

Is there any other way to set button icon at runtime??

Thanks in advance

Private Const GWL_STYLE& = (-16)

Private Const Graphical_Style As Long = (1409351691)



Private Sub Form_Load()



Dim lWindowStyle As Long

lWindowStyle = SetWindowLong(Command2.hwnd, GWL_STYLE, Graphical_Style)

Command2.Picture = LoadPicture("D:\Icons\Po.ico")



End Sub

from access to access database in vb6

jeffrey4u — Tue, 17 Nov 2009 17:40:20 GMT

My project is connected to odbe driver with access database. i have another database with the same table and fields on my hard disk. i now want to use common dialog box to locate the access database on my hard disk and append the records in it to the running database (the database which my vb project is running on)since they have the same fields. at the same time i want to check for duplications of records (using the primary key).
can anyone help me out.
thz for ur concern

credit to AndreRet he solved my first thread

solution for this

coollife — Tue, 17 Nov 2009 09:27:15 GMT

1) I want to Close all mozilla firefox windows running , for that to happen as i know there is two ways
a) to use link label
b) findwindow

Link Label finds the mozilla browser but with the found browser i can get the url of the browser but i cannot get the title so i will not be able to get the hwnd value using findwindow function
because findwindow function needs title of the page not the url .

If i try using just findwindow i can just find window which matches the exact page title like ,"Mozilla Firefox Start Page - Mozilla Firefox"
but the problem is for each page the title of the page changes so i can never get the hwnd value .

So Please suggest me some method to find hwnd value of mozilla browser
or way to find hwnd value of mozilla application

TOTALLY WHAT I WANT IS TO JUST CLOSE ALL MOZILLA FIREFOX BROWSERS.

import excel to access database in vb6.0 using common dialog

jeffrey4u — Tue, 17 Nov 2009 06:47:28 GMT

can anyone help me with the code.
am trying to import the content of an excel sheet to my access database using common dialog in vb6. i tried this code below but is not working ........

Private Sub sLoadExcel()

If CommonDialog1.FileName = "" Then Exit Sub

Dim exc As Object

Set exc = CreateObject("Excel.Application")

exc.Workbooks.Add (CommonDialog1.FileName)

exc.Visible = True



'Dim i As Integer

For i = 0 To exc.Row - 1

With rstAS400

.AddNew

.Fields![STUDID] = exc.cells(i, 1)

.Fields![FNAME] = exc.cells(i, 2)

.Fields![LNAMSE] = exc.cells(i, 3)

.Fields![SEX] = exc.cells(i, 4)

.Fields![LDOB] = exc.cells(i, 5)

.Update

Next i

End With

End Sub

please help me out.

Unable to delete a shortcut file using this code , but i am able to delete other file

coollife — Tue, 17 Nov 2009 06:24:40 GMT



Set fso = New FileSystemObject

      If fso.GetFileName(txtPath + sname) = True Then

        Kill txtPath + sname

        MsgBox "File Deleted"

      End If

txtpath is the path to C:\Documents and Settings\All Users\Start Menu\Programs\Startup

where in startup i have an shortcut file
fso.getfilename doesnt find the shortcut file .

I want the method to find the shortcut file and delete it

Code for it Please

VBA excel - Dynamicly loaded Ribbons?

Avenger0A — Mon, 16 Nov 2009 23:22:18 GMT

Hey guys, im new here and i was wondering if some people could help me out? ive recently been employed in an IT company, and although i am quite familiar with c++, i have been asked to work on making a custom Ribbon in Excel (creating a new tab for the ribbon).

I have spend 8hrs yesterday working on this, to limited avail. i know that you can save the file as .xlsm and use tools like RibbonX and CustomUIEditor to write the xml for the ribbon, however, this seems to cause a lot of problems with excel 2003. (errors saving, seemingly corrupted 1st sheet etc) So, the ideal solution would be to check if the version is 2007, if it is, then dynamicly create a ribbon. This would also allow a more easily configured ribbon (with variables etc). So my question is: which functions could i use to load a ribbon dynamicly?

Some Code:

If Application.Version = 12 Then 'Excel 2007 - use ribbon

Call MakeRibbon()

Else If Application.Version = 11 Then 'Excel 2003 - use toolbar

Call MakeToolbar()

End If

I have tried using Application.LoadCustomUI(...) - However, it appears that it is only available for Access. Various extensions etc dont seem to be of any help - they all seem to have problems loading or when saving from Excel 2003.

If anyone is able to help it would be much appreciated! I have spent a whole work day on it and i think my experience is not enough for this.

List Box question please help

TheCodeHunter — Mon, 16 Nov 2009 18:31:27 GMT

Hi Hope you can help because its driving me up the wall.

I've made a program that can add 4 items in a row in a list box, for instance

Item Make Guarentee qty Price
toy car rover 1 1 £45.00
monkey monkey 2 1 £65.00

total: £100.00

The problem is I can't get the price to total up in a lable or textbox, however,
I can make it work if i seperate the box and make two, listbox1 for item,make,gtee, qty and listbox 2 for price only.

I don't want this because i want the row to delete in one go instead of deleting it from two boxes which is a time taker. code below

I've worked out how to delete and make it add up right its just the two boxes i cant get my head around.

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Model As String
Dim Make As String
Dim Guarantee As Integer = 0
Dim price As Double = 0
Dim qty As Integer = 0
Dim Discount As Double = 0
Dim DelCharge As Double = 0
Dim Subtotal As Double = 0
Dim total As Double = 0
Dim totalpayment As Double = 0

'find user input and assign values to their variables
Model = (ModelNotextbox.Text)
Make = (Maketextbox.Text)
Guarantee = Val(Guaranteecombobox.Text)
price = Val(Pricetextbox.Text)
qty = Val(Qtytextbox.Text)

'Price * qty
totalpayment = price * qty

'display data in list box
ListBox1.Items.Add(Model & ControlChars.Tab & ControlChars.Tab & Make & ControlChars.Tab & Guarantee & ControlChars.Tab & qty & ControlChars.Tab)

ListBox2.Items.Add(String.Format("{0:c}", totalpayment))

'Adds list box prices together *
Dim totals As Integer

For Each value As Double In ListBox2.Items
totals += value
Next
Label28.Text = (String.Format("{0:c}", totals))

'Clear previous items
ModelNotextbox.Clear()
Maketextbox.Clear()
Guaranteecombobox.Refresh()
Pricetextbox.Clear()

End Sub

Thanks alot for the help!

import excel to access database in vb6.00

jeffrey4u — Mon, 16 Nov 2009 18:26:07 GMT

can anyone help me with the code.
am trying to import the content of an excel sheet to my access database using common dialog in vb6. i tried this code below but is not working ........

Private Sub sLoadExcel()

    If CommonDialog1.FileName = "" Then Exit Sub

     Dim exc As Object

    Set exc = CreateObject("Excel.Application")

    exc.Workbooks.Add (CommonDialog1.FileName)

    exc.Visible = True

    

    'Dim i As Integer

    For i = 0 To exc.Row - 1

        With rstAS400

        .AddNew

            .Fields![STUDID] = exc.cells(i, 1)

            .Fields![FNAME] = exc.cells(i, 2)

            .Fields![LNAMSE] = exc.cells(i, 3)

            .Fields![SEX] = exc.cells(i, 4)

            .Fields![LDOB] = exc.cells(i, 5)

            .Update

            Next i

        End With

End Sub

please help me out.

Problem in Datareports using VB 6

M SRINIVAS — Mon, 16 Nov 2009 17:18:33 GMT

Hi everyone

I had a problem with the datareports
I am using MS access as database and VB 6
In the section 1 i had place text box and i want in text box the values
value 1 - value 2.

The code is given below
Please help me

Thanks

Private Sub DataReport_Initialize()
Set rs_cash_rd = New Recordset
If rs_cash_rd.State = 1 Then rs_cash_rd.Close
rs_cash_rd.Open "Select * from cash_paid where company = '" & frm_customer_reports.cmb_vendorList & "' order by invdate, invno", cn, 2, 3
Set DataReport1.DataSource = rs_cash_rd
Set DataReport1.DataSource = rs_cash_rd.DataSource

Set rs_cash_op = New Recordset
If rs_cash_op.State = 1 Then rs_cash_op.Close

With DataReport1
With .Sections("Section2").Controls
.Item("lbl_vendor").Caption = frm_customer_reports.cmb_vendorList
End With

With .Sections("Section1").Controls
Do While Not rs_cash_rd.EOF
.Item("txt_date").DataField = rs_cash_rd![invdate].Name
.Item("txt_invno").DataField = rs_cash_rd![invno].Name
If rs_cash_op.State = 1 Then rs_cash_op.Close
rs_cash_op.Open "Select invamt, amt_paid from cash_paid where company = '" & frm_customer_reports.cmb_vendorList & "' and invno = '" & rs_cash_rd![invno] & "' order by invdate", cn, 2, 3
.Item("txt_description").DataField = rs_cash_rd![mode_paid].Name
'.Item("txt_amtdue").DataField = rs_cash_rd![invamt].Name
.Item("txt_amtdue").DataField = rs_cash_op![invamt] - rs_cash_op![amt_paid]
.Item("txt_amtpaid").DataField = rs_cash_rd![amt_paid].Name
rs_cash_rd.MoveNext
rs_cash_op.MoveNext
Loop
End With
End With

maximise form with controls

imolorhe — Mon, 16 Nov 2009 14:07:29 GMT

how do you make sure that when you maximise a form in vb, the controls in it are also maximised. Thanks for the help.

microsoft visual interdev 98 setup development

imolorhe — Mon, 16 Nov 2009 13:50:51 GMT

please, i am havin problems developing a setup file using ms interdev98. Need help urgently. Thanks.

transparent forms in vb6

imolorhe — Mon, 16 Nov 2009 13:47:06 GMT

Please, is there anyway to make the forms in vb6 transparent? I need urgent assistance. Thanks.

To display the username of my choice in a random aspx page by accessing its contents

coollife — Mon, 16 Nov 2009 13:16:09 GMT

First thing i should be able to access the contents of the aspx webpage ex : http://abcd.com/homepage.aspx

In that web page i should be able to display the name localuser .

I heard that using vb6 we can access the HTML contents of a page
If yes, then i should be able to write some code into html page right

Please help me with the solution.

I have .exe file in vb6, I want to make it run online

neosonic — Mon, 16 Nov 2009 12:46:52 GMT

Hi guys,

I have a normal .exe file written in visual basic 6.
It's just many forms linked through a database.

I want to put it online, so the users can use it online and my application only need to be installed in one central computer.

How can I put "transform" my offline .exe to make it run online?
Is it possible? how should I rewrite it?

Thanks guys

How to Pass Data from datagrid to TextBox

PheNz — Mon, 16 Nov 2009 10:05:20 GMT

Hi all , I need the Textbox to display data from the Datagrid according to the columns data i wanted .
Like Textbox1.Text = Datagrid Columns (1)

I need Codes Thanks.

how to rename an .exe extension of vb application to .dll using vb code

coollife — Mon, 16 Nov 2009 06:41:11 GMT

For example i have an vb.exe file by name abcd.exe , what i want my vb code to do is to rename the abcd.exe to abcd.dll .

I want to make an exe running in windows startup invisible using vb6

coollife — Mon, 16 Nov 2009 06:35:55 GMT

For ex: i have an aaa.exe running in windows startup and visible in windows startup, What i want is to make aaa.exe invisible or make aaa.exe replaced by null characters .

refresh datagrid with combobox and datepicker vb6

eppitis1 — Sun, 15 Nov 2009 12:15:58 GMT

hello, i have this code

Option Explicit

Dim dbFilename As String

Dim nodeid As String

Dim rs As New ADODB.Recordset

Dim cn As ADODB.Connection



Private Sub DTPicker_start_date_change()

    If Me.DTPicker_end_date.Value < Me.DTPicker_start_date.Value Then

    Me.DTPicker_end_date.Value = Me.DTPicker_start_date.Value + TimeSerial(24, 0, 0)

    End If

    refreshRs

End Sub



Private Sub DTPicker_end_date_change()

    If Me.DTPicker_end_date.Value < Me.DTPicker_start_date.Value Then

    Me.DTPicker_start_date.Value = Me.DTPicker_end_date.Value - TimeSerial(24, 0, 0)

    End If

    refreshRs

End Sub



Private Sub DTPicker_start_hour_change()

    refreshRs

End Sub



Private Sub DTPicker_end_hour_change()

    refreshRs

End Sub

Private Sub Form_Load()

    Me.pump.AddItem "P1--01"

    Me.pump.AddItem "P2--02"

    Me.pump.AddItem "P3--03"

    Me.pump.AddItem "P4--04"

    Me.pump.AddItem "P5--05"

    Me.DataGrid.Visible = True

End Sub



Public Sub pump_Click()

   refreshRs

End Sub





Public Sub refreshRs()

    Dim sqlstr As String

    Set cn = New ADODB.Connection

    dbFilename = "Report_" & Format(Now, "MM_YY") & ".mdb"

    cn.ConnectionString = BuildConnectionString(dbFilename)

    cn.Open

    sqlstr = "SELECT * From Report WHERE(datevalue(RecDate)<= #" & Format(DTPicker_end_date.Value, "mm/dd/yy") & _

            "# and timevalue(RecDate)<= #" & Format(Me.DTPicker_end_hour, "hh:mm:ss") & _

            "# and (datevalue(RecDate)>= #" & Format$(Me.DTPicker_start_date, "mm/dd/yy") & "# and timevalue(RecDate)>= #" & _

            Format(Me.DTPicker_start_hour, "hh:mm:ss") & "# and Report.NodeID = '" & Me.pump.Text & "'));"

    

    Set rs = cn.Execute(sqlstr)

    Set DataGrid.DataSource = rs

    DataGrid.Refresh

    Me.Caption = "number of records: " & rs.RecordCount

    cn.Close

    Debug.Print sqlstr

End Sub

in the form_load i have one combobox,4datepickers(2 for selecting dates and 2 for selecting hours) and one datagrid where the results of a database(.mdb) must be shown.i want when i click from the combobox a pump or when i change a date/hour from the datepicker the refresh sub to select the exact values from the database.when i run the sqlstr in the immediate window it shows me that works fine but in the datagrid no results are entered.why is that happenning?also the cn connection which refers to the database seems to work fine.any ideas ?please help.thx

Putting Bank Account Number in Boxes

firoz.raj — Sun, 15 Nov 2009 09:46:03 GMT

i have place Masked # # # # # # # # # . and i have put MS Sans Sarif Font But it is not going in the Boxes Properly Kindly let me know the Idea.Kindly find the attachment also.and kindly let me know any way.So that Amount as well as account Number should come in 4 Cm each Box.additional there are total 11 Boxes.
when i type 11 continuous Number then it is going to the boxes properly.But when i type suppose 1 it is going at 1th boxes .it is not going at 11 Boxes.Kindly let me know the idea.Any help would be highly appreciated.Kindly find thea attachment also.Kindly let me know any way.

Need help - Alphabetic Diary / VB Controls

pankaj.garg — Sat, 14 Nov 2009 20:45:24 GMT

Need help for creating an diary alphabetically...some doubts

1. Do i need to create separate recordset for each alphabet (A-Z) ?
2. How do i get the 1st letter of the name entered into a textbox ? (hav heard that "VB Controls" help...but couldnt find a control to help me..)
3. if answer to 1st question is "no" how do i store & Retrieve names of particular alphabet from database when user clicks a label of that alphabet?

Plz help...

connection with machine

abu taher — Sat, 14 Nov 2009 06:49:26 GMT

I want to do work with a machine(any). like: Id card punch(machine) or other. the software collect data form the machine. Here I want to how the software work with the machine? how a software give a command to the machine? I want to know details. plz help need.

Vb calculator to work with keypad

TenaciousBey — Sat, 14 Nov 2009 06:27:51 GMT

Hi, I need to create a visual basic program that does all the functions of the calculator program in windows. I need to be able to make the program display the keys pressed by the user on the keypad (only the numbers 0 - 9) and it should also still be able to do the functions even though the numbers were inputted through the keypad and not through the buttons on the calculator, so far Ive been able to create all the functions except the square root and negative sign, i can do that on my own but I would really appreciate some help on this, I was researching and saw this function called "Keypress" but I don't know how to use it, I just started learning VB 2 days ago, I'm surprised my teacher gave us such a difficult task in only our second meeting, but oh well what can I do. How do I go about doing this, please tell me what functions I should research on, and can you also please explain those functions so I will have an Idea on how to use them. Here is my code.

Option Explicit

Dim Op1, Op2

Dim DecimalFlag As Integer

Dim NumOps As Integer

Dim LastInput

Dim OpFlag

Dim TempReadOut

Private Sub Cancel_Click()

    Readout = Format(0, "0.")

    Op1 = 0

    Op2 = 0

    Form_Load

End Sub

Private Sub ClearEntry_Click()

    Readout = Format(0, "0.")

    DecimalFlag = False

    LastInput = "CE"

End Sub

Private Sub Decimal_Click()

    If LastInput = "NEG" Then

        Readout = Format(0, "-0.")

    ElseIf LastInput <> "NUMS" Then

        Readout = Format(0, "0.")

    End If

    DecimalFlag = True

    LastInput = "NUMS"

End Sub

Private Sub Form_Load()

    DecimalFlag = False

    NumOps = 0

    LastInput = "NONE"

    OpFlag = " "

    Readout = Format(0, "0.")

End Sub

Private Sub Number_Click(Index As Integer)

    If LastInput <> "NUMS" Then

        Readout = Format(0, ".")

        DecimalFlag = False

    End If

    If DecimalFlag Then

        Readout = Readout + Number(Index).Caption

    Else

        Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")

    End If

    If LastInput = "NEG" Then Readout = "-" & Readout

    LastInput = "NUMS"

End Sub

Private Sub Operator_Click(Index As Integer)

    TempReadOut = Readout

    If LastInput = "NUMS" Then

        NumOps = NumOps + 1

    End If

    Select Case NumOps

        Case 0

        If Operator(Index).Caption = "-" And LastInput <> "NEG" Then

            Readout = "-" & Readout

            LastInput = "NEG"

        End If

        Case 1

        Op1 = Readout

        If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then

            Readout = "-"

            LastInput = "NEG"

        End If

        Case 2

        Op2 = TempReadOut

        Select Case OpFlag

            Case "+"

                Op1 = CDbl(Op1) + CDbl(Op2)

            Case "-"

                Op1 = CDbl(Op1) - CDbl(Op2)

            Case "*"

                Op1 = CDbl(Op1) * CDbl(Op2)

            Case "/"

                   Op1 = CDbl(Op1) / CDbl(Op2)

            Case "="

                Op1 = CDbl(Op2)

            Case "%"

                Op1 = CDbl(Op1) * CDbl(Op2)

            End Select

        Readout = Op1

        NumOps = 1

    End Select

    If LastInput <> "NEG" Then

        LastInput = "OPS"

        OpFlag = Operator(Index).Caption

    End If

End Sub

Private Sub Percent_Click()

    Readout = Readout / 100

    LastInput = "Ops"

    OpFlag = "%"

    NumOps = NumOps + 1

    DecimalFlag = True

End Sub



Private Sub Readout_Change()



End Sub

display a record in data report in vb6

juniorj — Sat, 14 Nov 2009 06:09:16 GMT

i want to display a selected record from my database to the data report in VB6. i used the foll. code, where cuno is the value of a textbox. i m passing the value of cuno through a module.

SELECT * FROM Bill WHERE ID=cuno

but when i run it, it gives me this error:

No value given for one or more required parameters.

plz help me.
n i also wanted to know how to make data report an mdi child.

time

deftones — Thu, 12 Nov 2009 21:12:17 GMT

Hey, I faced one tiny problem, but I can't figure it out. What I need is basically "label1 = format(now, "hh:mm:ss")", but I want start counting time from zero: "00:00:00".. Any help?

Recordset values not showing up in Datagrid

bsewell — Thu, 12 Nov 2009 20:07:51 GMT

Hi all,
I'm trying to populate a datagrid as part of a search function for my application. I've tried running my code, which gets executed with no errors but the contents ain't showing up in the datagrid. Please fix this for me :)

Private Sub Search_Click()

    Dim dbuser As String, password As String, dbname As String, hostname As String

    Dim sql As String

    Dim count As Integer

    count = 0

   

    Open App.Path & "\settings.txt" For Input As #1

        Line Input #1, dbuser

        Line Input #1, password

        Line Input #1, dbname

        Line Input #1, hostname

    Close #1

    

    Set conn = New ADODB.Connection

    Set rs = New ADODB.Recordset

    

    conn.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & hostname & ";" & "DATABASE=" & dbname & ";" & "UID=" & dbuser & ";" & "PWD=" & password & ";OPTION=3"

    rs.CursorLocation = adOpenKeyset

    

    sql = "SELECT * FROM tblorders"

        

    Set datagrid1.DataSource = rs

    rs.Open sql, conn

    

    Do Until rs.EOF

        count = count + 1

        rs.MoveNext

        datagrid1.Refresh

    Loop

    

    Text1.Text = "Finshed"

    Label4.Caption = count

    rs.Close

End Sub

Let me know if anyone needs anymore information :)

Cheers,

VB6 Run-time error '53': FIle not not found

Sorb3t3ro — Wed, 11 Nov 2009 19:53:38 GMT

Hi! I have a VB6 project and I used ms access as my database(Database.mdb), I packed my project including the database, I already install it on my PC, but when I use or run my newly installed VB6 project and type the username and password I got this error: Run-time error '53': File not found. Can somebody explain why I got this error? Please I need help. Thanks. :)

Open a form in a new window?

cooldude9509 — Wed, 11 Nov 2009 19:53:18 GMT

I'm new here at DaniWeb, and my english suck.
Does anybody know how to make a form open itself, just in a new window? I want to make a form, that haves a button in it. when i click the button, it opens up a "copy" of itself (the old window is still open). i know it sounds stupid, but i'm new to vb6. any help please? thank you.

VB6 Form Refresh help Request

pankaj.garg — Wed, 11 Nov 2009 19:01:54 GMT

i have 2 forms..when i start my application..form1 loads...then i navigate to form2 and adds some data in database using controls on form2, which should also reflect on form1...

My data is not getting reflected on form1, after i hide form2...before giving "form2.hide", i tried giving "form1.show" and "form1.refresh" but i am still not able to get the updated data on form1.

Plz help.

communicate with the system

imolorhe — Wed, 11 Nov 2009 16:17:32 GMT

hello. please i would want to know how i can communicate with the system and find the system's present status such as logging off, shutting down, etc. vb codes would be most appreciated. thaNKS

code to close mozilla firefox if opened ,or redirecting pages to perticular website

coollife — Wed, 11 Nov 2009 13:00:01 GMT

I want the code to close all mozilla firefox windows
I have tried doing it using findwindow function and linkbutton with no success

Please provide me the solution

Get drive icon

drabsch — Wed, 11 Nov 2009 05:05:14 GMT

I need to get the icon from a drive and put it in a picbox.

For example i have an icon on my usb/flash drive and i want to get the icon and put it in a picbox same for my c drive and DVD drive

Adding code to form using code

drabsch — Wed, 11 Nov 2009 03:46:12 GMT

i need to add code to the form using code like the
Controls.Add().

but to add code not a control.

any ideas.

generate numbers

deftones — Tue, 10 Nov 2009 22:56:39 GMT

Hello,

How to generate random non-repeating numbers?

Open file VB6

drabsch — Tue, 10 Nov 2009 05:22:23 GMT

I am using a MDI Form and several documents can be opened using
"CommonDialog1.ShowOpen"

If i open a file then go back to open another file but click cancel or the "x" then it will open the last file.

so i need to know how to clear the "#1"

my code it:

FileName = ""

Data = ""

MDIForm1.CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.txt)|*.txt|Web Files(*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;)|*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;|Batch Files(*.bat;*.cmd;*.nt;)|*.bat;*.cmd;*.nt;|VB Files(*.vb;*.vbs;*.frm;*.vbp;)|*.vb;*.vbs;*.frm;*.vbp;"

On Error GoTo error

MDIForm1.CommonDialog1.ShowOpen

Me.Caption = MDIForm1.CommonDialog1.FileTitle

FileName = MDIForm1.CommonDialog1.FileName

Open FileName For Input As #1

    

Do Until EOF(1)



        Input #1, Data

        Me.Text1.Text = Me.Text1.Text + Data + vbCrLf

    EOF (1)

    Loop

    Close #1

    FileName = ""

    Data = ""

GoTo endload

Any ideas

I have cleared the "FileName" and "Data" but it still does it so i need to find a way to stop it.

retrieving a record...how...

Israelsimba — Mon, 09 Nov 2009 05:52:29 GMT

i know that a select statement is the best way to go around retrieving records from a database. the problem im facing is selecting a record then assigning a certain field from that record to a variable eg x.....
so in simple english, it has to be something like....select clientnumber from members where firstname= txtfirstname.text

the code im using to retrieve the record is

Set ri = deSub.conn.Execute("SELECT clientnumber FROM individualsubs WHERE firstname = '" & txtfname.Text & "' AND surname = '" & txtsurname.Text & "'")

so how do i assign the clientnumber to a variable x, so that i can display it in a textbox.
thank you in advance!!

VB-Prime Numbers

XStrong — Mon, 09 Nov 2009 05:13:16 GMT

Here is the code I'm working on. The user should be able to type in a number and then after clicking the button, list (in a listbox) of all the prime numbers leading up to the number (including the number if it's prime)

MY ERROR/PROBLEM: When i input a number value, it get a list of nothing...and it(the form) locks up. I know it works up to the "msgbox" code (i've tested for 1). Please help where you can and thank you for your time.

--------
Public Class frmPrime

Private Sub btnCompute_Click(....) Handles btnCompute.Click
Dim prim As Integer
'im test As Integer 'to test each number up to prim
Dim imPrime As Boolean = False
prim = CInt(txtNum.Text)
test = prim
'loop while prim is greater than 1 and not equal to prim

'As long as the number is greater than 1
If prim = 1 Then
imPrime = False
MessageBox.Show("Enter a number greater than one please")
Else
Do While prim >= 2
For i As Integer = 2 To prim
If prim Mod i = 0 Then
imPrime = False
Exit For
Else
imPrime = True
lstPrime.Items.Add(prim)
End If
Next
Loop
End If
'If imPrime = True Then
'lstPrime.Items.Add(prim)
'End If

End Sub
End Class

VB6 database Help Required

pankaj.garg — Sun, 08 Nov 2009 20:54:23 GMT

how can i create an database dynamically i.e. my code creating database while running taking an user input??

i have seen code like below working

Dim db As Database
Dim ReS As Recordset
Set db = OpenDatabase(App.Path + "\Data\" + Userinput + "\Memo.dat")
Set ReS = db.OpenRecordset("Memo")
ReS.AddNew
ReS("Title") = txtTitle.Text
ReS("Details") = txtDescription.Text

but if i do the same, i get an error - "invalid path"

saving image in ms access using vb6

venkatnams — Sun, 08 Nov 2009 13:30:24 GMT

hello everybody,
im venkat doing my b.e 3rd year... Im currently working on my project of college administration system using vb6.
I need help on how to save an image in the access database...i have got the code on how to browse an image. but i'm not able to find out how to save it to a particular record on a database.
So please help me in this,,thanx in advance[/B]

Error checking for an existing record

Israelsimba — Sun, 08 Nov 2009 10:06:00 GMT

i am trying to make sure that one record is not entered twice into the same database but the code i am using is giving me an error

Set ri = deSub.conn.Execute("SELECT* FROM individualsubs WHERE firstname = '" & txtfname.Text & "' AND surname = '" & txtsurname.Text & "'")

If ri.EOF = True Then



ri.AddNew

ri.Fields("firstname") = txtfname.Text

ri.Fields("surname") = txtsurname.Text

ri.Fields("numberofcopies") = x * Y

ri.Fields("copiesout") = txtcopies.Text

ri.Fields("copiesremaining") = x * Y

ri.Update 

Else......

the error i am getting is

Quote:

current recordset does not support updating. This might be a limitation of the provider or the selected locktype lock type

but i am using adlockoptimistic as shown below which suports updating...

With ri

.ActiveConnection = deSub.conn

.LockType = adLockOptimistic

.Source = "select * from individualsubs"

.Open

End With

calling event form module

deftones — Sun, 08 Nov 2009 00:50:26 GMT

Hey, one simple question: how to call Image1_click event form module?

get the databse table names

4ukh — Sat, 07 Nov 2009 19:07:42 GMT

dear all,

what is the sql command for ms access 2007 to get the tables name of the database? and also how to put these names into a list box?

thanks in advanced.

4ukh

If then Statement in excel using data in 2-3 columns

brendajean — Sat, 07 Nov 2009 17:08:23 GMT

I am trying to create an If Then statement to use in an excel spreadsheet using data from 2 or 3 columns.
Column AB has text. Column AA has a date in it. I need the statement to say if column AB says RFEP or TRFE and Column AA is greater than 08/01/07, the true value is "Y" and the false value is "N".
=IF((AA2>08/01/07)+(AB2="RFEP"),"Yes","No") This is only picking up the date in AA2. I tried the & for a connector and got “value” only.
As you can see, I haven't even tried to add the TRFE information.

I would also like to add column X to the mix. If column X has a "Y" in it, it would also be included in the true value of "Y". However, I would be very happy with just the first two items.
Thank you for the help.

Attached Files

sample data for formula.txt (33.7 KB)

making objects invisible

deftones — Sat, 07 Nov 2009 15:34:42 GMT

Hi,

Let's say I have a form full of objects and want to make all of them (or half of them, whatever) invisible. Is there a short way to do that without a need of setting visible to false individually to each object?

Error!!!

Israelsimba — Sat, 07 Nov 2009 08:49:21 GMT

My subscription system is now running though with errors here and there.the error that concerns me a lot is a runtime error that says

Quote:

multiple steps generated an error check value status

and points to this code....

r.Fields("companyphone") = txtcphone.Text

r.Fields("companywebsite") = txtcwebsite.Text

and this code is in my save button. at times the error doesnt show but at times it pops up when a user is testing...
how best can i trap such an error because i know there must be a way which i dont know.
thank you in advance!!!

Need Some Help :)

lein.o16 — Fri, 06 Nov 2009 16:18:08 GMT

okay. i'm an B.S.I.T student and we're going to develop a system. i hope you can suggest a unique system. my professor doesn't like common system: library system, student information system, etc. hope you guys can suggest some. we might use VB6, VB2008 or VB.net. it's up to our prof. thanks in advance! :)

Avoiding code troubles

deftones — Thu, 05 Nov 2009 22:32:39 GMT

Hi again,

I have a huge code written, but I'm not even halfway there. Had to split couple of procedures to make everything work smoothly etc. I was wondering, would it be reasonable to put some of my code into modules, in order to avoid compiling or similar errors in future?

simple question (Form1)

deftones — Thu, 05 Nov 2009 20:15:06 GMT

Hey,

How not let the user to close a form with a close button? Basically, I need a form to be hidden most of the time, but sometimes it is shown by the code (intentionally). And when you hit close button, user not only closes the form, but unloads it as well, so how do I avoid that?

Printing Array Contents to Label

MichaelSammels — Thu, 05 Nov 2009 14:52:34 GMT

I have the following code:

    For lngPosition = LBound(strNames) To UBound(strNames)

      mainForm.NameDisplay.Caption = strNames(lngPosition)

      mainForm.StockDisplay.Caption = intLevels(lngPosition)

    Next lngPosition

This code, in my opinion, should print everything in array in a label. However, it only prints the last element of the array. Anyone got any ideas on how to fix this?

How to run a program in a remote machine

karthiknvs — Thu, 05 Nov 2009 10:51:46 GMT

Hi all,

I am new to VB. i want to know how to connect to a remote server and run three batch files with some arguments, over there.
E.g.
machine Ip Address:xxx.xxx.xxx.xxx
username:test
password:test
I have to connect to the machine name and run the batch files.

Please suggest a method.

VB6 - Access Database

Jaisonkv — Thu, 05 Nov 2009 07:49:13 GMT

Hi.... I am a student.

When i tried to connect VB with Access, it is giving me this message "Run-time error 13, Type Mismatch" Below is the code

Dim DBase As Database

Dim RBase As Recordset



Set DBase = OpenDatabase("DB Name")

Set RBase = DBase.OpenRecordset("Table name")

The funniest thing is, this same code works on another project on the same computer.

Somebody help meeeeeeeeeeeee.

ListView

spmg_092 — Thu, 05 Nov 2009 06:43:16 GMT

Hi guys. I am having a bit of trouble with the listview control at the moment. I am trying to change the position of an item in the listview but I have no idea how to do so. I am also trying to set a command button which can "click" a certain item for the user, ie, the item will get highlighted and selected as if it has been clicked directly by the mouse. At the moment I am only able to set .SelectedItem property to the item I want to "click" and make it visible by using .SelectedItem.EnsureVisible, but I don't know how to highlight it, which means there is no indication on the interface to show the user that the item is selected. Please give me a hand. Thank you

Code Snippet can any one tell me how to open image of .CAL extension or .TIFF extension in vb6

srikanth48 — Wed, 04 Nov 2009 10:41:11 GMT

Type BITMAPFILEHEADER
bfType As Integer
bfsize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfoffbits As Long
End Type

Type BMPInfoHeader
biSize As Long
biwidth As Long
biheight As Long
biPlanes As Integer
bibitcount As Integer
biCompression As Long
bisizeimage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type

vb6 populating with first record information

esspeter — Tue, 03 Nov 2009 19:06:08 GMT

Read a post that had a similar scenario and wonder how it was solved.

environment VB6, sql server 5.0, windows 2003 server, xp sp2 clients

Randomly getting data populated with first record information.

original post was from looney064 on 6/24/08

Just joined so if this is out of format please forgive.

Need an advise friends. . .

nagatron — Tue, 03 Nov 2009 13:18:41 GMT

Is it possible to make a program using VB where you let people visit a site and get their IP address and use their IP address to click the link which is inside the site they visit?

Ex.

My site location is: http://www.mysite.com
And this site contain one link name "Click Me"
If someone visit the http://www.mysite.com I will be able to get their IP Address and that IP Address will be use to click the "Click Me" link.

help pls in resizing treeview on run

xirosen — Tue, 03 Nov 2009 11:59:51 GMT

can anyone help me pls on how to resize treeview while the program is running.. i know how to populate treeview but when the text is to long not all text will be displayed that is why i want to know if there is way on resizing it while running..

code need

abu taher — Tue, 03 Nov 2009 09:47:24 GMT

have any code for all form. I mean, here I write

Help with Code...

Help reg VSExpress edition in Office programming.

aligahk06 — Tue, 03 Nov 2009 07:44:39 GMT

Dear All,

I have installed Visual Studio 2008 Express edition " Free by Microsoft ".
I have done some of my assignment in vba using excel 2007. i want to learn office programming
in visual Studio 2008 Express Edition the enhanced features and their advance application in
office 2007.

Please can anybody assist some useful resource or sample application file that helps to understand
me.

PLease assist ?

Rgds,

Aligahk06

Code Snippet hdd physial id

naveen g — Tue, 03 Nov 2009 05:58:56 GMT

i run vb6.0 code in xp for getting hdd physical id and it run ok. but when i run same programme in vista it does not display any hdd physical id. please solve the problem

SMS

ronyyy — Mon, 02 Nov 2009 18:47:46 GMT

Hello.....I have problem ......i have to transfer a sms from a mobile to another mobile which is connected to a computer.i have to read the sms directly through computer without seeing tne mobile which is connected to computer via USB........then i have send a sms from computer to mobile(which is not connected).Is this possible ...??pls a help me...if u can.

College library system

sting23 — Mon, 02 Nov 2009 11:25:30 GMT

Login form + calculator

pytup — Mon, 02 Nov 2009 10:18:33 GMT

I've got that. that should be displayed after log on ( it can be rewrite with use IF statement)

Private Sub cmdLogon_Click()

Dim age As Integer



age = InputBox("please enter your age")

Select Case age

Case Is >= 18

MsgBox "you are" & " " & age & ", let's go to the pub"

Case Is < 18

MsgBox "you are" & " " & age & ", you can't drink!"

Case Is < 17

MsgBox "you are" & " " & age & ", you can't drink!"

End Select



End Sub

and i have task to do with that.
1. design, write and test program that requires the user to enter a username AND password. On successful login the program should dispal the message 'welcome ' Invalid logins will results in the message 'sorry access denied, please check your username and password and try again'

2. Alter the calculator program so that it displays an error message if the user enters any values below 0 or above 99

can u help me?

=" =" "

drabsch — Mon, 02 Nov 2009 09:32:48 GMT

I need to copy text form a text box

for example:

My text box has

temperature="18.5"

in it and i want to copy the text 18.5 i already have it selected i just need to copy it or put it into a var

DatePicker Problem

nareshkumar131 — Sun, 01 Nov 2009 22:22:01 GMT

Hello,
I have a DatePicker and text box on my Form and When I try to show the choosen date of DatePicker in the TextBox. It Shows the date and time. But I want to show only date. Plz help me.

Code:
text1.text=DatePicker1.value

Payroll

sting23 — Sun, 01 Nov 2009 15:41:39 GMT

simple inventory system for school clinic

sting23 — Sun, 01 Nov 2009 15:32:28 GMT

Im trying to make a simple system using VB and Access.
Does anyone have requirements list for such a system? I have the basic ones but if i can get a few more it wont be too bad.
Thanks

Sending data from winform to website ?

veledrom — Sun, 01 Nov 2009 08:32:33 GMT

Hi,

How do i post data from windows form to a website.

Windows form is VB6 or VB.NET
Website is PHP site where incoming post data is processed.

Example: Command will send 'Hi' in a variable, PHP site wwill print 'Hi' on the screen.

Thanks

VB6 find and replace

wilder1926 — Sat, 31 Oct 2009 23:14:48 GMT

Hello everybody,

I have an issue with a code. I'm don't know how to start this.

Here is my problem:
Column 2 of my MSFlexgrid = store number. Ex: 1009,1010 etc.

In column 20 of my MSFlexgrid = Delivery day. Ex: Sun, Mon, Tue......,

Now if store 8009 have multiple delivery days ex:

Column 2               Culumn 20

1009                      Mon

1009                      Fri

The logic will have to be that way:
If the the holiday entered in the Form4.day_ferier (Combo Box) is "Mon"
Then it will calculate how many day it will have until the next delivery.

In that case,Monday to Friday = 4 days.

Then it will calculate how many days there was from the previous delivery. Friday to Monday = 3 days.

So since Monday to Friday is bigger that Friday to monday, then the results will be Monday +1. So Tuesday.

If the result would of been less, then it would of been Monday - 1. So Sunday.

If it would of been equal, by default, it would be Monday - 1.

Would it be easier if I change Sun by "1", Mon by "2", Tue by "3" and so on...

Thank you so much for your help.

combolist data selecte with textbox relation

Salman Attari — Sat, 31 Oct 2009 05:23:16 GMT

I have one combo box “cboitemname” and one text box “itemcode” in vb6 form,I have a table “stock” in sql server 2000 database where data about item name and its code is present, in rutime I want to disply item code of item that I select from combolist, how should I do this?

related Combolist data in textbox from database

Salman Attari — Sat, 31 Oct 2009 05:19:19 GMT

I have one combo box “cboitemname” and one text box “txtitemcode” in vb6 form,I have a table “stock” where data about item name and its code is present, in rutime I want to disply item code of item that I select from combolist, how should I do this?

A little help on a card game is needed

deftones — Fri, 30 Oct 2009 14:41:05 GMT

Hi gang,
I've started making a card game, which seems is going to be quite a challenge for me. To make my question more simple, let's say we have a form with three empty images and three images with cards. How do I put those three card pics randomly into empty ones with just a single click of a button? I'd appreciate any pointer, that could get me on track...

how to connect sql and visual basic

rakky — Fri, 30 Oct 2009 11:24:25 GMT

conectivity of sql & visual basic is needed as early as possible
pleaseeeeeeeeeeeeeeeeeeeeeeeeeeeee!

Help Pls on how to disable popup menu on right click such as undo, cut, copy etc.

xirosen — Fri, 30 Oct 2009 09:55:13 GMT

Here my code to display the menu:

Private Sub Text5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu t5menu
End If
End Sub

But my problem is the default popup menus such as undo, copy, cut etc. keeps in taking place instead of the menus i set up..
Help me pls..

Subtracting from database

ivankenny — Fri, 30 Oct 2009 07:57:02 GMT

Hello it's me again i'm having problem with the database subtraction for my POS Project im using ado database and i know that you just have to change the value from the selected and voila it would update the database but mine doesnt work:

' txtqan is connect to the item database
txtqan.text = Val(txtqan.text) - Val(txtsalesqan.text)

visual basic ,Chapter 6, Programming Challenge 6: Travel Expenses, Page 408.

samira1993 — Fri, 30 Oct 2009 04:39:24 GMT

visual basic 1 ,Chapter 6, Programming Challenge 6: Travel Expenses, Page 408.

Displaying Input from one form onto another

EntangledDesi — Thu, 29 Oct 2009 19:52:20 GMT

I have created form resembling a standard dialog box where some enters there name into a text box and then hits 'ok' taking them to the main form..On this form I need to get the name that is typed into the text box to be displayed on the main form.

How do I go about doing this?

The standard dialog box form is named frmInput and the text box is named txtName
The label where the Name is be displayed on the main form (frmSquare) is named Label1

Selecting the first and second characters in an excel cell

JLynn — Thu, 29 Oct 2009 11:59:14 GMT

Hello,

I am having trouble figuring out the correct syntax for a small portion of my code. I am trying to have my code search through a column and for each entry in that column copy and paste only the rows that have the following characteristics: the first character = 0 and the second character = the value in cell (1, 9) in the current worksheet.

Below is the logic I have come up with (don't worry about "y" or "vend": they have already been declared in previous code):

For y = 3 To vend + 1

     If "the 1st character" = 0 and "the 2nd character" = Range("I1") Then

          Range("B" & y & ":F" & y).Copy

          "Find last row in sheet 'Selected Values'"

          "Paste in that cell"

     End If

Next y

The only part I need help with is determining the correct syntax for selecting the first and second characters in a cell. The other stuff in quotes I already know.

Thanks in advance for your help,

Jordan

Checking if not a number help

icedece — Thu, 29 Oct 2009 02:43:48 GMT

Hi guys i'm working on some code whereby the user inputs a distance and time they took spent running for days 1 to 6 and it works fine however I can't get it to display a message box if the user inputs letters instead of numbers. I've had a go at trying to do it and you can see my attempt in the code below. Thanks in advance ;)

[code=vb6]
Sub Main()
'Declaring variables used in the program
Dim distance As Integer
Dim time, totaldistance, totaltime, average As Single

'Loop that calls the following functions to display the message box 6 times and change the day
For i = 1 To 6
distance = Val(InputBox("Enter the km travelled on day" + Str$(i)))
If IsNumeric(distance) = False Then
MsgBox ("please enter a number")
End If

time = Val(InputBox("Enter the minutes taken on day" + Str$(i)))
If IsNumeric(time) = False Then
MsgBox ("please enter a number")
End If

totaldistance = totaldistance + dist
totaltime = totaltime + time
Next i

'Calculates and displays the total time, distance and kmph
MsgBox ("The total distance travelled over the week =" + Str$(totaldistance) + "kms")
MsgBox ("The total time taken running over the week =" + Str$(totaltime) + " minutes")
average = totaldistance / totaltime * 60
MsgBox ("Your average speed is =" + Str$(average) + " kmph")
End Sub [/vb6]

running batch file in vb6

DaveyMoyes — Wed, 28 Oct 2009 19:45:15 GMT

hi all, i am trying to run a batch file in vb6 and failing dreadfully,

can anyone give any pointers as to how this can be acheived,

the batch file is as follows

@echo off
cd\
ipconfig /flushdns
ipconfig /registerdns
exit

Data grid control

VINOD_2553 — Wed, 28 Oct 2009 07:05:48 GMT

Hi i am working on a sotre inventry project.
I just want to fill grid from my ms accsess data base but
i can not understand what i can do
please help me in deeply
it is very urgent

Code Snippet Select Printer From List

AndreRet — Tue, 27 Oct 2009 18:09:39 GMT

Let you choose between all printers available on your pc or network. Download zip and enjoy. Royal free.

Attached Files

Printer Select.zip (4.4 KB)

Exponent in Textbox or Label

adamsn — Tue, 27 Oct 2009 17:15:17 GMT

Good day all

Is it possible to type an exponent in a textbox or a label using VB6? I am currenltly using two textboxes, one for the base and the other for the exponent, by using the tabkey to go from textbox 1 to textbox 2.
thanx.
N

please help ? how calculate

samira1993 — Tue, 27 Oct 2009 13:10:28 GMT

Create an application that will predict the approximate size of a population organisms. The user should select or enter the starting number of organisms in a combo box, enter the average daily population increase (as a percentage) in a text box and select or enter the number of days the organisms will be left to multiply in another combo box. For example, assume the user enters the following values:

Starting number of organisms: 2
Average daily increase: 30%
Number of days to multiply 10

The application should display th following table of data.
Day Approximate Population
1 2
2 2.6
(table should list values up to 10 days)

Be sure to add appropriate ToolTips for each control on the form.
Input validation: Do not accept a number less than 2 for the starting size of the population. Do not accept a negative number for the average daily population increase. Do not accept a number less than 1 for the number of days the organisms will multiply.

how to solve this

samira1993 — Tue, 27 Oct 2009 12:39:00 GMT

Try-Catch feature for VB6, VBA, VBScript

RobEin — Tue, 27 Oct 2009 12:06:46 GMT

Hi Everyone,

This feauture enables to use "Try" exception handling in VB programs like VB.net Try-Catch statement.
http://sites.google.com/site/truetryforvisualbasic/
I think it's a new way of exception handling in VB 4,5,6, VBA and VBScript.
I'm waiting for opinions.

Error "Provider not found"

r_k46211 — Tue, 27 Oct 2009 08:09:00 GMT

Hi,

I have a computer that has Win-2003 and SQL Server 2005 Installed.

I checked my client and server both are giving the response to each other using ping their address.

I created a string as:

----------------------------------------------------

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

Sub main()

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLNCLI;Server=PUNSEZ178073d;Database=test;Uid=sa;Pwd=Infosys123;"

conn.Open

conn.close

end sub

----------------------------------------------------

Above string is working fine at Server machine but when i am running the same script on client machine i am getting error "Provider not found".

Please help

need help

samira1993 — Tue, 27 Oct 2009 06:53:18 GMT

visual basic

samira1993 — Tue, 27 Oct 2009 06:41:30 GMT

visual basic 1

samira1993 — Tue, 27 Oct 2009 06:31:00 GMT

9. Create an application that will predict the approximate size of a population organisms. The user should select or enter the starting number of organisms in a combo box, enter the average daily population increase (as a percentage) in a text box and select or enter the number of days the organisms will be left to multiply in another combo box. For example, assume the user enters the following values:

Starting number of organisms: 2
Average daily increase: 30%
Number of days to multiply 10

The application should display th following table of data.
Day Approximate Population
1 2
2 2.6
(table should list values up to 10 days)

Be sure to add appropriate ToolTips for each control on the form.
Input validation: Do not accept a number less than 2 for the starting size of the population. Do not accept a negative number for the average daily population increase. Do not accept a number less than 1 for the number of days the organisms will multiply.

help with alignment in list box

ivankenny — Tue, 27 Oct 2009 04:51:09 GMT

Call List3.AddItem(txtname & vbTab & txtamount & vbTab & txtqan & _vbTab & Format$(ans, "Currency"))

need help need to align the text the keep displaying like this:

toy car 1 $3.00 $3.00
card board box1 $0.50 $0.50
remote control car 1 $3.00 $3.00
cart 1 1 $1.00 $1.00

this is just the sample need it to look clean need help please the out put must be:

toy car 1 $3.00 $3.00
card board box 1 $0.50 $0.50
remote control car 1 $3.00 $3.00
cart 1 $1.00 $1.00

VB6 Resident monitor

jusmas — Mon, 26 Oct 2009 12:46:26 GMT

Hi all,

I need a VB6 program which will be kept resident in windows and monitoring the PrintScreen key. Please let me know how can I do this. I appreciate if you can provide any code samples if you have any.
The idea is that to track the prtSc key and to show another form immediately if a user press the prtSc key.

Thanks...