Visual Basic Forum RSS Feed (Replies Included)

cheap chanel bags

Fri, 20 Nov 2009 20:40:13 -0700

Newest design:shoes,handbags,wallets,sunglasses,clothes,j eans!
Free shipping! Speedy delivery!Lowest price!
high quality!fashion design!best service!
www.welljordan.com

Re: multiplication table in visual basic

Thu, 19 Nov 2009 23:20:17 -0700

Please check this
http://www.programmersheaven.com/download/44186/download.aspx

thanks

Fake Passports for Sale

Thu, 19 Nov 2009 02:40:38 -0700

Fake Passports for Sale

If you want to buy high quality fake forged fraudulent counterfeit duplicate false camouflage diplomatic passports and other identification documents of Australia, Austria, Belgium, Canada, Finland, France, Germany, Israel, Malaysia, Netherlands, New Zealand, South Africa, Switzerland, United Kingdom, United States and some other countries please visit this website:

http://www.FakePassport.Ws

E-mail: FakePassports@Gmail.Com

Diplomatic passports are also available on demand

Fake Passports for Sale

Thu, 19 Nov 2009 02:37:33 -0700

Re: Access Database recovery

Tue, 17 Nov 2009 04:08:24 -0700

If you are not able to open your access database than try to repair your database using inbuilt repair utility. Even after that you are not able to repair your database than you need the third party access repair utility.

David Poul

vb6 Realtime MSChart

Fri, 13 Nov 2009 12:24:15 -0700

I am creating a display to show the PLC values coming in from (KepWare 4) Server. My problem is not really displaying data on the MSChart, but having the MSChart update every second (i.e the rows being the time and the columns being the Conductivity - gallons per minute)

I do not know how to go about this...as every example I've seen so far just shows how to add data to MSChart. I am looking to have the chart always update, going from left to right, as the time progresses.

Option Explicit
Option Base 1
'Define the server Object
Dim WithEvents ConnectedOPCServer As OPCServer

Public gblConductivity As Integer
'Define the group objects
Dim ConnectedServerGroups As OPCGroups
Dim WithEvents ConnectedGroup As OPCGroup
' Define OPC Item related data. These arrays are dimensioned for seven items.
' If you are doing a different number of items you would change the size.
Dim OPCItemCollection As OPCItems
Dim ItemCount As Long
Dim OPCItemIDs(7) As String
Dim ItemServerHandles() As Long
Dim ItemServerErrors() As Long
Dim ClientHandles(7) As Long
' Define the Data Objects
Dim gDB As ADODB.Connection
Dim gRS_Log As ADODB.Recordset
' Define form and logging control parameters
Dim gLogData As Boolean
'Data Logging trigger
Dim LogDataArray(5) As Single
'Value arrayfor data that will be logged.
Public GintGraphGridSize As Integer

Public dtmCheckTime As Date, dtmCheckDate As Date

' General startup initialization Private
Sub Form_Load()

Call loadOPCdata 'PLC stuff
Call GLoadAccessDB 'Acess Database
Call SetGraphProperties(frmADL) 'My Graph

End Sub

Sub ConnectedGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

' We don't have error handling here since this is an event called from the OPC interface
' You can use the 'Clienthandles' array returned by the server to pull out the
' index number of the control to update and load the value. Since we only have
' one we do not worry about that. If you were doing more then one item you might
' use the following code:
'
Dim x As Integer

gLogData = True


For x = 1 To NumItems
Select Case ClientHandles(x)
Case 1 To 5

' Load data to be logged to holding array
LogDataArray(ClientHandles(x)) = ItemValues(x)

' Update the screen display with the data value
myText(ClientHandles(x)).Text = ItemValues(x)

'''''''''''''''''''''''''''''''''''''''''''
'needs to do chart function here I think....

''''''''''''''''''''''''''''''''''''''''''''

Case 6
' Evaluate the Data Logging trigger and set the timer trigger accordingly.
'gLogData = True
If ItemValues(x) = 1 Then
gLogData = True

