Visual Basic Forum RSS Feed

Business report automation with microsoft automation scripting

Tue, 07 Feb 2012 01:27:21 -0800

Currently im working with SQL Server for business report automation. Although i love to write code in C++ or Java, but now i need to learn vbscript for the purpose of scheduled sending of mails. SQL server provides packages to perform scheduled data transformation, but working with the imported data ie. send the imported excel to the concerned person attaching it requires a activx script object and scripting in it and theres a whole lot of things you can do with microsoft automation scripting.

To get access to the codes please follow the link below:

http://programming-mania.blogspot.com/2009/11/learning-vbscript.html

Business report automation with microsoft automation scripting

Tue, 07 Feb 2012 01:19:42 -0800

work in Visual Baisc

Mon, 06 Feb 2012 20:51:12 -0800

I need to do some work in Visual Basic. I am ready to pay if someone can help me. Please let me know if anyone is interested.

Light Weight Database Class

Thu, 02 Feb 2012 09:15:02 -0800

I'm devloping an application that needs to manage a very small about of data. Just one or two tables with a couple of thousand rows (max). I don't need indexes, partitioning, views, or other advanced support. I don't really need a "select" statement, I can just scan through the rows manually.

My goal is to keep it self contained and small, meaning I don't want to force a connection to Oracle, MS SQL Server, ... I can manually code an object to save it to a data file, but would rather use an existing class or other program to save the effort. Can you recommend anything?

Light Weight Database Class

Thu, 02 Feb 2012 09:09:17 -0800

I'm devloping an application that needs to manage a very small about of data. Just one or two tables with a couple of thousand rows (max). I don't need indexes, partitioning, views, or other advanced support. I don't really even need a "select" statement, I can scan through the information manually if necessary.

My goal is to keep it self contained and small, meaning I don't want to force a connection to Oracle, MS SQL Server, ... I can manually code an object to save it to a data file, but would rather use an existing class or other program to save the effort. Can you recommend anything?

Thank you
Jim

VS 2010 How to change the 2 words from the file using a button ?

Thu, 02 Feb 2012 09:01:32 -0800

So Im working on a program that shows this.

This is the code that I use two show the SA and PLATINUM from the file, they are not the only characters on the line, like this:

.....
set username=sa
set password=platinum
.....

code to show only those two words.

 Dim lines() As String = IO.File.ReadAllLines("C:\NTMBackup1\NTMBackup4.bat
")
        Dim userIndex As Integer = Array.FindIndex(lines, Function(s) s.Contains("utilizador"))
        Dim psswrdIndex As Integer = Array.FindIndex(lines, Function(s) s.Contains("password"))

        Me.txtusr.Text = lines(userIndex).Substring(lines(userIndex).IndexO
f("="c)).Substring(1)
        Me.txtpassowrd.Text = lines(psswrdIndex).Substring(lines(psswrdIndex).In
dexOf("="c)).Substring(1)

What I want is to change the "sa" and "platinum" at the textboxes and then save them on the file, to looks like:

.....
set username=something
set password=something
.....
Thanks for help

ForEach In Loop throwing exception 424:Object Required

Mon, 23 Jan 2012 23:53:01 -0800

I am using collection from C# to do a ForEach In loop in VB6.The code is as below,

public class DTGFDTCollection : IFdtChannelCollection
{

ChannelEnum channlEnum = new ChannelEnum();

/// <summary>
/// Construcotr, it initializes the collection list
/// </summary>
public DTGFDTCollection()
{
}

public void AddChannel(IFdtChannel objChannel, string channelName)
{
channlEnum.AddChannelItems(objChannel, channelName);
}

#region IFdtChannelCollection Members

int IFdtChannelCollection.Count
{
get { return this.channlEnum.objDicChannel.Count; }
}

IFdtChannel IFdtChannelCollection.get_Item(ref object pvarIndex)
{
try
{
if (pvarIndex.ToString().Contains("_"))
{
foreach (string strkey in this.channlEnum.objDicChannel.Keys)
{
if (strkey.Equals(pvarIndex.ToString()))
{
//index = this.objDicChannel.alVariant.IndexOf(Variant);
return (IFdtChannel)this.channlEnum.objDicChannel[strkey] ;
}
}
}
return null;
}
catch (Exception )
{
return null;
}
}

#endregion

#region IEnumerable Members

IEnumerator IEnumerable.GetEnumerator()
{
return (IEnumerator)channlEnum;
}

[DispId(-4)]
public IEnumerator GetEnumerator()
{
return (IEnumerator)channlEnum;
}

#endregion

I have implemented the IEnumerator for the ChannelEnum class as below

public class ChannelEnum:IEnumerator
{
internal Dictionary<string, IFdtChannel> objDicChannel = new Dictionary<string, IFdtChannel>(3);
string[] strNames = new string[3];
int i = 0;

public void AddChannelItems(IFdtChannel objChannel, string channelName)
{
objDicChannel.Add(channelName, objChannel);
strNames[i++] = channelName;
}

#region IEnumerator Members
int position = -1;
string key;

object IEnumerator.Current
{
get
{
try
{
return objDicChannel[key] ;
}
catch (Exception)
{
throw new InvalidOperationException();
}
}
}

bool IEnumerator.MoveNext()
{
position++;
key = strNames[position];
return (position < objDicChannel.Count);
}

void IEnumerator.Reset()
{
position = -1;
}

#endregion
}

Here the AddChannels() is called by other class method and returns the value of type IFdtChannelCollection.I need to do the For Each In loop for this collection in VB6.

If i try to do the foreach for this collection with C# and VB.net, it works fine,but If i try to do the For Each In loop in VB6, after the Current property is called it throws exception 424:Object required. I am clueless what is going wrong here.The Current property returns a valid object ,but still it throws the error.So can anyone help me in this?.

How to operate SUMAND AVERAGE operation in datagridview?

Mon, 16 Jan 2012 05:45:38 -0800

hi! Can someone help me with my proposed study. I have a column in a datagrid to be sum up but I dunno knoe how to perform the sum operation in datagrid and average at the same time.. :))
--
I have a field column (Course Code,Unit,Grade,Remarks) I just use a query for the Unit.. I need to add the units having a grade of 5.00 or 4.00 then divide it with the total units of subject enrolled.. I've tried to use a query in access but when I connect it to vb6 the error is type mismatch :)) I dunno if my code is correct

