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

how to display data from sql server to msflexgrid with many record, example 3500 rec

hery — Wed, 16 Dec 2009 04:37:51 GMT

this is my code

MSFlexGrid1.Clear

On Error Resume Next

Set rs = cn.Execute("SELECT count(*) FROM ENTRY_GAJI_BAGIAN")

If Err.Number <> 0 Then

    MsgBox "Cannot open recordset due to this error: " & Err.Description

    MousePointer = vbDefault

    Exit Sub

End If

If rs(0) > 0 Then

    MSFlexGrid1.Rows = rs(0) + 1

Else

    MSFlexGrid1.Rows = 2

End If





Set rs = cn.Execute("SELECT * FROM ENTRY_GAJI_BAGIAN")

MSFlexGrid1.Cols = rs.Fields.Count + 1

sno = 1



MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "No"

For i = 0 To rs.Fields.Count - 1

    MSFlexGrid1.Col = i + 1

    MSFlexGrid1.Text = rs.Fields(i).Name

    

    Debug.Print rs.Fields(i).Name

    

    'MSFlexGrid1.TextMatrix(i, i + 1) = rs.Fields(i).Name

Next





If rs.EOF = False Then



'Assigning Column names to flexgrid 1st row



   Do While Not rs.EOF

        MSFlexGrid1.Row = sno

        MSFlexGrid1.Col = 0

        MSFlexGrid1.Text = sno

        For i = 0 To rs.Fields.Count - 1

            MSFlexGrid1.Col = i + 1

            MSFlexGrid1.Text = IIf(IsNull(rs(i)), "", rs(i))

        Next

        sno = sno + 1

        DoEvents

        rs.MoveNext

    Loop

End If

'MousePointer = vbDefault

   

   

Set rs = Nothing

Set cn = Nothing

but for record 3500 not display, but for record < 3500 display, Why??

How to use Button array

Geek_Cyborg — Wed, 16 Dec 2009 00:12:39 GMT

How to use Button array?
i want to use separate code for each button, Please Help

How to store ComboBox in a Text file

Geek_Cyborg — Wed, 16 Dec 2009 00:10:01 GMT

How to store all ComboBox items in a Text file..?

Please share the code for this

PictureBox scroolbar in vb6

neosonic — Tue, 15 Dec 2009 17:38:47 GMT

Hi, this is my problem.

I have a big picture to be viewed in picturebox.
I will need to manipulated that picture (add some graphic in it) and save it in the same size (if the original is 2000x2500, let it be 2000x2500).

The problem is that picture's size is more than the screensize.
So I cannot view everything in that image.

I think the only way to do it is by using scroolbar.. but do you have any idea to solve it?
Also to be honest, I don't know the difference between .scalewidth and .width? are they related to this issue?

Thanks

Hi There

skateatvu — Tue, 15 Dec 2009 14:58:31 GMT

Hi My name is Lin Freeman,im 14 years old and live in Baltimore Maryland.I really want to learn about visual basic 6.0.Ive bought one book and read it and read it well.It taught it the basic and how to write code but i didnt understand the code part very much i know just enough to make a hello world.As far as making forms i can do that with no problem.I was wondering if there was some expirenced programmer here that could show me the ropes some?
If anybody is interested message me at skateatvu@hotmail.com,post here or send me a message thanks!

RS232 in VB programming

benze — Tue, 15 Dec 2009 08:50:54 GMT

hello im making a GUI using VB 6.0 in order to communicate my PC to my PIC microcontroller. Can you give me an alogorithm how to start in coding my GUI. Im just new to VB language.

I really appreciate your reply..Thanks a lot.

VB in PDA

invincible35 — Tue, 15 Dec 2009 04:07:08 GMT