End If
Case 7 ' Evaluate the Communications Status and set accordingly
If ItemValues(x) = True Then
indError.Visible = True
Else
indError.Visible = False
End If
End Select
Next x
End Sub

Private Sub tmrLogData_Timer()

Dim x As Integer
Dim timevalues(5) As String

MSChartConductivity.Row = 1
timevalues(1) = Format(DateAdd("s", x, dtmCheckTime))
MSChartConductivity.RowLabel = dtmCheckTime
MSChartConductivity.Data = myText(1).Text

For x = 1 To 5


txtTimeConductivity.Text = Now()


MSChartConductivity.Row = x
timevalues(1) = Format(DateAdd("s", x - 4, dtmCheckTime))
MSChartConductivity.RowLabel = dtmCheckTime
MSChartConductivity.Data = myText(1).Text

Call writeToDatabase
Next x

End Sub

Private Sub SetGraphProperties(ByRef frmADL As Form)
On Error GoTo ErrHandle

MSChartConductivity.Column = 1


With MSChartConductivity.Plot.SeriesCollection(1)
.Pen.VtColor.Set 250, 1, 10
.Pen.Width = 1
.LegendText = "Conductivity"
End With

Exit Sub
ErrHandle:

End Sub

Private Sub writeToDatabase()

dtmCheckTime = Format(Now, "hh:mm:ss AMPM")
dtmCheckDate = Format(Now, "dd mmm yyyy")

If gLogData Then
With gRS_Log
.MoveLast
.AddNew
![tagDataValue1] = LogDataArray(1)
![tagDataValue2] = 0 'LogDataArray(2)
![tagDataValue3] = 0 'LogDataArray(3)
![tagDataValue4] = 0 'LogDataArray(4)
![tagTime] = dtmCheckTime
![tagDate] = dtmCheckDate

.Update

End With
gLogData = False

txtRECS.Text = gRS_Log.RecordCount
End If
End Sub


Public Sub loadOPCdata()
'Create a new OPC Server object
Set ConnectedOPCServer = New OPCServer
ConnectedOPCServer.Connect "Kepware.KepserverEx.V4"

' Add the group and set its update rate
Set ConnectedServerGroups = ConnectedOPCServer.OPCGroups
Set ConnectedGroup = ConnectedServerGroups.Add("TRACKER")

' Set the update rate for the group
ConnectedGroup.UpdateRate = 150

' Subscribe the group so that you will be able to get the data change
' callbacks from the server
ConnectedGroup.IsSubscribed = True

'Next we will add 7 items. If your were going to add more then 7 item then you would need to
'make sure that you increase the OPCItemIDs and Client Handles Arrays to the number of items
'you will be adding. You will also need to increase the item count to correspond to the
'number of items that you are adding.
ItemCount = 7

' Add initialize the 5 items to be logged
OPCItemIDs(1) = "Channel1.TRACKER.Tag_1"
ClientHandles(1) = 1
OPCItemIDs(2) = "Channel1.TRACKER.Tag_1"
ClientHandles(2) = 2
OPCItemIDs(3) = "Channel1.TRACKER.Tag_2"
ClientHandles(3) = 3
OPCItemIDs(4) = "Channel1.TRACKER.Tag_2"
ClientHandles(4) = 4
OPCItemIDs(5) = "Channel1.TRACKER.Tag_3"
ClientHandles(5) = 5
OPCItemIDs(6) = "Channel1.TRACKER.Tag_3"
ClientHandles(6) = 6
OPCItemIDs(7) = "Channel1.TRACKER.Tag_4"
ClientHandles(7) = 7

' Establish a connection to the OPC item interface of the connected group

Set OPCItemCollection = ConnectedGroup.OPCItems
OPCItemCollection.DefaultIsActive = True
OPCItemCollection.AddItems ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors

End Sub

Public Sub GLoadAccessDB()

'Initialize new data objects
Set gDB = New ADODB.Connection
Set gRS_Log = New ADODB.Recordset