My code is like this:

Private Sub cmdcompute_Click()
Dim sumtotal As String
Dim sumfail As String
Dim avg As Integer

sumfail = "SELECT Sum(Curriculum_entries.Unit)" & _
"FROM Student_pros INNER JOIN Curriculum_entries ON Curriculum_entries.Course_code=Student_pros.Course _code" & _
"WHERE Curriculum_entries.Unit='" & dtpros.Columns(5).Text & "' AND Grade >= 4.00"

sumtotal = "SELECT Sum(Curriculum_entries.Unit)" & _
"FROM Student_pros INNER JOIN Curriculum_entries ON Curriculum_entries.Course_code=Student_pros.Course _code" & _
"WHERE Curriculum_entries.Unit='" & dtpros.Columns(5).Text & "' AND Student_pros.Grade >= 4.00" & Me.dtpros.Columns(6).Text & "'"

avg = (sumfail / sumtotal) * 100

If avg <= 24 Then
txtstatus.Text = "Regular"
Exit Sub
ElseIf 25 >= avg <= 49 Then
txtstatus.Text = "Warning"
Exit Sub
ElseIf 50 >= avg <= 74 Then
txtstatus.Text = "Probation"
Exit Sub
ElseIf avg >= 75 Then
txtstatus.Text = "Dismissal"
End If

End Sub

Web Design SEO

Wed, 04 Jan 2012 00:50:03 -0800

There are so many websites out there that have not been optimised for search engines at all, the question is should web designers optimise websites for search engines as part of the overall solution?

Well it's perhaps a little unfair to criticise web designers for not doing SEO as standard since it is an entirely different skill set, however my opinion is that to be in the web design market these days in order to add value to clients some basic knowledge of SEO is essential.

Of course having the skill sets is one thing, but doing SEO properly is a time consuming process so arguably it should be an optional service in addition to website, and really if a client want their website to produce results for them, then they should be seriously considering this.

However I do believe that every site should have basic SEO included, this means that HTML title tags can be made relevant to the website itself, and the website should be search engine friendly making it easy for either a customer to complete the SEO themselves or an SEO consultant to manage should the design firm not offer SEO services themselves.

Unfortunately this does not seem to be the case most of the time and customers are often left with what might be a great site from a design or technical point of view, but just does not produce results for them.

My advice would be to find a web design company that actually offer design, development and SEO in-house, this way you should be confident in the knowledge that your website should look great, be technically good and actually produces results for you.

Website Design Orlando | Orlando Website Design

Web Design SEO

Wed, 04 Jan 2012 00:45:57 -0800