HI fellas, i want to use a visual basic application in Personal digital assistant(windows mobile platform) but somehow i am facing some problems (Like.... I couldn't run my exe on PDA, which was working fine on my system).
Please help me.

Separate Text With Integer Values From A ListBox

Geek_Cyborg — Tue, 15 Dec 2009 02:22:19 GMT

Hello,
See
for eg. I have a ListBox with these items: abc1 abc20, abcd
now i want to search and separate the only text which contain integers to a textbox.

Can anyone help please

checkbox control macro in excel 2007

misstrouble — Mon, 14 Dec 2009 19:36:56 GMT

How do I assign a macro for a selected check box in one worksheet and copy the entire row onto another worksheet? What should I do if I have selected some rows and I want all of those selected in the check box appear on the new worksheet? Anybody out there?

Office 2010 VBA

jammiedude — Mon, 14 Dec 2009 14:58:28 GMT

Just downloaded Office 2010 to see what changes have been made in the VBA environment and all looks well. But i am having a big problem typing in my code! as soon as i type something it appears in red, it autocorrects so fast that if i type .range("A1") it automatically puts a space inbetween range and ( so the cursor ends up before the second bracket and i have to move the cursor to carry on typing. Then it gets worse! if i then put *space* = *space* i find it automatically deleting my spaces and just deleting what i typed!

this is rediculous! on the surface no changes have been made so why is this happening? i realise it is just a beta product but all major issues like this should have already been corrected before hand, surely?

Anyway i just wanted to see if anyone else is having these issues?

capturing key press event while vb application is running

coollife — Mon, 14 Dec 2009 08:22:45 GMT

ex :

while asp web project is running , i have an option for the user , if the user presses F8 key in index page he will be redirected to login page

In the same way while vb application is running i should be able to capture the key press event and redirect the user to certain form

Here user refrers to adminstrator .

Is there an option like that in visual basic

VB 6

gian10890 — Mon, 14 Dec 2009 06:01:46 GMT

here's my code:

this code executes by pressing ALT Q, then the msgbox will return the key value of Q which is 81

Private Sub Form_KeyUp(KeyCode As Integer, x As Integer)

If x = vbAltMask Then

    If KeyCode = vbKeyQ Then

        MsgBox KeyCode

    End If

End If

End Sub

actually dis code works but all I want to happen is that every time I hit the ALT Q, its like pressing the numpad7 at the same time...

help me guys.
tnx in advance, merry Christmas

How to show the next 15 odd numbers of a number

Lida_pink — Sun, 13 Dec 2009 22:30:41 GMT

How can I show the next 15 odd numbers of for example number 10 ?

How do i save a picture to a random access file???

Matt3144 — Sun, 13 Dec 2009 16:51:26 GMT

I have made a program which can store users as records with different fields with a public type using text boxes and combo boxes which works fine but I also need to save a picture of the person in the file (same file if possible). how do i save the picture and then load it out of the file and display it again??

path error

ravmonster88 — Sun, 13 Dec 2009 14:27:03 GMT

hi experts.

this is my first post here
hope you could help me..

Private Sub FindFile()

   

On Error GoTo x   'capture if error occurs

   

   Dim idx As Integer    'index to be incremented

   

   For idx = 1 To Combo.ListCount - 1   'loop to find the and load the text file

   

   

   RTB.LoadFile App.Path & "\Ordinance\" & Combo.List(idx) & "\" & txtFind.Text & ".txt"  'load the text

   

    Exit For  'if found



x:  Next idx   'if not found

 

End Sub

in my code, I have to catch the error which occurs when i want to load the File from an invalid directory,
I need to catch it to increment the index of my combo which contains the Exact name of sub folders where the Files are.

my problem is i can only catch the First error and increment the idx once(it can only change the Directory once)
then the error appears(The specified path/file name cannot be access )

why is that???
what's wrong with the Codes???

hope it's clear :icon_neutral:

Adding text to an existing text box

bg_ac_dziner — Sat, 12 Dec 2009 18:27:50 GMT

I have built a telephone keypad using the drawing function of Excel and I would like to be able to have a visual print out in an existing Text Box of the numbers selected when I touch the individual key button Groups.

installing patch of spyware doctor

cabsjonel — Sat, 12 Dec 2009 14:47:06 GMT

hey folks its me again i have a big probelem i dont know how to use the patch of spyware doctor hoping to those person who have a good heart god bless to all pf you

access printscreen through coding

aakashkumar — Sat, 12 Dec 2009 12:13:22 GMT

how we access printscreen through coding

Help!!!

xandy — Sat, 12 Dec 2009 09:21:41 GMT

i want to install visual basic 6.0 free download to my pc but i dont know if i can get here a free!!!!

help me pls!!!

(Help) +Add integer to specify integer character from a TextBox

Geek_Cyborg — Sat, 12 Dec 2009 08:13:09 GMT

Hello,
I want to add integer value in specify integer from mix character TextBox,

For eg, I have two TextBoxes first's name Textbox1 and second's name Textresult1

Textbox1.Text = "blabla 2 bla"

Now after a empty space and before a empty space i want to + 1 in integer value and it'll show in Textresult1 like this "blabla 3 bla"

Please Help.. Explain the full code for this, Thanks

VB in MS Word 2007

shaunhester — Fri, 11 Dec 2009 16:13:23 GMT

The following code worked perfectly in word 2003, now in word 2007 it doesn't work if the resulting save file is on a network drive, it does however work on a local drive. We are scrathing our heads here if anyone has any ideas we would be happy to try them out.

With Options

        .LocalNetworkFile = False

        .AllowFastSave = False

        .BackgroundSave = False

        .CreateBackup = False

        .SavePropertiesPrompt = False

        .SaveInterval = 10

        .SaveNormalPrompt = False

        .DisableFeaturesbyDefault = False

    End With

    With ActiveDocument

        .ReadOnlyRecommended = False

        .EmbedTrueTypeFonts = False

        .SaveFormsData = True

        .SaveSubsetFonts = False

        .DoNotEmbedSystemFonts = True

        .Password = ""

        .WritePassword = ""

        .DisableFeatures = False

        .EmbedSmartTags = True

        .SmartTagsAsXMLProps = False

        .EmbedLinguisticData = True

    End With

    Application.DefaultSaveFormat = ""

   SaveName = ActiveDocument.FullName

   SaveName = Left(SaveName, Len(SaveName) - 3)

   SaveName = SaveName & "txt"

   ActiveDocument.SaveAs FileName:=SaveName, FileFormat:=wdFormatText, _

        LockComments:=False, Password:="", _

        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _

        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _

        :=True, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _

         AllowSubstitutions:=False, LineEnding:=wdCRLF

vb hangs help needed

venkatnams — Fri, 11 Dec 2009 13:27:12 GMT

guys,,i use vb6 and access 2007,,i hav a problem with my project,,,,my project is about college admin s/m,,,on runtime if i give certain id's for input it hangs and just crashes,,,i dont know why this happens,,,,,i hav applied the same code in many other places of my project but they dont seem to hang though i've faced the hanging trouble previously but which doesnt happen now,,,,,pls i need ur help desperately,,,,

Working with Internet Explorer Browser Project. Solution Please...

coollife — Fri, 11 Dec 2009 10:13:25 GMT

I am fetching the url of internet explorer browser
ex: http://google.com/accounts/service=orkut.............................

for orkut.com website

but for every page visited inside the orkut website urls keep changing

So i was wondering is there any through which a website can be identified uniquely like ip address, or any text scanning or any ways which should be unique to an whole website .

Please provide some inputs , its urgent

SQL QUARY

VINOD_2553 — Fri, 11 Dec 2009 08:14:29 GMT

Hi i just have problem in my software
i just want to apply more then one condition in my quary which is joined "and" operator
plese helpe me by given an example(coding)
it is very urgent

How do i open an specific website through ie and get the url of that website

coollife — Fri, 11 Dec 2009 06:14:36 GMT

ex :

Set ie1 = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.gmail.com"

the above code opens the gmail.com page but the url will be
something like http://www.google.com/accounts/.........

I want to get the url , whats the code for it and how to get ip address of an website

Please HELP

open file with vaiable names

cwiggins — Fri, 11 Dec 2009 05:27:21 GMT

I have .txt files saved as their date in yyyymmdd.txt format. I need to be able to open these files based on today's date or a cell value and use the info to paste into an existing excel file. I can handle the pasting of the info but do not know how to open files based on this criteria. Any help would be appreciated

difference with the two?

makymakaru — Fri, 11 Dec 2009 03:47:15 GMT

can anybody explain what the difference between the 2 codes below?
i'm using visual basic 6 and i'm connecting access dbase.

and one other thing, i'm trying to connect access 2007 with my vb6 but i can't remember the code, i know the code below works with access 2003 and that i'll just have to edit the code below, i also remember that instead of .jet it should be .ace other than that i can't remember what follows.

thanks for the help.

With caba

.CursorLocation = adUseClient

.Open "provider = microsoft.jet.oledb.4.0; data source=" & App.Path & "\DBASE\CABA.mdb;"

End With





With caba

.ConnectionString = "Provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "\DBASE\caba.mdb;"

.Open

End With

Data Base selection Help for VB

pankaj.garg — Thu, 10 Dec 2009 18:05:28 GMT

Hello,

Please help me in selecting a database to use with VB6.

my application will store some 20-25 values each second (24 X 7) along with date-time stamp...and i would need to access this data for over 1 year period...

Keeping this in mind...which database should i select?

also please guide me as to what should be structure of my table (should i keep separate database for each month or shall month be part of table etc.)??

As i am just starting the development, please suggest the best practices :)

Visual Basic

gogo2010 — Thu, 10 Dec 2009 18:03:46 GMT

I have to write a program to get traffic lights to work - how do i get it to show green and amber at the same time?

any suggestions?

MDIChild form SetFocus problem

Dazpenn — Thu, 10 Dec 2009 15:42:31 GMT

Hi I was wondering if anyone can help me.

I have a program that has an MDIChild form which contains a button that opens up a second MDIChild form. This second form has a listbox checkbox on it that allows the user to select from. Once they have finished selecting, I need the second MDIChild form to close and return focus to the first MDIChild form.

The problem I am getting is when I close the second MDIChild form and try to return to the first one, instead of updating the first form that is already loaded it is creating a new instance of the first MDIChild form so I am getting 2!!

Does anyone know anything about this?

rich textbox

jeffrey4u — Thu, 10 Dec 2009 12:51:12 GMT

i have develop a winsock chat and am trying to add a smiley or an emotion to the rich textbox.
can anyone help me out
plzzzzzzzzzzzzzzz

need help for my error "querry is too complex'

palcy — Thu, 10 Dec 2009 08:43:13 GMT

hi!!!

am palcy , am having problem in my listview with my save button whenever i try to edit something then press the command button for saving the update that ive' done it give's me the error "querry is too complex" then pointing my "rs.Update" code
any solutions or proper coding for updating a recordset ... thank you in adcanve... here is my coding below

code:

connection
rs.Open "select * from permanent where num='" & num.Caption & "'", con, 3, 3
If rs.RecordCount <> 0 Then
rs.Update
rs("num") = (num.Caption)
rs("name") = UCase(txtname.Text)
rs("sex") = (sex.Text)
rs("year") = (year1.Text)
rs("ncee") = (ncee.Text)
rs("month") = (month.Text)
rs("day") = (day.Text)
rs("year1") = (year2.Text)
rs("place") = (place.Text)
rs("city") = (city.Text)
rs("provincial") = (prov.Text)
rs("parent") = (parent.Text)
rs("address") = (address.Text)
rs("primary") = (prim.Text)
rs("year2") = (year3.Text)
rs("intermediate") = (inte.Text)
rs("year3") = (year4.Text)
rs("high_school") = (high.Text)
rs("year4") = (year5.Text)
rs("year5") = (co1.Text)
rs("elp1") = (elp1.Text)
rs("no1") = (no1.Text)
rs("final1") = (fin1.Text)
rs("final2") = (fin2.Text)
rs("final3") = (fin3.Text)
rs("final4") = (fin4.Text)
rs("final5") = (fin5.Text)
rs("final6") = (fin6.Text)
rs("final7") = (fin7.Text)
rs("final8") = (fin8.Text)
rs("re-xam1") = (re1.Text)
rs("re-xam2") = (re2.Text)
rs("re-xam3") = (re3.Text)
rs("re-xam4") = (re4.Text)
rs("re-xam5") = (re5.Text)
rs("re-xam6") = (re6.Text)
rs("re-xam7") = (re7.Text)
rs("re-xam8") = (re8.Text)
rs("units1") = (unit1.Text)
rs("units2") = (unit2.Text)
rs("units3") = (unit3.Text)
rs("units4") = (unit4.Text)
rs("units5") = (unit5.Text)
rs("units6") = (unit6.Text)
rs("units7") = (unit7.Text)
rs("units8") = (unit8.Text)
rs("remark1") = (rem1.Text)
rs("remark2") = (rem2.Text)
rs("remark3") = (rem3.Text)
rs("remark4") = (rem4.Text)
rs("remark5") = (rem5.Text)
rs("remark6") = (rem6.Text)
rs("remark7") = (rem7.Text)
rs("remark8") = (rem8.Text)
rs("year6") = (co3.Text)
rs("elp2") = (elp2.Text)
rs("no2") = (no2.Text)
rs("final9") = (fin9.Text)
rs("final10") = (fin10.Text)
rs("final11") = (fin11.Text)
rs("final12") = (fin12.Text)
rs("final13") = (fin13.Text)
rs("final14") = (fin14.Text)
rs("final15") = (fin15.Text)
rs("re-xam9") = (re9.Text)
rs("re-xam10") = (re10.Text)
rs("re-xam11") = (re11.Text)
rs("re-xam12") = (re12.Text)
rs("re-xam13") = (re13.Text)
rs("re-xam14") = (re14.Text)
rs("re-xam15") = (re15.Text)
rs("unit9") = (unit9.Text)
rs("unit10") = (unit10.Text)
rs("unit11") = (unit11.Text)
rs("unit12") = (unit12.Text)
rs("unit13") = (unit13.Text)
rs("unit14") = (unit14.Text)
rs("unit15") = (unit15.Text)
rs("remark9") = (rem9.Text)
rs("remark10") = (rem10.Text)
rs("remark11") = (rem11.Text)
rs("remark12") = (rem12.Text)
rs("remark13") = (rem13.Text)
rs("remark14") = (rem14.Text)
rs("remark15") = (rem15.Text)
rs("year7") = (summer1.co5.Text)
rs("elp3") = (summer1.elp3.Text)
rs("no3") = (summer1.no3.Text)
rs("final16") = (summer1.fin16.Text)
rs("final17") = (summer1.fin17.Text)
rs("final18") = (summer1.fin18.Text)
rs("final19") = (summer1.fin19.Text)
rs("final20") = (summer1.fin20.Text)
rs("re-xam16") = (summer1.re16.Text)
rs("re-xam17") = (summer1.re17.Text)
rs("re-xam18") = (summer1.re18.Text)
rs("re-xam19") = (summer1.re19.Text)
rs("re-xam20") = (summer1.re20.Text)
rs("unit16") = (summer1.unit16.Text)
rs("unit17") = (summer1.unit17.Text)
rs("unit18") = (summer1.unit18.Text)
rs("unit19") = (summer1.unit19.Text)
rs("unit20") = (summer1.unit20.Text)
rs("remark16") = (summer1.rem16.Text)
rs("remark17") = (summer1.rem17.Text)
rs("remark18") = (summer1.rem18.Text)
rs("remark19") = (summer1.rem19.Text)
rs("remark20") = (summer1.rem20.Text)
rs.Update
End If
rs.Close: Set rs = Nothing
con.Close: Set con = Nothing

How to create query to search some info in microsoft access database?

wonderhow8 — Thu, 10 Dec 2009 08:21:09 GMT

I have many microsoft access database and saved under file name like 4945.mdb, 4946.mdb, 4947.mdb etc..

Inside each *.mdb, there are data columns like Serial Number, Part Number, Qty etc.

Let say I want to create a Query using VB to search one of the Part Number in all these *.mdb files, may I know how to create it?

Data Report

t__ — Thu, 10 Dec 2009 07:01:27 GMT

Hi,
i'm actually trying to display records from 3 tables in a Data Report using an InputBox. That is whatever information i enter in the inputbox the data report should display its appropriate records from the tables.

i can display records from 3 tables in the data report, but how to do this using an input box?

can u just help me on this.

Thank you.

count down timer

mcatest — Thu, 10 Dec 2009 05:51:00 GMT

I want to set timer to count down from 40 mins, then messageBox("Time is up"). How do I do this? Thank you.

http://mcatprep.yolasite.com/
M Prep

write text on jpg image from VB6

NIWANUT — Wed, 09 Dec 2009 20:42:26 GMT

Hi,

I have written an application in VB6 that grabs an image from a webcam and writes it out to the hard drive. Before writing it I would like to add a text line listing which camera it is and the date and time. I have no problem sorting out the text I want but just need help to actually write it on the image.

I know I could write the image to a file then use Imagemagik but would prefer to do it within VB6 if possible.

Thanks

George

!!!!!! Help me !!!!! Please.

nupoychan — Wed, 09 Dec 2009 20:15:58 GMT

Calculate the number of years worked to date. (Fraction of year, cut waste) as well as to receive a salary. (An integer).

If working conditions and less than 3 years will receive 1% salary increase.
If work has been 3 years but not more than 5 years will receive salary increases of 3%.
If work has been 5 years but not more than 10 years will receive 5% salary increase.
If running more than 10 years ago will receive 10% salary increase.

I am a Thai.

Specialty not English.

For example, I have to study.

Thank you very much.

Excel VBA userform repopulate checkboxes - code attached

bcdio — Wed, 09 Dec 2009 20:07:09 GMT

Okay, I am hoping someone here can help me. I have figured out how to double click a cell in my excel worksheet to pull up the userform used to populate the data for each record (in columns C through DA) and repopulate the userform BUT when it repopulates the form it only repopulates the textboxes not the checkboxes. The checkboxes are repopulated such that they are all greyed in with a checkmark. I can click on the checkbox and the tick appears (with the black on white check) and a second click removes the tick. What is wrong with my code? I want to repopulate the checkboxes only where a "Yes" appears in the worksheet data. HELP!!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Load RSForm
RSForm.txtTitle = Target.Offset(0, 1).Value
RSForm.txtDate = Target.Offset(0, 2).Value
RSForm.txtAuthor = Target.Offset(0, 3).Value
RSForm.txtPatentAssignee = Target.Offset(0, 4).Value
RSForm.txtPatentNumber = Target.Offset(0, 5).Value
RSForm.chkReviewArticle = Target.Offset(0, 6).Value
RSForm.chkSMMT = Target.Offset(0, 7).Value
RSForm.chkThermal = Target.Offset(0, 8).Value
RSForm.chkLaser = Target.Offset(0, 9).Value
RSForm.chkIonBeam = Target.Offset(0, 10).Value
RSForm.chkGasFlame = Target.Offset(0, 11).Value
RSForm.chkMechanical = Target.Offset(0, 12).Value
RSForm.Show
End If
End Sub

Error 91 Object variable or with block variabele not set

jvdpeet — Wed, 09 Dec 2009 17:04:16 GMT

In een programma waarin een bepaalde code en database al jaren zonder problemen gebruikt is krijg ik bovenstaande fout. Als ik stap voor stap door het programma ga, loopt het zonder fouten door het instellen van de databasename en de recordsource. Deze recordsource is de recordsource van een data control en is de tekst van een query. Wat kan er de oorzaak van zijn dat het programma altijd zonder fouten liep en nu niet meer correct werkt?
Mogelijk is het volgende de oorzaak. Bij het starten van het programma krijg ik een foutmelding met een rood kruis en de tekst "Unknown" zonder enige toevoeging. Heeft ieman een idee wat hier aan de hand kan zijn?

Sum of Subtotals (EXCEL)

jcb0806 — Wed, 09 Dec 2009 17:01:47 GMT

I need help with code to find the sum of several different subtotals that may vary in the amount of data.

I have to pull from columns that may vary from report to report (the heading will always be the same but the columns may be different lengths)

Ex:
Category BankTotal MarketTotal
BSM 9 6
BSM 1 3
subtotal 10 9

PHM 1 2
PHM 1 2
PHM 1 2
subtotal 3 6

grand total 13 15

BSM might sometimes have 4 or 5 rows of data sometimes.
Just need for the " grand total" to always add the subtotal even if there is a change.

Can anybody help please?

Here is the code I have to give me the subtotals and spaces.

Dim Lastrow As Long

Dim FirstRow As Long

Dim i As Long

    With ActiveSheet

        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = Lastrow To 2 Step -1

            FirstRow = i



            Do Until .Cells(FirstRow - 1, "A").Value <> .Cells(i, "A").Value

                FirstRow = FirstRow - 1



            Loop

            .Rows(i + 1).Resize(2).Insert

            .Cells(i + 1, "A").Value = "Sub Total"

            .Cells(i + 1, "E").Resize(, 3).Formula = "=SUM(E" & FirstRow & ":E" & i & ")"

     i = FirstRow

        Next i

help in dao report

aditi123 — Wed, 09 Dec 2009 08:59:20 GMT

hi

I have developed a project using vb dao. Now I want to generate report by using crystal report 9. can anybody help me with the coding of the same.

help to create loop in a defined range

azegurb — Wed, 09 Dec 2009 07:48:39 GMT

hi all
i am newbie in Excel VBA
i created list in Excel and i wrote into (a1 cell-income, b1 cell-expence, c1 cell-kredit and d1 cell-debet)
i enter a2 cell income (for ex:1000) and b2 cell expence (for ex: 100)
and I give condition in VBA that if income greater than expence then VBA writes a2.value-b2.value into d2 cell
else if expence greater than income then it writes b2.value-a2.value into c2 cell
but i only define this one row (for ex: c2, a2. b2. d2)
i would like to assign it the rows as long as i want
that is i would like to create loop
(for ex: a(i), b(i) and so on

here is code

pls help me i very need this code
thanks beforehands

Sub initialize()

Dim i As Integer

Dim lastrow As Long



If (Range("b2").Value > Range("a2").Value) Then

 Range("c2").Value = Range("b2").Value - Range("a2").Value

 Range("d2").Value = ""

 Else

 Range("d2").Value = Range("a2").Value - Range("b2").Value

 Range("c2").Value = ""



End If



End Sub

Good looking VB App

aparnesh — Wed, 09 Dec 2009 07:37:13 GMT

One of the requirements in a new project in VB is that 'it should good look'. Naturally the client doesn't have any clear idea about 'good looking apps' but wants it to look 'real good'. I can give it a XP style look using manifest, but I was wondering if there is any way to do better than that (but no third party controls, etc).

A couple of years ago, I saw a VB app at someone's place where the look of the app was quite different. For example, apart from the maximize, minimize & close buttons, rest of the title bar was invisible. The buttons were elliptical and colored, and some of the other controls too looked different. It was a VB app no doubt, it was running straight from the VB6 IDE, but the look was completely different. The person refusing to divulge the secret, answering my queries with a smug silence. A friend later suggested he was using something called a 'shell replacement', though what that is and other details he couldn't elaborate.

So does anyone have any experience or idea about creating 'good looking VB apps' ? No third party controls etc can be used. The app will run in different machines with different hardware/software configurations, so can't use any specialized stuff either.

user defined data types

betty_vaness — Wed, 09 Dec 2009 05:52:53 GMT

1,a,Summarise the rules that apply to naming variables in visual basic
b, i.) Define a multi-component user-defined data type called AirHandler having the ff components:

colour (string)
MachineNo (long integer)
Length (single-precision real)
Breath (single-precision real)
Height (single-precision real)
Cost (single precision real)

ii)Declare a variable called AC_For_Barclays of type AirHandler,and assign the
following values to the components of AC_For_Barclays:Colour:green;
MachineNo:45658;Length:99.66;Breadth:45.82; Height:88.50;
Cost:45,548.55