'Open Database and Table for Data Logging
gDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=" & App.Path & "\ADL_Data.mdb"
gRS_Log.Open "tblProdData", gDB, adOpenDynamic, adLockOptimistic

'Initialize Record Count field. Some databases or cursor types will not display a value
'other then -1. For those we will hide the field
If (gRS_Log.RecordCount) = -1 Then
txtRECS.Visible = False
txtRECS.Text = gRS_Log.RecordCount & " Total Records."
Else
txtRECS.Text = gRS_Log.RecordCount & " Total Records."
End If

End Sub

Interact VB with water detector

Fri, 13 Nov 2009 06:50:52 -0700

Dear all,

I am new in harware interface. I'm designing a flood monitoring system and i want to interact the system with VB.Im using the microcontroller and water detector. When the sensor sense water, i would like to show the output on VB.The harware is very simple because im using only one water detector for testing but i didnt know the coding to interact it with VB.could anyone plz help me with the coding plz..

Interact VB with water detector

Fri, 13 Nov 2009 06:48:33 -0700

PLEASE HELP GUYS

Tue, 10 Nov 2009 17:28:26 -0700

how do i code this in vb2008 using windows forms application

You have been hired to develop a payroll software application for a company.The application should display an employee's pay given the the number of hours an employee worked during the week.The company would also like the application to display the work status of the employee eg. Full Time or Part Time. Full time employees work at least 40 hours a week and part time employees work no more than 20 hours a week. Employees that work more than 40 hours a week receive overtime pay at time and a half.

The application should display the number of hours that the employee worked. The company would also like the application to display the various taxes the employee has to have deducted from the weekly pay. Full time employees pay FICA tax at 10%, social security at 15% and other miscelaneous taxes at 10%. All taxes are calculated against the gross weekly pay which includes overtime pay. Employees that work part time don't pay any taxes.

Some full time employees contribute to a Tax Deferred Annuity (TDA) account. The employee decides how much to contribute to this account and that amount is deducted from their gross pay before any taxes are calculated and deducted from their pay. Your application should display the amount the employee wants to contribute to the TDA.

You will get the number of hours worked from the user of the application and whether the employee is contributing to the TDA and how much they are contributing.

Newbie Question Regarding DirectSound

Tue, 10 Nov 2009 04:47:55 -0700

Hi,

I am currently developing a PC game based on the game show Card Sharks, and I am experiencing a dilemma as of recently.

I am hoping to use more than one DSBuffer (I would use, for example, "SoundClipA.wav", "SoundClipB.wav", and "SoundClipC.wav").

If I were to have separate cases using the DSBuffers mentioned above, like this:

    Case PlayIntro
        Dim cur As DSCURSORS
        DSBuffer.GetCurrentPosition cur
        contBkgd(1).Visible = True
        If cur.lPlay > 104861 Then 'bytes
          Label1.Caption = "This is an EDUCATED GUESS question."
          Command1.Enabled = True
        ElseIf cur.lPlay > 82785 Then 'bytes
          If QuesRB(0).Caption = "B" Then
            WhosTurn = BluePlayer
            Label1.Caption = "Blue, this question is for you."
            BBorder(1).Visible = True
            board.Visible = False
          ElseIf QuesRB(0).Caption = "R" Then
            WhosTurn = RedPlayer
            Label1.Caption = "Red, this question is for you."
            RBorder(1).Visible = True
          End If
            Image1(0).Visible = False
            Image1(1).Visible = False
            Image1(2).Visible = False
            Image1(3).Visible = False
            Image1(4).Visible = False
            Image2(0).Visible = False
            Image2(1).Visible = False
            Image2(2).Visible = False
            Image2(3).Visible = False
            Image2(4).Visible = False
    '          Timer1.Enabled = False
        ElseIf cur.lPlay > 75250 Then
          Image2(4).Visible = True
        ElseIf cur.lPlay > 67725 Then
          Image2(3).Visible = True
        ElseIf cur.lPlay > 60200 Then
          Image1(4).Visible = True
        ElseIf cur.lPlay > 52625 Then
          Image2(2).Visible = True
        ElseIf cur.lPlay > 45150 Then
          Image1(3).Visible = True
        ElseIf cur.lPlay > 37625 Then
          Image2(1).Visible = True
        ElseIf cur.lPlay > 30100 Then
          Image1(2).Visible = True
        ElseIf cur.lPlay > 22575 Then
          Image2(0).Visible = True
        ElseIf cur.lPlay > 15050 Then
          Image1(1).Visible = True
        ElseIf cur.lPlay > 7525 Then
          Image1(0).Visible = True
        ElseIf cur.lPlay > 0 Then
          board.Visible = True
        End If