Visual Studio 2010 Help

Mon, 02 Jan 2012 17:54:12 -0800

I just got Visual Studio 2010 about 3 days ago. If their were a person on here who could help me I would be very happy. Im on a time constraint and need to learn how to be a basic program and don't have time to read the books to find how to do it.

I need a program that after clicking a button would move my mouse to a location on my screen(within a web page, like a link), click, then compare the web page url to a predetermined url. It also needs to wait for the page to load so the link is active.

Thank you SO much to whoever helps me!
I know this in the wrong thread but this is the closest one to my question I could find.

I need help... Please

Mon, 02 Jan 2012 17:51:10 -0800

Report in VB 6

Wed, 28 Dec 2011 00:52:25 -0800

I developed a payroll accounting software for my Organization, What i need now, is that, i want to design report that can generate the monthly employee pay details but I want it inform of querying two different months so they will be in the same report sheet. PLEASE HOW CAN I ACHIEVED THIS?

Report in VB 6

Wed, 28 Dec 2011 00:50:34 -0800

This post has been deleted.

Sun, 18 Dec 2011 21:40:27 -0800

This post has been deleted.

Visual Basic 6.0 , Need solution of one programing question

Sun, 18 Dec 2011 21:36:51 -0800

Hey guys, This is yulia. Any one could help me in Visual basic. I have examine next week. I am very in need to get assistance from any one who could to solve programing. Drop msg me in 740499329@qq.com

Q.1 Assume you offer programming seminars to companies. Your price per person depends on the number of people the company registers.(For example, if the company registers 7 people, then the total amount owed by the company is $560.)
Number of registrants charge
1—4 $100 per person
5—10 $80 per person
11 or more $60 per person
less than 1 $0 per person

the number of people is stored in the text property of the txtReg control. Calculate the total amount owed by the company. Store the amount in the curtotalDue varible. Write the VB code, use the Case selection structure.

Dissertation India Help

Sat, 17 Dec 2011 21:13:37 -0800

Send us your Thesis & Dissertations, Assignments, Projects, term papers, Course works and we will send you back the US, Australia, UK Dissertation writing help from UK thesis editing experts. We also help in projects, papers and essays.

We also help in:-
Finance Dissertation help
Marketing Dissertation help
HRM Human Resource Dissertation & Thesis
Thesis on Tourism
Hypothesis Testing, ANOVA, Pie Charts, Likert Scale Analysis
Medical Dissertation writers
UK Dissertation writers
MSC Dissertation writers
MBA UK Dissertation writing assistance
Turnitin Plagiarism Free Dissertations
UK Plagiarism Removal Service
Management Dissertations
Dissertation help in Arts, Humanities, Sciences, Life Sciences
Need help dissertation writing
UK Coursework writers uk
Dissertation writers UK
Assignment solving help, Assignment answers solutions
Essay writing assistance
Dissertation Writers from India
UK Dissertations, Thesis Editing,
Edit my Disssertation, Thesis Proofreading
Statistical Analysis, Data Analysis, Comparative Analysis

please visit once dissertationhelpindia.com

or email us on dissertationhelpindia@yahoo.com

populate a list box with data entered in msgbox

Fri, 09 Dec 2011 08:12:32 -0800

hi
I'm new here. I have an access form with a list box and I'm trying to populate the list box with data that will be manually entered in a msgbox and can't seem to get the code correct. any help would be wonderful.

Isabel

This post has been deleted.

Fri, 09 Dec 2011 08:07:59 -0800

This post has been deleted.

Wed, 07 Dec 2011 14:45:33 -0800

This post has been deleted.

connect four game

Wed, 07 Dec 2011 14:43:43 -0800

I need to make a game in Visual studio 2010 that is similar to connect four. The game needs to be two player , have a playing grid of 6 rows high and 8 columns wide, use red and black chips and have an area to indicate whose turn it is and keep track of how many games each player has won. The game can be very simple. The problem is, I have never done anything like this before so I do not know where to begin. any help you provide will be appreciated.

Property of Image in vb 6.0

Wed, 07 Dec 2011 01:21:24 -0800

Hi friends,

How to create a Dock and Anchor properties to Image Control and Button in VB 6.0?Because form resize based on Screen Resolution.
Please very urgent.

Macro - changing value depending on the original value

Mon, 28 Nov 2011 13:55:11 -0800

Hello,
Can you please kindly help me to avoid lots of slavish work?
I have a column where there are - among others - also cells with the following values:
$$$to be sent
$$$to be sent2
$$$to be sent3
$$$to be sent4
$$$to be sent5