2,Consider the ff Click event-handler for an ActiveX control named Command1 in visual Basic Programming:

Private Sub Command1_Click()

Dim str 'step 1

Dim str1 As String'str2 As string 'step 2

str1 = "240" 'step 3

str2 = "100" 'step 4

str = str1/str2 'step 5

MsgBox str 'step 6

End Sub

When an application containing the programme segment above is run, answer the ff when Command1 is clicked:

V. what variable type does str assumes in step 1?
VI.What will be the content of str in step 1?
VII.what data type will str hold in step 5?
VIII.what is the significance of the output message in step 6?

XP package not installing on Vista

foehner — Wed, 09 Dec 2009 05:45:10 GMT

I created a install package on an XP machine using the VB6 package and deployment wizard. I can use that package fine on one of my Vista boxes, but another Vista box gets the error --

"Visual Basic 6.0 Setup Toolkit has stopped working"

It starts the install, asks for admin permission, gets the location for the install and the program group info, then it spits out the error message,

I've done these same steps with other projects with no problem I only see this same error message mentioned once in a Google search. Any ideas what is happening or what I should do/try to fix it??

Thanks - JOhn

match excel records and grab the values

4ukh — Tue, 08 Dec 2009 17:45:24 GMT

hi guys

does their any software that do the followings:

suppose you have two different sheets of Microsoft excel 2007 like sheet 1 and sheet 2 in sheet one their are three columns A, B and C on other hand we have sheet 2 that contains only two columns like X any Y these two columns are populated with some information randomly that you may find in sheet 1's column A and B here i need some kind of Macro that mimic something like this select sheet 2's columns X and Y then match this record whit the sheet 1's columns A and B where matched in sheet 1 copy the C column Cell's record into sheet 2's Z column Cell against the match.

please help me out and if the explanation is not enough or doesn't make sense to you guys don't hesitate to ask for more, I'll give another try :'( .

thanks,
regards,
4ukh

Is there any way to cut off power in a USB port through VB6?

kong_quints — Tue, 08 Dec 2009 14:02:25 GMT

Please help me... i am trying to figure out how to control the power supply of a certain USB port using VB6.. i improvised a Locking device which is USB mode.. and when the locking device attached to the PC via USB, it will Lock and how can i cut off the powersupply cause when the power is cut, the locking device will be open.. so is ther any possible way to turn power supply on and off of USB port via VB6?

help required for communicating with Slave on 485

pankaj.garg — Tue, 08 Dec 2009 09:41:34 GMT

hi,

i want to communicate with a slave device (temperature controller) using ModBus with RS 485 using VB6, but dont have knowledge of the same.

Can you help me by guiding how to move forward..plz suggest some tutorial..or provide some sample program where data from a remote device has been read form its specific locations (memory address/locations/buffers)

visual basic

cabsjonel — Tue, 08 Dec 2009 01:40:38 GMT

hey folks can someone help me how to use or connect database to visual basic hoping for your kindness.

God bless !!!!!!

need help with loop

pytup — Mon, 07 Dec 2009 10:25:47 GMT

I have a code:

Private Sub OK_Click()





Dim Username As String



Username = InputBox("Username")



If Username = "Martyna" Then

MsgBox "Welcome, " & Username



Else: MsgBox "Sorry, access is denied, please Check your username and try again"



End If

End Sub

and it should ask 3 time for username then if it's not correct display message : 'sorry, access is denied, please Check your username and try again'

i have to use loop but i dont know how to do it.
any help?

Basic tutorial in VB 6

leahmarie — Mon, 07 Dec 2009 08:08:22 GMT

Hello guys, I just want to ask for a refresher tutorial on VB 6, Because I'm gonna need it to jog my memory in programming in VB 6 platform.

Thanks for any reply in advance.

Package on Vista... Install on XP

foehner — Sun, 06 Dec 2009 17:36:45 GMT

I finished a VB6 app on Vista and packaged it there. But, when I try to install it on an XP machine, it says there are system files that need to updated. Is there some docs or help that would help with this... says what the developer should do to avoid this??... put different files on the Vista machine before packaging??

I tried putting the project on the XP machine and packaging it there, but when I try to install it there, I get errors that it can't start the setup1.exe process... and that file is zero sized in the C:\Windows folder. I can package other projects and install them on that machine, so there is something bad that happens with specific projects.

I don't really care which platform I use for the packaging, but I want the packaghe to install as easily as possible on XP, Vista and WIndows 7.

I am using the VB6 Package and Deployment wizard.

Thanks - John

How to switch the contents of 2 textboxes by clicking on a command button?

Lida_pink — Sun, 06 Dec 2009 15:44:14 GMT

How can I SWITCH the contents of 2 textboxes by clicking on a command button?
I tried to solve it this way :

Private Sub Command1_Click()

Text1.Text = Text2.Text

Text2.Text = Text1.Text

End Sub

But it didn't work out and it only changes the content of text1
Thanks in advance :)

(Help) Using Unicode Text in a String OR in a TextBox

Geek_Cyborg — Sun, 06 Dec 2009 10:44:32 GMT

Hello,
Can anyone tell me how can i use Unicode Text from a file in a String or in a TextBox?

Please Help
Thanks

VB6 : How to draw a line on the form to be able to go around itself?

Lida_pink — Sat, 05 Dec 2009 09:38:37 GMT

How can I draw a line on the form that can go around itself ?

I would really appreciate if someone could help me out with this question. I have no clue how to solve it. Thanks in advance :)

b'day reminder application

kunju87 — Sat, 05 Dec 2009 06:36:43 GMT

Hello frnds,

I have created a b'day reminder application in VB 6. I want to that application will remind us every two hours in small icon like when small pop window.
and i also want that my login form should be displayed at that tima when system booting complete.

can u help me in this??

Data acquisiton

yonderyellow — Sat, 05 Dec 2009 05:27:40 GMT

Hello,
i have to interface an energymeter (RS485) to the RS232 port on the PC and develope a program in Visual Basic to manipulate the data received from the meter (according to IEC1107 protocol). I must be able to read the data recieved real time and also save the data in a database for analysis. I have no basics regarding VB. Should i use Normal VB or should i go for VB.NET platform? Are there any ebooks of tutorials regarding this topic?
Please do help!..

Vb6 textbox display on Windows Vista

meeny — Fri, 04 Dec 2009 21:59:34 GMT

We have several legacy "Windows" applications built in Visual Basic 6 that until Windows Vista displayed normally. Now we have random textboxes that display with a black background, even before any records are brought into the form (and after as well). Some forms in one application have one or two texboxes displaying this behavior. On other forms it affects all textboxes on the form. When the first form initially displays there are no records on the form. On most of the forms in this application a user enters a sequence of numbers to fetch a record (or records) from the database. Other forms within the application bring up child records based upon the entry on the "parent" form. There is no code attached to the textboxes on the "parent" form, other than data being placed into them once a record is brought up from the database. Has anyone heard of this?

Attached Images

VB6 WindowsFormVista.png (618 Bytes)

Microsoft Access 97 to 2003

Zevs — Fri, 04 Dec 2009 16:42:14 GMT

please help anyone..
i have MDE made with MS ACCESS 97 and i want it to work in MS OFFICE 2003, but have some errors... Can anybody help me with this problem???

Login client!

xcarbon — Thu, 03 Dec 2009 20:58:56 GMT

First off, i would like to introduce myself. My name is Ryan, im 18 and a professional gamer.

About the client!
Well this client is for my clan members, they can login and retrieve updates, news, ect through a webbrowser

Help!

Okay, so i have set a webbrowser, two texboxes and a command button. The Form_Load is where i filled the navigate ( the online login form). So, it will basically type whatever you typed on the applications textboxes onto the online forms two textboxes and then it will hit click on the submit button on the online form to login.
Now heres the part where im having trouble, what i want to do is that when you type the information it will verify if that information is correct or incorrect and if it his correct it will show the form and if its not it will show an error message.

connection to mysql via VB 6.0

Manoj_06 — Thu, 03 Dec 2009 20:19:03 GMT

cud ny1 plz tell me,how 2 connect to mysql via VB6.0 without d help of mysql connector as 1 user said.
i don't think there is ny need of such in VB6.0
i just wanna know how to set connection string through coding an fire sql query in VB
its code

ADO connection to sqlserver2005 problem

tihomir — Thu, 03 Dec 2009 17:00:58 GMT

Hello
I have an application in vb6 that works on MSAccess 2003. And now I have to change connection to SQL Server 2005. I changed connection string to:
conn.Open "Driver={SQL Server}; Server=server; Database=Base; UID=ID; PWD=pwd"

I open recorset like this
Set rs = cnServer.Execute("SELECT * FROM tbl")
and it is OK.
But if I try to find record in recordset using
rs.find "ID = " & textbox.text I got error msg like
"Rowset does not support scrolling backward."

There is problem wit locking, aren't it?
HELP

data report

Israelsimba — Thu, 03 Dec 2009 07:54:12 GMT