And I was to use the "SoundClipB.wav" in another case, like this:

    Case PlayIntro2
        Dim cur As DSCURSORS
        DSBuffer.GetCurrentPosition cur
        contBkgd(1).Visible = True
        If cur.lPlay > 104861 Then 'bytes
          Label1.Caption = "We surveyed 100 people..."
          Command1.Enabled = True
        ElseIf cur.lPlay > 82785 Then 'bytes
          If QuesRB(0).Caption = "B" Then
            WhosTurn = BluePlayer
            Label1.Caption = "Blue, this question is for you."
            BBorder(1).Visible = True
            board.Visible = False
          ElseIf QuesRB(0).Caption = "R" Then
            WhosTurn = RedPlayer
            Label1.Caption = "Red, this question is for you."
            RBorder(1).Visible = True
          End If
            Image1(0).Visible = False
            Image1(1).Visible = False
            Image1(2).Visible = False
            Image1(3).Visible = False
            Image1(4).Visible = False
            Image2(0).Visible = False
            Image2(1).Visible = False
            Image2(2).Visible = False
            Image2(3).Visible = False
            Image2(4).Visible = False
    '          Timer1.Enabled = False
        ElseIf cur.lPlay > 75250 Then
          Image2(4).Visible = True
        ElseIf cur.lPlay > 67725 Then
          Image2(3).Visible = True
        ElseIf cur.lPlay > 60200 Then
          Image1(4).Visible = True
        ElseIf cur.lPlay > 52625 Then
          Image2(2).Visible = True
        ElseIf cur.lPlay > 45150 Then
          Image1(3).Visible = True
        ElseIf cur.lPlay > 37625 Then
          Image2(1).Visible = True
        ElseIf cur.lPlay > 30100 Then
          Image1(2).Visible = True
        ElseIf cur.lPlay > 22575 Then
          Image2(0).Visible = True
        ElseIf cur.lPlay > 15050 Then
          Image1(1).Visible = True
        ElseIf cur.lPlay > 7525 Then
          Image1(0).Visible = True
        ElseIf cur.lPlay > 0 Then
          board.Visible = True
        End If

...what would I have to do in order to allow those DSBuffers to play in those separate cases? Would I be required to use Private Subs for those separate DSBuffers? Would anybody be able to provide a sample code?

TimeZoneInformation difference in XP and Vista

Fri, 06 Nov 2009 03:41:22 -0700

I have a problem with a difference between XP and Vista in the registry.
In the registry the information is on:
"HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\TimeZoneInformation"

In XP:
DaylightName RGE_SZ West-Europa (zomertijd)
...
StandardName RGE_SZ West-Europa (standaardtijd)

In Vista:
DaylightName RGE_SZ @tzres.dll,-281
...
StandardName RGE_SZ @tzres.dll,-282

Q1: is this a bug in Vista?
Q2: how must I interpret the tzres.dll information?

newbie help

Tue, 03 Nov 2009 16:43:03 -0700

Whenever I click the 'OK' button I get the message "No sales data to summarize." I tried to write the code so this message would only appear if the count integer was zero or less. Anyone know what I'm doing wrong?

'Project: Yacht Charters
'Programmer: Michelle Smith
'Date: November 2009
'Description: Maintain a list of yacht brands and sizes; prints
' a summary report of revenue, number of charters
' and average hours per charter.
'Folder: My Project