The active cell is just in this column (the cell is selected). I want a macro which would change these values (nothing else) in THIS column into $$$sent, preserving the eventual number indexes (meaning "$$$to be sent" into "$$$sent", "$$$to be sent2" into "$$$sent2" ....... ). (The cells not containing any of the above values should be left intact).
Please ask me for more explanation if convenient.
Very many thanks in advance!
Lib

This post has been deleted.

Mon, 28 Nov 2011 13:53:19 -0800

This post has been deleted.

Blackberry Torch 9810@400$,Apple iPhone 4S 64GB - $410.00

Fri, 25 Nov 2011 11:46:18 -0800

Welcome To GREENWICH LIMITED® has been one of the fastest growing discount Wholesaler on the web, where we present the industry's latest products at the time they are introduced by the manufacturer, coupled with the after market sales distribution at the very same time.

GREENWICH LIMITED® is one of the leading supplier of high-end products to customers, we deal primarily in genuine and brand new electronics, all items are sourced directly from the manufacturers and carry the manufacturer’s warranty. We ship 100% of our orders the same business day. with the Registered No.05209907

-----------------------------------------------------------------
Hours of operation:
Monday - Thursday 8:00am - 9:00pm EST
Friday 9:00am - 8:00pm EST
Saturday Sunday- 9:00am - 8:00pm EST.
-----------------------------------------------------------------

We specialize in a wide range of products such as laptops, mobile phones, plasma & lcd tv, mp3 & mp4 players, ***** games console, digital cameras, dvd players (Etc) at cheap & affordable prices. we strive to offer high-quality products at competitive prices. All of our products are brand new, never used, never rebuilt,original.
COMPANY FULL DETAILS.
Company Name : GREENWICH LIMITED
Company Address:REGENT HOUSE, 316 BEULAH HILL, LONDON, SE19 3HF
Contact Name :larry kay
Registered No. 05209907
Emails:
MSN::::: greenwichbay@hotmail.co.uk
Ymail::: greenwich_bay@yahoo.co.uk

BEST OFFER:
BUY 2 UNITS GET 1 FOR FREE.
BUY 5 UNITS GET 2 UNITS FOR FREE WITH FREE SHIPPING.
Apple iPad 2 Wi-Fi+3G 32GB.....................$400USD
Apple iPad 2 Wi-Fi + 3G 16GB....................$380usd
Apple iPad 2 Wi-Fi 32GB............................$350usd
Apple iPad 2 Wi-Fi 64GB...........................$370USD
Apple iPad 2 CDMA 32GB...............300USD
Apple iPad CDMA 64GB..................320USD
Apple Tablet iPad 64GB (Wi-Fi + 3G) .....$300usd
Apple Tablet iPad 32GB (Wi-Fi + 3G) ....$260usd
Apple Tablet iPad 16GB (Wi-Fi + 3G).....$240usd

T-Mobile Sidekick:
T-Mobile Sidekick 4G@250usd
T-Mobile mytouch 4G@250usd
T-Mobile myTouch---200usd
T-Mobile G2-----170USD
T-Mobile myTouch 3G---200usd
T-Mobile HD2---$180
T-Mobile myTouch 3G Fender Edition$150
T-Mobile Pulse ---------------$140
T-Mobile MyTouch 3G -----$140
T-Mobile G2 Touch ----------$130

Apple iPhone:
Apple iPhone 4S 64GB ------- $410.00
Apple iPhone 4S 32GB ------ $ 380.00
Apple iPhone 4G 32GB--$280
Apple iPhone 3GS 32GB- $220
Apple iPhone 3GS 16GB- $200
Apple iPhone 3G 8GB — $150
Apple iPhone 3G 16GB — $140

Blackberry Torch 9860@380usd
Blackberry Torch 9810@400usd
Blackberry Curve 9370@340usd
Blackberry Curve 9350@330USD
Blackberry Bold Touch 9900@350usd
Blackberry Bold Touch 9930@320usd
Blackberry 4G Playbook@380usd
Blackberry 4G Playbook LTE@370USD
Blackberry Playbook wilmax@330usd
BlackBerry Bold 9780@300usd
BlackBerry Curve 3G 9330@280usd
BlackBerry Curve 3G 9300....230usd
BlackBerry Torch 9800.......250usd