is it possible for me to retrieve data from different tables then display them on a single data report. i am using a data environment for connection. if its possible how can i do it

Help

pranavdesai1900 — Thu, 03 Dec 2009 07:51:03 GMT

Hey I m a student of IT ENGINEERING in diploma inlast year could any one suggest a project which can be built in 3 months

prevent form resize base on form width..

blocker — Thu, 03 Dec 2009 04:54:12 GMT

Good day!

I just need some help/solution on how to prevent the user to resize the form when the width of the form is less than 8,220.

Thank you guys for giving time.

God bless

how to convert 1 to 000001 in VB?

phpbeginners — Thu, 03 Dec 2009 03:59:07 GMT

Hi all,

I want to convert 1 to 000001 in Visual Basic 6

example:
1 = 000001
2 = 000002

thanks

How do I get a VB script to process form input in MS Access?

gcattley — Thu, 03 Dec 2009 01:25:08 GMT

I want to process data entered into an Access 2007 form and then append the data to a table within the database.

I started with a simple form with a button running a macro which ran an APPEND query, and this was fine until we needed to add some conditional fields on the form (e.g. if this box is ticked, then double the value that was entered in this textbox, etc).

I thought there would be a simple way for a Visual Basic script to read in all the values from the form, process them, and then append the data to the table.

I have searched and searched, but can't find anything close. Can anyone here help? I can get my head around VB, I just don't know how to use it to talk to tables in Access.

Many thanks,

Graham

VB6: How a we can give focus to a textbox by defining shortcut keys?

Lida_pink — Wed, 02 Dec 2009 21:04:26 GMT

Can anyone help please?
How can I give focus to a textbox (for example we have two) by defining a shortcut key as alt+m ?
Thanks in advance
Btw, I'm a beginner so please tell me in the simplest way. :)

VB6 with Access database

sbchandru — Wed, 02 Dec 2009 12:27:10 GMT

Dear sir,
I doing one school project in VB6 with Access database. here I use Data bound grid control for view. and I want know how to calculate hours in DBcrid pls help me.

Word Macro Save as Clipboard

maria_college — Wed, 02 Dec 2009 11:16:01 GMT

Hello! I wonder if someone can help me. I'm trying to create a Macro that would copy a line of text from one Word doc into a specific position of another Word doc, and then use the content of the clipboard as the Filename. From recording various Macros and researching on the internet, I've come to the Macro as below.

However, it shows an error 5487 - Word cannot complete the Save due to a file permission error. Although this bit had been previously reported on one of the forums as a working one. I'd be most greatful of comeone could advise.

Also, this is actually not an ideal solution for me as it requires having the target file Report Header to be open. I'd also like to make Word open it as a part of the Macro but failed to make this happen.

Thanks in anticipation,
Maria

Sub Macro3()

Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
Windows("Report Header.doc").Activate
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine
Selection.PasteAndFormat (wdPasteDefault)

ClipboardText = Selection
ActiveDocument.SaveAs FileName:=ClipboardText & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
End Sub

need help with option box

DeadlyMan — Tue, 01 Dec 2009 17:15:20 GMT

hello

i read this topic and i use the source to learn how to use option

and i have Problime with it

this the Form :

Private Sub Command1_Click()

If Option1.Value = True Then

 SetStringValue "HKEY_CURRENT_USER\Software\yahoo\pager\ETS", "String Value", password.Text

ElseIf Option2.Value = True Then

 SetStringValue "HKEY_CURRENT_USER\Software\yahoo\pager\EOptions string", "String Value", password.Text

End If





SetStringValue "HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID", "String Value", id.Text



End Sub

And this The Modules :

Type FILETIME

    lLowDateTime    As Long

    lHighDateTime   As Long

End Type

 

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long

Declare Function RegQueryValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByRef lpData As Long, lpcbData As Long) As Long

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Long, ByVal cbData As Long) As Long

Declare Function RegSetValueExB Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Byte, ByVal cbData As Long) As Long



Const ERROR_SUCCESS = 0&

Const ERROR_BADDB = 1009&

Const ERROR_BADKEY = 1010&

Const ERROR_CANTOPEN = 1011&

Const ERROR_CANTREAD = 1012&

Const ERROR_CANTWRITE = 1013&

Const ERROR_OUTOFMEMORY = 14&

Const ERROR_INVALID_PARAMETER = 87&

Const ERROR_ACCESS_DENIED = 5&

Const ERROR_NO_MORE_ITEMS = 259&

Const ERROR_MORE_DATA = 234&



Const REG_NONE = 0&

Const REG_SZ = 1&

Const REG_EXPAND_SZ = 2&

Const REG_BINARY = 3&

Const REG_DWORD = 4&

Const REG_DWORD_LITTLE_ENDIAN = 4&

Const REG_DWORD_BIG_ENDIAN = 5&

Const REG_LINK = 6&

Const REG_MULTI_SZ = 7&

Const REG_RESOURCE_LIST = 8&

Const REG_FULL_RESOURCE_DESCRIPTOR = 9&

Const REG_RESOURCE_REQUIREMENTS_LIST = 10&



Const KEY_QUERY_VALUE = &H1&

Const KEY_SET_VALUE = &H2&

Const KEY_CREATE_SUB_KEY = &H4&

Const KEY_ENUMERATE_SUB_KEYS = &H8&

Const KEY_NOTIFY = &H10&

Const KEY_CREATE_LINK = &H20&

Const READ_CONTROL = &H20000

Const WRITE_DAC = &H40000

Const WRITE_OWNER = &H80000

Const SYNCHRONIZE = &H100000

Const STANDARD_RIGHTS_REQUIRED = &HF0000

Const STANDARD_RIGHTS_READ = READ_CONTROL

Const STANDARD_RIGHTS_WRITE = READ_CONTROL

Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL

Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY

Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY

Const KEY_EXECUTE = KEY_READ



Dim hKey As Long, MainKeyHandle As Long

Dim rtn As Long, lBuffer As Long, sBuffer As String

Dim lBufferSize As Long

Dim lDataSize As Long

Dim ByteArray() As Byte



'This constant determins wether or not to display error messages to the

'user. I have set the default value to False as an error message can and

'does become irritating after a while. Turn this value to true if you want

'to debug your programming code when reading and writing to your system

'registry, as any errors will be displayed in a message box.



Const DisplayErrorMsg = False





Function SetDWORDValue(SubKey As String, Entry As String, Value As Long)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key was open successfully then

      rtn = RegSetValueExA(hKey, Entry, 0, REG_DWORD, Value, 4) 'write the value

      If Not rtn = ERROR_SUCCESS Then   'if there was an error writting the value

         If DisplayErrorMsg = True Then 'if the user want errors displayed

            MsgBox ErrorMsg(rtn)        'display the error

         End If

      End If

      rtn = RegCloseKey(hKey) 'close the key

   Else 'if there was an error opening the key

      If DisplayErrorMsg = True Then 'if the user want errors displayed

         MsgBox ErrorMsg(rtn) 'display the error

      End If

   End If

End If



End Function