Public Class MainForm
' Declare module-level variables.
Private TotalRevenueDecimal, AverageHoursDecimal As Decimal
Private CharterCountInteger As Integer

Private Sub AddYachtTypeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddYachtTypeToolStripMenuItem.Click
' Add a new yacht type to the yacht list.

With YachtTypeComboBox
' Test for blank input.
If .Text <> "" Then
' Make sure item is not already on the list.
Dim ItemFoundBoolean As Boolean
Dim ItemIndexInteger As Integer
Do Until ItemFoundBoolean Or ItemIndexInteger = .Items.Count
If .Text = .Items(ItemIndexInteger).ToString() Then
ItemFoundBoolean = True
Exit Do
Else
ItemIndexInteger += 1
End If
Loop
If ItemFoundBoolean Then
MessageBox.Show("Duplicate item.", "Add Failed", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
' If it's not in the list, add it.
.Items.Add(.Text)
.Text = ""
End If
Else
MessageBox.Show("Enter a yacht type to add", _
"Missing Data", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End If
.Focus()
End With
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
' End the program.

Me.Close()
End Sub

Private Sub ClearForNextCharterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearForNextCharterToolStripMenuItem.Click
' Clear all controls.
Dim ResponseDialogResult As DialogResult
ResponseDialogResult = MessageBox.Show("Clear the form?", _
"Clear all items", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If ResponseDialogResult = DialogResult.Yes Then
YachtTypeComboBox.SelectedIndex = -1
YachtSizeComboBox.SelectedIndex = -1
ResponsiblePartyTextBox.Clear()
HoursTextBox.Clear()
PriceTextBox.Clear()
End If
End Sub

Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
' Clear all controls.
Dim ResponseDialogResult As DialogResult
ResponseDialogResult = MessageBox.Show("Clear the form?", _
"Clear all items", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If ResponseDialogResult = DialogResult.Yes Then
YachtTypeComboBox.SelectedIndex = -1
YachtSizeComboBox.SelectedIndex = -1
ResponsiblePartyTextBox.Clear()
HoursTextBox.Clear()
PriceTextBox.Clear()
End If
End Sub

Private Sub OkButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OkButton.Click
Dim PriceInteger, HoursInteger, TotalHoursInteger As Integer

Try
HoursInteger = Integer.Parse(HoursTextBox.Text)

With YachtSizeComboBox
If .SelectedIndex = 0 Then
PriceInteger = HoursInteger * 95D
ElseIf .SelectedIndex = 1 Then
PriceInteger = HoursInteger * 137D
ElseIf .SelectedIndex = 2 Then
PriceInteger = HoursInteger * 160D
ElseIf .SelectedIndex = 3 Then
PriceInteger = HoursInteger * 192D
ElseIf .SelectedIndex = 4 Then
PriceInteger = HoursInteger * 250D
ElseIf .SelectedIndex = 5 Then
PriceInteger = HoursInteger * 400D
ElseIf .SelectedIndex = 6 Then
PriceInteger = HoursInteger * 550D
If .SelectedIndex <> -1 Then
CharterCountInteger += 1
Else
MessageBox.Show("Enter a yacht size", _
"Missing Data", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End If
End If
End With
PriceTextBox.Text = PriceInteger.ToString("C")

If CharterCountInteger > 0 Then
' Calculate the average.

AverageHoursDecimal = TotalHoursInteger / CharterCountInteger
Else
MessageBox.Show("No sales data to summarize.", "Average Charter Summary", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

Catch QuantityException As FormatException
MessageBox.Show("Quantity must be numeric.", "Data entry error", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
With HoursTextBox
.Focus()
.SelectAll()
End With
End Try
TotalRevenueDecimal += PriceInteger
TotalHoursInteger += HoursInteger

End Sub

Private Sub PrintSummaryPrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintSummaryPrintDocument.PrintPage
' Handle printing and print preview when printing page.
Dim PrintFont As New Font("Arial", 12)
Dim HeadingFont As New Font("Arial", 14, FontStyle.Bold)
Dim LineHeightSingle As Single = PrintFont.GetHeight + 2
Dim HorizontalPrintLocationSingle As Single = e.MarginBounds.Left
Dim VerticalPrintLocationSingle As Single = e.MarginBounds.Top

' Set up and display heading lines.
e.Graphics.DrawString("Charter Summary", HeadingFont, _
Brushes.Black, HorizontalPrintLocationSingle, VerticalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle
e.Graphics.DrawString("by Michelle Smith", HeadingFont, _
Brushes.Black, HorizontalPrintLocationSingle, VerticalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle
e.Graphics.DrawString("Total Revenue: " & TotalRevenueDecimal.ToString("C"), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)

VerticalPrintLocationSingle += LineHeightSingle * 2
e.Graphics.DrawString("Total Number of Charters: " & CharterCountInteger.ToString(), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle * 2
e.Graphics.DrawString("Average Hours Chartered: " & AverageHoursDecimal.ToString("D2"), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)

End Sub

Private Sub PrintSummaryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintSummaryToolStripMenuItem.Click
' Assign the PrintSummaryPrintDocument to the preview.

PrintPreviewDialog1.Document = PrintSummaryPrintDocument
' Show the dialog.
PrintPreviewDialog1.ShowDialog()
End Sub
End Class

newbie help

Tue, 03 Nov 2009 16:41:17 -0700

Re: VMware VCP-410 latest dumps

Sun, 01 Nov 2009 18:30:39 -0700

as for vcp-410 latest dumps passcert is another good choice for you .more revelent information you can visit passcert

Error overflow 6

Fri, 30 Oct 2009 15:13:12 -0700

I'm getting this error. when executing the Vb code.
i know i need to change to Integer to Long, the length is more than 32767 so i need to change Integer to Long. but i dont know where to change i'm new to VB6. i have to do this change. please help me.Urgent...

Guntur.=)

Error number: 6
>> Error desc: Overflow
AE Recs = 0

Re: ADO data control help

Fri, 30 Oct 2009 00:16:18 -0700

If you want to get instant solution then main me at soni16_sachin@yahoo.co.in.

Please mail me only if you are ready to pay me....

Fat Gram Calculator

Tue, 27 Oct 2009 15:18:29 -0700

It seems to be working BUT my results are in decimal form not percent and I can not figure out how to correct that. Anyone have any ideas?

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
Dim dblCalories As Double 'To hold calories
Dim dblFat As Double 'To hold fat grams
Dim dblPercentFat As Double 'To hold percent of fat

'Read the input.
dblCalories = CDbl(txtCalories.Text)
dblFat = CDbl(txtFat.Text)

'Calculate the percent of fat.
dblPercentFat = dblFat * 9 / dblCalories

'Display the results.
lblPercentFat.Text = CStr(dblPercentFat)

Thanks

Printing Using VB6

Sun, 25 Oct 2009 19:21:36 -0700

I really need your help! I created a simple program in VB6 that fills in empty fields of information on a certificate.

All I need done is for the print button to print only the LABELS (with the background and everything else transparent or not visible) that I have on the form. I have the pre printed certificates sitting in the printer with blank lines where the program I made is supposed to fill in with the information from the LABELS.

So the problem I am having is printing. I tried PrintForm but that just prints an image of the whole form and the background ontop of my certificates. So How would I made it just print out the labels from the form?

Please help me! I would appreciate it so much! I am a beginner so I can use all the help you can give.
Thanks in advance!

(I attached an image of the rough copy of my program.)

Tony

Attachment: certificate.GIF (181108 bytes | downloaded 11 times)

ADO data control help

Sun, 25 Oct 2009 12:38:37 -0700

Hey,
I got some problems. I am making a vb project using vb6 and the database is done in .accdb format. so when i use the Ado Datacontrol i use Microsoft.ACE.OLEDB.12.0 in the data connection string to connect.

My first problem is how do i connect the database via code. In the form_load event what should i write so that i could connect to a database using the app.path syntax.
the code i am looking for
Private Sub Form_Load()

Adodc1.connectionstring=???

ADodc1.recordset=???

End Sub

(2)My second problem is: when i use the following code to search through an autonumber field it give errors.

Adodc_mov.Recordset.Find "[movID] like '*" & txtsearch.Text & "*'", , adSearchForward

Adodc_mov is the name of the ADO datacontrol name. MOVID is the autonumber field in the database. txtsearch.text is the search textbox.

My third problem is: I have created a query in my database. in the query when we write the ID the specific record is displayed. i want to run this query in VB6 and show the results in a MSFLEXgrid or something like that. i want to know how to connect the query using ado datacontrol??

HELP me.. thanks in advance..
Reply With Quote

Get VB Solution for all

Sat, 24 Oct 2009 08:46:17 -0700

Hello every one if you have any problem in VB, just send me an email on soni16_sachin@yahoo.co.in and chat with me, discuss your problem and get the solution. You will definitely get satisfaction. so hurry up!!!

Re: system...

Sat, 24 Oct 2009 08:42:46 -0700

You will get all VB solution just contact me at soni16_sachin@yahoo.co.in as soon as possible
you will definitely get satisfaction.

What is the code

Fri, 23 Oct 2009 17:27:16 -0700

Lamp Chair Sofa Table Desk

New York 25 64 23 45 14
Chicago 12 82 19 34 63
Los Angeles 54 22 17 43 35

Item Price $12.00 $17.95 $95.00 $86.50 $78.00

You program should perform the following tasks:
1. Load the sales data into a two-dimensional array using the sub procedure Load_Array (from a data file) and item prices into a one-dimensional array. You will also create a string array for the cities and a string array for the items the stores sell.
2. Write the initial data to the spreadsheet by city, sales item name, sales item, and price. You should also provide column headings for the above mentioned information which should be bold and underlined.
3. Write sales by store to the spreadsheet which includes sales and revenue for each store (output should include the stores’ city). You should also provide column headings which should be bold and underlined.
4. Write number of items sold to the spreadsheet which includes item name, number sold, and revenue generate. You should also provide column headings which should be bold and underlined.
5. Write total number of items sold to the spreadsheet.
6. Write total revenue for all stores to the spreadsheet.

Heeeeeeeeeeeeeeeeeelp!!!!!!!!

Fri, 23 Oct 2009 01:46:11 -0700

I need your help with my project.Problem is in the sendkey under Windows XP is all ok but under Vista write access denied 70.
Please help me.(rewritte my project)

THX

Dim r As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ExecuteLink(ByVal sLinkTo As String, ByVal Password As String)
Dim lRet As Long
Clipboard.SetText Password
lRet = ShellExecute(Me.hWnd, "open", sLinkTo, "", vbNull, 3)
Sleep (1500)
Sendkeys "^v", True
Sendkeys "{ENTER}", True
Clipboard.Clear
End Sub

Private Sub Image3_Click(Index As Integer)
Dim r

Select Case POSUN ' pdf formaty volanie z databazy
Case 11000
ExecuteLink App.path & "/Popis/SK/" & Left(DB1.Columns(0), 2) & ".pdf", "xxx"

End Sub
I need your help with my project.Problem is in the sendkey under Windows XP is all ok but under Vista write access denied 70.
Please help me.(rewritte my project)

THX

Dim r As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ExecuteLink(ByVal sLinkTo As String, ByVal Password As String)
Dim lRet As Long
Clipboard.SetText Password
lRet = ShellExecute(Me.hWnd, "open", sLinkTo, "", vbNull, 3)
Sleep (1500)
Sendkeys "^v", True
Sendkeys "{ENTER}", True
Clipboard.Clear
End Sub

Private Sub Image3_Click(Index As Integer)
Dim r

Select Case POSUN ' pdf formaty volanie z databazy
Case 11000
ExecuteLink App.path & "/Popis/SK/" & Left(DB1.Columns(0), 2) & ".pdf", "xxx"

End Sub

Sendkey under Vista

Fri, 23 Oct 2009 00:09:10 -0700

Help VB5

Thu, 22 Oct 2009 00:02:49 -0700