HTC:
HTC HD7S@300USD
HTC DROID Incredible 2@300usd
HTC Sensation 4G@260USD
HTC EVO 3D CDMA@280usd
HTC EVO View 4G@300USD
HTC ThunderBolt 4G--$230
HTC Incredible S--$220
HTC Desire S--$230
HTC EVO Shift 4G....230usd
HTC Inspire 4G......220usd
HTC Freestyle.....200usd
HTC HD7------------------250USD
HTC 7 Surround-----------230usd
HTC 7 Pro----------------250usd
HTC Wildfire.................$230
HTC Aria.....................$270
HTC Desire ------------ $220
HTC HD mini ------ $215
HTC Legend ---- $200
HTC Google Nexus One $200
HTC HD2-------$200

Nokia:
Nokia N9@330USD
Nokia N950@320USD
Nokia E7-----220USD
Nokia c7-----200usd
Nokia c5-03--200usd
Nokia N8-----$210
Nokia C6 ---- $200
Nokia 5330 -- $200
Nokia 5235 ---------- $210
Nokia N97 mini -----$190
Nokia N97 32GB --- $170
Nokia N900 -------$190
Nokia X3 -------- $190

Sony Ericsson:
Sony Ericsson XPERIA Arc:320usd
Sony Ericsson A8i@300usd
Sony Ericsson BRAVIA S004--$302
Sony Ericsson XPERIA X8@280usd
Sony Ericsson XPERIA X10 mini pro -- $250
Sony Ericsson XPERIA X10 mini ----- $230
Sony Ericsson XPERIA X10 ---------- $200
Sony Ericsson Xperia X2 --------------- $190
Sony Ericsson XPERIA X1 ------------- $150
Sony Ericsson Aspen ------ $230

Samsung:
Samsung I9100 Galaxy S II--$330
Samsung I9001 Galaxy S Plus@340usd
Samsung P7100 Galaxy Tab 10.1--$350
Samsung Galaxy S 4G--$330
Samsung Galaxy Ace S5830--$250
Samsung 4G LTE:300usd
Samsung i997 Infuse 4G:290usd
Samsung Google Nexus S@280usd
Samsung I9010 Galaxy S Giorgio Armani@250usd
Samsung I8700 Omnia 7@250usd
Samsung P1000 Galaxy Tab@240usd
Samsung P1010 Galaxy Tab Wi-Fi@330usd

APPLE LAPTOPS
Apple Macbook Air……………………….$480usd
Apple Macbook Pro MC240LL/A .....$385usd
Apple Macbook Pro MB990LL/A ......$400usd
Apple MacBook (MA700LL/A) Mac Notebook…$410usd
Apple MacBook Pro (MA611LL/A) Notebook…$390usd
Apple MacBook (MA254LL/A) Mac Notebook…$405usd
Apple iBook G3 (M7698LL/A) Mac Notebook..$395usd
Apple MacBook Pro (MA609LL/A) Notebook…$520usd
Apple MacBook Pro (MA600LLA) Notebook…$410usd
Apple MacBook Pro (MA610LL/A) Notebook…$420usd
Apple Macbook Pro (885909119400) Notebook..$415usd

Whether you’re shopping with us for the first time or have bought from

us many times before, our goal is to make your shopping experience as

informative and as easy as possible. In addition to our online services,

you can contact us to speak to our experienced customer representatives

for more personal assistance.

GREENWICH LIMITED® strive to offer high-quality products at competitive

prices. All of our products are brand new, never used, never rebuilt. We

maintain multiple-supplier sources for our products as a means of being

able to continually offer the best products at the best prices. All of

our products are backed by a 30-days, money-back guarantee. Contact us

for further informations about extended warranty from manufacturer.

NOTE: We offer prompt shipping from our warehouse, typically the product

will arrive within 48hours via either Fedex/Ups Courier Sevices.

Kindly Read Our Return Policy Requirement Below:

We offer our customers hassle-free returns/exchanges. If for any reason

you are not satisfied with an item purchased from us, please return the

item within 30 days* of receipt for an exchange or refund.

1. Order ID (in subject of email)
2. Name of product
3. Exchange or Refund
4. Reason for return
5. Specify defect in product, if any
6. Any other comments (any feedback on our products or service)
7. A phone number where we can reach you, if required
8. Returned products must include all original accessories, manuals,

software, and packaging materials.

We look forward in placing your order with us and giving you the most

competent services as we are using this medium to look for buyers of

various electronics product .

Your prompt enquiry will be greatly appreciated.

Emails:
MSN::::: greenwichbay@hotmail.co.uk
Ymail::: greenwich_bay@yahoo.co.uk