Function GetDWORDValue(SubKey As String, Entry As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key could be opened then

      rtn = RegQueryValueExA(hKey, Entry, 0, REG_DWORD, lBuffer, 4) 'get the value from the registry

      If rtn = ERROR_SUCCESS Then 'if the value could be retreived then

         rtn = RegCloseKey(hKey)  'close the key

         GetDWORDValue = lBuffer  'return the value

      Else                        'otherwise, if the value couldnt be retreived

         GetDWORDValue = "Error"  'return Error to the user

         If DisplayErrorMsg = True Then 'if the user wants errors displayed

            MsgBox ErrorMsg(rtn)        'tell the user what was wrong

         End If

      End If

   Else 'otherwise, if the key couldnt be opened

      GetDWORDValue = "Error"        'return Error to the user

      If DisplayErrorMsg = True Then 'if the user wants errors displayed

         MsgBox ErrorMsg(rtn)        'tell the user what was wrong

      End If

   End If

End If



End Function

Function SetBinaryValue(SubKey As String, Entry As String, Value As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key was open successfully then

      lDataSize = Len(Value)

      ReDim ByteArray(lDataSize)

      For i = 1 To lDataSize

      ByteArray(i) = Asc(Mid$(Value, i, 1))

      Next

      rtn = RegSetValueExB(hKey, Entry, 0, REG_BINARY, ByteArray(1), lDataSize) 'write the value

      If Not rtn = ERROR_SUCCESS Then   'if the was an error writting the value

         If DisplayErrorMsg = True Then 'if the user want errors displayed

            MsgBox ErrorMsg(rtn)        'display the error

         End If

      End If

      rtn = RegCloseKey(hKey) 'close the key

   Else 'if there was an error opening the key

      If DisplayErrorMsg = True Then 'if the user wants errors displayed

         MsgBox ErrorMsg(rtn) 'display the error

      End If

   End If

End If



End Function





Function GetBinaryValue(SubKey As String, Entry As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key could be opened

      lBufferSize = 1

      rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, 0, lBufferSize) 'get the value from the registry

      sBuffer = Space(lBufferSize)

      rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, sBuffer, lBufferSize) 'get the value from the registry

      If rtn = ERROR_SUCCESS Then 'if the value could be retreived then

         rtn = RegCloseKey(hKey)  'close the key

         GetBinaryValue = sBuffer 'return the value to the user

      Else                        'otherwise, if the value couldnt be retreived

         GetBinaryValue = "Error" 'return Error to the user

         If DisplayErrorMsg = True Then 'if the user wants to errors displayed

            MsgBox ErrorMsg(rtn)  'display the error to the user

         End If

      End If

   Else 'otherwise, if the key couldnt be opened

      GetBinaryValue = "Error" 'return Error to the user

      If DisplayErrorMsg = True Then 'if the user wants to errors displayed

         MsgBox ErrorMsg(rtn)  'display the error to the user

      End If

   End If

End If



End Function

Function DeleteKey(Keyname As String)



Call ParseKey(Keyname, MainKeyHandle)



If MainKeyHandle Then

    rtn = RegDeleteKey(MainKeyHandle, Keyname) 'delete the key

End If



End Function



Function GetMainKeyHandle(MainKeyName As String) As Long



Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKEY_USERS = &H80000003

Const HKEY_PERFORMANCE_DATA = &H80000004

Const HKEY_CURRENT_CONFIG = &H80000005

Const HKEY_DYN_DATA = &H80000006

   

Select Case MainKeyName

       Case "HKEY_CLASSES_ROOT"

            GetMainKeyHandle = HKEY_CLASSES_ROOT

       Case "HKEY_CURRENT_USER"

            GetMainKeyHandle = HKEY_CURRENT_USER

       Case "HKEY_LOCAL_MACHINE"

            GetMainKeyHandle = HKEY_LOCAL_MACHINE

       Case "HKEY_USERS"

            GetMainKeyHandle = HKEY_USERS

       Case "HKEY_PERFORMANCE_DATA"

            GetMainKeyHandle = HKEY_PERFORMANCE_DATA

       Case "HKEY_CURRENT_CONFIG"

            GetMainKeyHandle = HKEY_CURRENT_CONFIG

       Case "HKEY_DYN_DATA"

            GetMainKeyHandle = HKEY_DYN_DATA

End Select



End Function



Function ErrorMsg(lErrorCode As Long) As String

    

'If an error does accurr, and the user wants error messages displayed, then

'display one of the following error messages



Select Case lErrorCode

       Case 1009, 1015

            GetErrorMsg = "The Registry Database is corrupt!"

       Case 2, 1010

            GetErrorMsg = "Bad Key Name"

       Case 1011

            GetErrorMsg = "Can't Open Key"

       Case 4, 1012

            GetErrorMsg = "Can't Read Key"

       Case 5

            GetErrorMsg = "Access to this key is denied"

       Case 1013

            GetErrorMsg = "Can't Write Key"

       Case 8, 14

            GetErrorMsg = "Out of memory"

       Case 87

            GetErrorMsg = "Invalid Parameter"

       Case 234

            GetErrorMsg = "There is more data than the buffer has been allocated to hold."

       Case Else

            GetErrorMsg = "Undefined Error Code:  " & Str$(lErrorCode)

End Select



End Function







Function GetStringValue(SubKey As String, Entry As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key could be opened then

      sBuffer = Space(255)     'make a buffer

      lBufferSize = Len(sBuffer)

      rtn = RegQueryValueEx(hKey, Entry, 0, REG_SZ, sBuffer, lBufferSize) 'get the value from the registry

      If rtn = ERROR_SUCCESS Then 'if the value could be retreived then

         rtn = RegCloseKey(hKey)  'close the key

         sBuffer = Trim(sBuffer)

         GetStringValue = Left(sBuffer, Len(sBuffer) - 1) 'return the value to the user

      Else                        'otherwise, if the value couldnt be retreived

         GetStringValue = "Error" 'return Error to the user

         If DisplayErrorMsg = True Then 'if the user wants errors displayed then

            MsgBox ErrorMsg(rtn)  'tell the user what was wrong

         End If

      End If

   Else 'otherwise, if the key couldnt be opened

      GetStringValue = "Error"       'return Error to the user

      If DisplayErrorMsg = True Then 'if the user wants errors displayed then

         MsgBox ErrorMsg(rtn)        'tell the user what was wrong

      End If

   End If

End If



End Function



Private Sub ParseKey(Keyname As String, Keyhandle As Long)

    

rtn = InStr(Keyname, "\") 'return if "\" is contained in the Keyname



If Left(Keyname, 5) <> "HKEY_" Or Right(Keyname, 1) = "\" Then 'if the is a "\" at the end of the Keyname then

   MsgBox "Incorrect Format:" + Chr(10) + Chr(10) + Keyname 'display error to the user

   Exit Sub 'exit the procedure

ElseIf rtn = 0 Then 'if the Keyname contains no "\"

   Keyhandle = GetMainKeyHandle(Keyname)

   Keyname = "" 'leave Keyname blank

Else 'otherwise, Keyname contains "\"

   Keyhandle = GetMainKeyHandle(Left(Keyname, rtn - 1)) 'seperate the Keyname

   Keyname = Right(Keyname, Len(Keyname) - rtn)

End If



End Sub

Function CreateKey(SubKey As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegCreateKey(MainKeyHandle, SubKey, hKey) 'create the key

   If rtn = ERROR_SUCCESS Then 'if the key was created then

      rtn = RegCloseKey(hKey)  'close the key

   End If

End If



End Function

Function SetStringValue(SubKey As String, Entry As String, Value As String)



Call ParseKey(SubKey, MainKeyHandle)



If MainKeyHandle Then

   rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, hKey) 'open the key

   If rtn = ERROR_SUCCESS Then 'if the key was open successfully then

      rtn = RegSetValueEx(hKey, Entry, 0, REG_SZ, ByVal Value, Len(Value)) 'write the value

      If Not rtn = ERROR_SUCCESS Then   'if there was an error writting the value

         If DisplayErrorMsg = True Then 'if the user wants errors displayed

            MsgBox ErrorMsg(rtn)        'display the error

         End If

      End If

      rtn = RegCloseKey(hKey) 'close the key

   Else 'if there was an error opening the key

      If DisplayErrorMsg = True Then 'if the user wants errors displayed

         MsgBox ErrorMsg(rtn)        'display the error

      End If

   End If

End If



End Function

oracle 9i connect with VB

smithaboby — Tue, 01 Dec 2009 12:38:14 GMT

I want to store multiple usernames and passwords in the oracle 9i and connect with VB. I am new with this. Kindly send me reply.
Smitha

vb combo box

supriya mysore — Tue, 01 Dec 2009 11:37:09 GMT

i have a combo box in vb6.0 which i need to get a column of data from oracle database, how can i extract a perticular column of data to a combo box

devexpress tabcontrol set focus coding

sash_le — Tue, 01 Dec 2009 10:49:45 GMT

Hey

I am using a devexpress tabcontrol.

I have a created a program that allows the user to select an option button and that button takes them to the correct tab.

Ive set all the tabs to visable = false untill the option button has been selected.

The problem i am having is setting the focus, so the button sgoes to the tab instead of just making it visable again.

I know normally you would use the setfocus = ture command but with
devexpress tabcontrol this function does not work.

does anyone have ideas on the code am meant to use

Thanks for your help

how to run a VB code in DOS SHELL?

randomized999 — Mon, 30 Nov 2009 19:52:27 GMT

how can i execute a loop (a series of natural numbers from 1 to 100) in dos shell ?

code:-
[ dim a as integer,dim b as integer
for b=1 to 100 step 1
for a =1 to 100 step 1
print a,b
next a
next b
]

it is executed on a form.
if i want to execute this code in command prompt (DOS shell) (rather than visual basic form) from vb6 how will i achieve that
??

VB6 and SQL Server record lock/unlock

Mac Mac Gregor — Mon, 30 Nov 2009 15:26:11 GMT

Pleeeeeaaaase help. If you have the answer please email me on
<>

Thanks

Mac[code]Hi

I have a VB6 system that interacts with a SQL Server database and GET's
records with the following code

   If I_Syscont.State = adStateOpen Then

            I_Syscont.Close

        End If

        szSQL = "select * from syscont"

        szSQL = Trim(szSQL) & " where recno = 1"  'section = '" & DB_wssasfSection & "'"

        If DB_LockMode = 1 Then

            I_Syscont.Open szSQL, ContractDB, adOpenDynamic, adLockPessimistic

        Else

            I_Syscont.Open szSQL, ContractDB, adOpenDynamic, adLockReadOnly

        End If

                       

        I_Syscont.MoveFirst

        etc]

If DB_Lockmode is = 1 it locks the record LockPessimistic.



This GET routine, after changes to certain fields, is followed by a PUT routine as

follow:

[  If DB_LockMode = 1 Then

    DB_LockMode = 0

  End If

  I_Syscont("RecNo") = sy.recno

  I_Syscont("CoName") = sy.coname

  I_Syscont("LogSeq") = sy.logseq

  I_Syscont("ErrSeq") = sy.errseq

  I_Syscont("ProcSeq") = sy.procseq

  I_Syscont("DocSeq") = sy.docseq

  I_Syscont("DDSeq") = sy.ddseq

  I_Syscont("InpTyp") = sy.InpTyp

  I_Syscont("OutTyp") = sy.outtyp

  I_Syscont("ElemFileNo") = sy.elemfileno

  I_Syscont("PrintDocNo") = sy.printdocno

  I_Syscont("TextHistNo") = sy.Texthistno

  I_Syscont("RulesNo") = sy.rulesno

  I_Syscont("StreamNo") = sy.streamno

  I_Syscont("AutoNo") = sy.autono

  I_Syscont("STime") = sy.STime

  I_Syscont("DocPath") = sy.docpath

  I_Syscont("VolPath") = sy.volpath

  I_Syscont("ElementFilePath") = sy.ElementFilePath

  I_Syscont("BracketDocPath") = sy.BracketDocPath

  I_Syscont("FinalDocPath") = sy.FinalDocPath

  I_Syscont("DBName") = sy.DBName

  I_Syscont("VolFile") = sy.VolFile

  I_Syscont("VolExt") = sy.VolExt

  I_Syscont("Options") = sy.options

  I_Syscont("WpMacro") = sy.WPMacro

  I_Syscont("WpMacroM") = sy.wppmacrom

  I_Syscont("WpMacroL") = sy.wppmacrol

  I_Syscont("MnDTC") = sy.mndtc

  I_Syscont("static11") = sy.static1(1)

  I_Syscont("static12") = sy.static1(2)

  I_Syscont("static13") = sy.static1(3)

  I_Syscont("static14") = sy.static1(4)

  I_Syscont("static15") = sy.static1(5)

  I_Syscont("static16") = sy.static1(6)

  I_Syscont("static17") = sy.static1(7)

  I_Syscont("static18") = sy.static1(8)

  I_Syscont("static19") = sy.static1(9)

  I_Syscont("static110") = sy.static1(10)

  I_Syscont("staticl11") = sy.staticl1(1)

  I_Syscont("staticl12") = sy.staticl1(2)

  I_Syscont("staticl13") = sy.staticl1(3)

  I_Syscont("staticl14") = sy.staticl1(4)

  I_Syscont("staticl15") = sy.staticl1(5)

  I_Syscont("staticl16") = sy.staticl1(6)

  I_Syscont("staticl17") = sy.staticl1(7)

  I_Syscont("staticl18") = sy.staticl1(8)

  I_Syscont("staticl19") = sy.staticl1(9)

  I_Syscont("staticl110") = sy.staticl1(10)

  I_Syscont("static21") = sy.static2(1)

  I_Syscont("static22") = sy.static2(2)

  I_Syscont("static23") = sy.static2(3)

  I_Syscont("static24") = sy.static2(4)

  I_Syscont("static25") = sy.static2(5)

  I_Syscont("static26") = sy.static2(6)

  I_Syscont("static27") = sy.static2(7)

  I_Syscont("static28") = sy.static2(8)

  I_Syscont("static29") = sy.static2(9)

  I_Syscont("static210") = sy.static2(10)

  I_Syscont("staticl21") = sy.staticl2(1)

  I_Syscont("staticl22") = sy.staticl2(2)

  I_Syscont("staticl23") = sy.staticl2(3)

  I_Syscont("staticl24") = sy.staticl2(4)

  I_Syscont("staticl25") = sy.staticl2(5)

  I_Syscont("staticl26") = sy.staticl2(6)

  I_Syscont("staticl27") = sy.staticl2(7)

  I_Syscont("staticl28") = sy.staticl2(8)

  I_Syscont("staticl29") = sy.staticl2(9)

  I_Syscont("staticl210") = sy.staticl2(10)

  I_Syscont("Notes") = sy.Notes

  I_Syscont("AutoNo1") = sy.autono1

  I_Syscont("AutoNo2") = sy.autono2

  I_Syscont("ImageDir") = sy.ImageDir

  I_Syscont("EMailDir") = sy.EMailDir

  I_Syscont("EMailType") = sy.EMailType

  I_Syscont("FileElems1") = sy.FileElems1

  I_Syscont("FileElems2") = sy.FileElems2

  I_Syscont("DefaultFontSize") = sy.DefaultFontSize

  I_Syscont("DefaultFont") = sy.DefaultFont

  

  I_Syscont("Options2") = sy.Options2

  I_Syscont("SysRef") = " "

  I_Syscont("SysSeq") = 0

  I_Syscont("SysDate") = Date 'Now

  I_Syscont("SysUser") = wsuserid

  

  I_Syscont("FixedWaterMark01") = sy.FixedWaterMark(1)

  I_Syscont("FixedWaterMark02") = sy.FixedWaterMark(2)

  I_Syscont("FixedWaterMark03") = sy.FixedWaterMark(3)

  I_Syscont("FixedWaterMark04") = sy.FixedWaterMark(4)

  I_Syscont("FixedWaterMark05") = sy.FixedWaterMark(5)

  I_Syscont("FixedWaterMark06") = sy.FixedWaterMark(6)

  I_Syscont("FixedWaterMark07") = sy.FixedWaterMark(7)

  I_Syscont("FixedWaterMark08") = sy.FixedWaterMark(8)

  I_Syscont("FixedWaterMark09") = sy.FixedWaterMark(9)

  I_Syscont("FixedWaterMark10") = sy.FixedWaterMark(10)

  

  

  I_Syscont.update]

I assumed this would PUT the record back and then release the lock. However
the lock is not released and the system hangs for anyone else trying to log on.

Pleeeeeaaaase help. If you have the answer please email me on
<>

Thanks

Mac

drawing tool in vb6

neosonic — Mon, 30 Nov 2009 15:12:39 GMT

Hi all,

If I want to read an image and split them into pixel of rgb(red green blue) regarding their color.

Is it possible to do it in vb?
Or I need to use the different program? if you have any clue, please let me know, thanks.

Write a program.... (VB6)

pytup — Mon, 30 Nov 2009 09:20:17 GMT

Write a program that will deal with the following scenario:
- someone buys a car at £7.500
- the car is to be "paid up" over 4 years
- the intrest rate is 5% flat rate per annum.
The program should display the total monthly payment, and should alsoo show how this is made up (ie the part of the payment towards the car, the part of the payment that covers the interest).

Example:
Purshase price - £7.500
Interest per annum - 5% of £7.500 = £375.

Use loops / operators / arrays.

Network Monitor - problem listview

danicam — Mon, 30 Nov 2009 09:02:37 GMT

Good morning friends

I write from Brazil, and I need help from an expert .(..
I am developing the program attached with another program on existing

This is very important to me as it is for my college training ..

basically I track IP address through ICMP. The problem is the following:

add options in the form of Ip and description for the monitoring after these will add to the listview on the form and ping works
the problem is when I try to remove an address in the form options it should also delete the form ping ... this is my problem ....

please help me .. do I need to deliver soon and I can not solve this ...

Thank you very much

Attached Files

ping monitor.zip (117.2 KB)

(Help) Storing ListView specific index items

Geek_Cyborg — Mon, 30 Nov 2009 05:22:53 GMT

Hello,
I want to store all ListView items of index (2) in a MultiLine TextBox,
Please explain how can i transfer all listed text of specific index

Calling Crystal Report from vb6

bhaskaram — Mon, 30 Nov 2009 03:12:41 GMT

How to call Crystal Report from vb6 code? help me.

[Error] Server has not yet been opened

wild_angel — Mon, 30 Nov 2009 03:03:37 GMT

I have a problem when I ran report from vb6. I use Crystal Report 8.5 as reporting tools and MySql as database for my program. When I tried to run the report in Crystal Report, it worked. But when I ran it from vb6, it showed an error: "Server has not yet been opened". Here is my codes for showing the report. Can anyone help me pliz to find the solution for my problem. Thx before.

Dim formlap1 As New lap_pembelian_barang

        Dim crystal1 As CRAXDRT.Application

        Dim dbTable As CRAXDDRT.DatabaseTable

        Dim Report1 As CRAXDRT.Report           

        Dim SubReport As CRAXDRT.Report

        Dim Sections As CRAXDRT.Sections

        Dim Section As CRAXDRT.Section

        Dim RepObjs As CRAXDRT.ReportObjects

        Dim SubReportObj As CRAXDRT.SubreportObject

        Dim n As Integer

        Dim i As Integer

        Dim j As Integer





        formlap1.CRViewer1.DisplayBorder = False 

        formlap1.CRViewer1.DisplayTabs = False   

        formlap1.CRViewer1.EnableDrillDown = False   

        formlap1.CRViewer1.EnableRefreshButton = False



        Set crystal1 = New CRAXDRT.Application         

        Set Report1 = crystal1.OpenReport(App.Path & "\laporan\pembelian_per_barang.rpt")

        For n = 1 To Report1.Database.Tables.Count

          Report1.Database.Tables(n).SetLogOnInfo "localhost", "database", user, pass

        Next n

       

        Set Sections = Report1.Sections

 

      For n = 1 To Sections.Count 

       Set Section = Sections.Item(n)

       Set RepObjs = Section.ReportObjects

   

              For i = 1 To RepObjs.Count

                 

                 If RepObjs.Item(i).Kind = crSubreportObject Then

                    Set SubReportObj = RepObjs.Item(i)

                    Set SubReport = SubReportObj.OpenSubreport

                   

                      For j = 1 To SubReport.Database.Tables.Count

                        SubReport.Database.Tables(j).SetLogOnInfo "localhost", "database", user, pass

                      Next j

     

                 End If

             

              Next i

       Next n



        Report1.DiscardSavedData               

        Report1.Database.SetDataSource rs       

        Report1.RecordSelectionFormula = "{faktur_pembelian_header.tgl_faktur}>= #" & DTPickerawal.Value & "# and {faktur_pembelian_header.tgl_faktur}<= #" & DTPickerakhir.Value & "#"

        formlap1.CRViewer1.ReportSource = Report1

        formlap1.CRViewer1.ViewReport

        formlap1.Show

        Unload Me

type mismatch

venkatnams — Sun, 29 Nov 2009 17:02:02 GMT

guys i recently used this following code in my project,,
http://www.vb-helper.com/howto_store...access_db.html

after adding the above form in my project i added microsoft active x control in my reference,,cos the above code needs it,,,,

i also have added microsoft dao 3.5 in reference before i added the above form,,,

then i tried running the program,,,
i get an error tellin "error no13, type mismatch" which highlights the line of that form which links to the new downloaded form
set db=("location")

pls help me,,,i've gotta complete my project in few days time,,pls,,,

VB6 Opening MS Access

novicevbp — Sun, 29 Nov 2009 13:21:24 GMT

Hi
I am trying to open a MS Access db via CommonDialog1. All is fine untill I click OPEN after selecting the db I want. What I then get is a dialog for ODBC entitled SELECT DATA SOURCE with two tabs: File Data Source or Machine Data Source. If I choose Machine Data Source and then MS Access I get a runtime error 3423 and the message that I cannot use ODBC to import from/export to or link an external Microsoft Jet or ISAM Database table to my database. I am really confused - why does the SELECT DATA SOURCE window appear at all?
If I run debug it fails at the following line of code:
Set db = ws.OpenDatabase(gf_strDbPath)
Please Helpme!

expain this code pls

venkatnams — Sun, 29 Nov 2009 11:17:12 GMT

hey guys,,i recently got this code from robocr of this community,,i got this from another website,,im trying to use this in my project to link a photo,,but im not able to do that,,i get errors one by one when i try to run the code after importing the forms and modules into my project,,,can some one explain the function of each line in this code??? pls,,,,
my previous post was
http://www.daniweb.com/forums/newpos...n=ThreadUpdate

i need the explanation of each and every lines of the code mentioned in this page

http://www.vb-helper.com/howto_store...access_db.html

pls pls,,help me,,,

VBS Script to add registry keys to all Current Users

DaveB — Sat, 28 Nov 2009 12:42:03 GMT

Hi

Writing a vbs logon script to add a registry key for users, but it is only adding it once for the SYSTEM account, (since this account is used to run logon scripts) via HKEY_CURRENT_USER, whereas I need it to add it for the user logging on, so append it to all accounts within HKEY_USERS;

current script;

const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set StdOut = WScript.StdOut

 

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 

strComputer & "\root\default:StdRegProv")

 

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

strValueName = "DialupUseLanSettings"

strValue = "1"

oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue

 

strValueName = "DialupUseLanSettings"

dwValue = 1

oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

Is there a way to modify this so for all occurances of the key path "Software\Microsoft\Windows\CurrentVersion\Internet Settings" in HKEY_USERS, it will add a new value "DialupUseLanSettings" with DWORD value 1?

Any help would be appreciated, thanks, Dave

Need help in making reports...(VB6)

PoisonedHeart — Sat, 28 Nov 2009 12:03:44 GMT

Hi to all and good day...

I'm still studying about vb 6's data report designer and the data environment...but what i need to know is
how can i make or generate a report at run time...

for example, generate report for the employee names.
(names of the employees will populate the report and nothing else...
or generate report for orders...

something like that...

the user will choose between the two options (maybe an option button will be OK to use.) then after the user chooses one and click the button 'generate report'...) the report will be generated according the choices..

I have search through the net for some samples about the data report designer, but what i see is, the report was build during the design time.

Thanks in advance...:)

This forum helps me a lot, thanks to all of you

[unknown question]

lashatt2 — Sat, 28 Nov 2009 09:36:53 GMT

Is there a command that change's server's file's inside buffer?
Change file's inside text?
I hope you understand me

Package & Deployment Wizard - size dramatically increased

pankaj.garg — Fri, 27 Nov 2009 20:20:05 GMT

i have a VB6 application using DAO and other reference libraries...so i used Package & Deployment wizard, so that it works on other machines as well...now my application size has increased from "79 KB" (my earlier exe + DB Files) to whooping "30 MB" (entire package).

Please guide me how to reduce this size...as i have to make it as crisp as possible...

i just have to send application so that ppl can use it..no need for modification and all..keeping this in mind...do i need .cab file (13 MB)?? what else can i do to reduce the size of package ???

VB6 Object or Property Doesn't Support This Method

wdb07159 — Fri, 27 Nov 2009 14:19:53 GMT

I am adding a usercontrol combo box to another usercontrol form and when I do this the program actually runs and goes to an initialise routine in a class and shows the error mentioned in subject.

I have a collection of records and a new combo box and this is the reason also for the new class. The routine in the new class has a 'For' loop, which adds the items to the combo box and this is where the error shows up.

My main question is why does the code start running when I try to add a user control to the main parameter user control form?

Thanks

Andrew

Runtime-error 429 active x component cant create object

pankaj.garg — Fri, 27 Nov 2009 08:20:27 GMT

i created a VB-6 program using reference "DAO 3.51 object library" on XP OS....works ok on my system...but does not work on my friends system...gives error - "Runtime-error 429 : active x component cant create object"

friend's system is Windows XP with Office 2007 installed...

Pl help to resolve this...

and i am planning to send this to lots of my friends...can the solution be bundled with the exe itself??

How to terminate some application using vb code

asaness — Fri, 27 Nov 2009 06:00:12 GMT

hi to all! i need some help. My problem is how to code the terminating current process, actually it is like a task manager. i hope somebody will answer my question. thanks to all...

VB within Excel, help please

Nepenthe — Fri, 27 Nov 2009 01:29:19 GMT

Hi,

I have to write a function in Visual Basic within Microsoft that takes customer type and number of books purchased as inputs and returns the discount that should be given. Calculate the total sum after deducting discount that is to be paid and that the interface shows the total amount before and after the discount.

I would like to get some help in this because im totally stuck. I have designed the form in VB somewhat,not finalised ofcourse and done the code. But I can't manage to get it working as how it's described above :S Pleaseeeeeee helppppppppppppppppppp.

I have attached the file of what I did so far.

Thanks

Attached Files

Function Discount.doc (195.5 KB)

networking

imolorhe — Thu, 26 Nov 2009 13:10:30 GMT

Please, i want to know how to ntework in vb6. Also, capturing the system name and other things like that.

Paint Application

Jlutha1001 — Thu, 26 Nov 2009 11:07:53 GMT

Hi, everyone i am so pressed with this task of developing a Piant Application using java or vb. i have run short of time, please someone save a me.
I am Justine .O.

calendar

remalisam — Thu, 26 Nov 2009 09:30:38 GMT

how to bind collected Data in calendar control in vb 6

Exporting Macros from excel

jcb0806 — Wed, 25 Nov 2009 16:20:08 GMT

Hey everyone,

I've been working on a project for my job and I've become stuck. I'm trying to figure out a way to extract or export all macros from an excel workbook to a folder on my filesystem.

Is there a way of doing this with out creating a program in VB?

I would appreciate any help! thanks.

jcb

MMcontrol does not play previously played .wav file

michellspijkers — Wed, 25 Nov 2009 05:52:39 GMT

Hi!
I'm a newbie in this community.
I am developing a VB6 app which displays 100 pictures one at a time at random using a button click event. This works fine so far. Using the same random number generated to display the picture using a ' select case' routine, it needs to play a wave file representing a question for that picture using the mmcontrol1 play button. This is then followed with playing an answer using the mmcontrol2 play button
I am using mmcontrol1 for playing the question and mmcontrol2 for the answer.
The problem is this; When the random number has caused a picture and wave file to be executed,it will continue to work fine until the current random number is a number that has already been used once before. When this happens the picture displays correctly but the sound file does not play.
How can I trap this and correct it.

Is vb6 suitable for this kind of program?

neosonic — Wed, 25 Nov 2009 05:48:24 GMT

Hi All,

Thanks for your continuing helps and supports, I really love this forum. (and somewhat depended on it).

I have got program written in vb6, this program provide the calculation and links to microsoft access and microsoft words.
This program soon will be integrated with microsoft visio or other drawing tool.

The thing that I want to do is:
I want to have a program which can be used by everyone (including linux and mac users).
Is vb6 able to make that kind of stuff?
Or do I need to publish online? Or should I upgrade it in vb.net (then again, will vb.net able to do it)?

I will use mySQL for the database in the server.
But will vb6 able to cope with this?
And also if I need to scan a house plan (and do calculation in it), which program is the best to do it?

Thanks a lot, I really appeciate your help

after Form resize event..(pls help)

blocker — Wed, 25 Nov 2009 02:19:50 GMT

Hi guys.!!

Good day.!

I just want to know on how to execute an event or function call after the resize event of the Form had been triggered!..

Thank you for giving time on this post.!