Re: Creating password protected Zip file - Visual Basic Discussion Boards

Re: How do I make multiple sqlDataReaders work

reykentj14-Apr-07 8:36

14-Apr-07 8:36

I did not originally have the sql server attribute declared
Your first question prompted me to insert that and try again.
When I did, I got a deployment error on the byref use. I am currently
trying to find another attribute to solve that problem. Here is the code

<microsoft.sqlserver.server.sqlprocedure()> _
Public Shared Sub sbBuildRecordTypeProfitnLossTable(ByVal Account_Summary_Name As String, _
ByVal RecordTypeQueryName As String, _
ByVal DirectoryPath As String, _
ByVal Run_Select As Long, _
ByVal Department As String, _
ByVal Record_Type As Single, _
ByVal record_count As Long, _
ByVal Pdate As Date, _
ByRef PL_Return As Profit_Loss_Return)

Dim Wrec As New Profit_Loss_Summary_Record
Dim ProfitnLossRec As New Profit_Loss_Summary_Record
Dim wSalesRec As New Profit_Loss_Summary_Record
Dim TotMonthly_Item As Decimal = 0
Dim TotYearly_Item As Decimal = 0
Dim result As Long = 0
Dim SalesAccountNo As Long = 0
Dim AccountStor As Long = 0
Dim StrSalesAccountNo As String = ""
Dim CGAccountNo As Long = 0
Dim Branch_Name As String = ""
Dim ReturnValues As New Profit_Loss_Return
Dim wdepartment As String = ""
Dim sql As String = ""
Dim RecordTypeSet As SqlDataReader
Dim RecordTypeConnection As New SqlConnection
Dim RecordTypeCommand As New SqlCommand
On Error GoTo Err_sbBuildRecordTypeProfitnLossTable
sql = File.ReadAllText(DirectoryPath & RecordTypeQueryName)
RecordTypeConnection = New SqlConnection("context connection = true")
RecordTypeConnection.Open()
RecordTypeCommand = New SqlCommand(Sql, RecordTypeConnection)
RecordTypeSet = RecordTypeCommand.ExecuteReader()
While RecordTypeSet.Read()
AccountStor = RecordTypeSet!AccountNo
If AccountStor = 53410 Then
record_count = record_count
End If
sbBuildSummaryProfitnLossTableRec(RecordTypeSet, Record_Type, Department, Pdate, ProfitnLossRec)
If Record_Type = 2 Then
CGAccountNo = ProfitnLossRec.AccountNo
SalesAccountNo = CGAccountNo - 10000
StrSalesAccountNo = SalesAccountNo
sbGetSummaryRec(Account_Summary_Name, SalesAccountNo, wSalesRec)
If wSalesRec.AccountNo <> StrSalesAccountNo Then
wSalesRec = ProfitnLossRec
wSalesRec.AccountNo = SalesAccountNo
wSalesRec.Monthly_item = 0
wSalesRec.Yearly_item = 0
wSalesRec.Record_Type = 1
wSalesRec.Record_Type_Name = "Sales"
wSalesRec.Description = Wrec.Description
record_count = record_count + 1
sbUpdateSummaryProfitnLossTableRecord(Account_Summary_Name, wSalesRec, record_count)
Else
End If
End If
TotMonthly_Item = TotMonthly_Item + ProfitnLossRec.Monthly_item
TotYearly_Item = TotYearly_Item + ProfitnLossRec.Yearly_item
record_count = record_count + 1
If ProfitnLossRec.AccountNo = 53410 Then
record_count = record_count
End If
If Run_Select = 3 Then
ProfitnLossRec.Branch_Name = ""
End If
sbUpdateSummaryProfitnLossTableRecord(Account_Summary_Name, ProfitnLossRec, record_count)
End While
Branch_Name = ProfitnLossRec.Branch_Name
RecordTypeSet.Close()
RecordTypeCommand.Dispose()
RecordTypeConnection.Close()
ReturnValues.record_count = record_count
ReturnValues.Monthly_Total = TotMonthly_Item
ReturnValues.Yearly_total = TotYearly_Item
ReturnValues.Branch_Name = Branch_Name
PL_Return = ReturnValues
Exit_sbBuildRecordTypeProfitnLossTable:
Exit Sub

<microsoft.sqlserver.server.sqlprocedure()> _
Public Shared Sub sbUpdateSummaryProfitnLossTableRecord(ByVal ProfitnLossName As String, _
ByVal Wrec As Profit_Loss_Summary_Record, _
ByVal record_count As Long)
Dim sql As String
Dim crlf As String = ""
Dim Quote As String = ""
Dim SummaryProfitConnection As SqlConnection
Dim SummaryProfitCommand As SqlCommand
Dim SummaryProfitReader As SqlDataReader
On Error GoTo err_sbUpdateSummaryProfitnLossTableRecord
If fnProfitNLossNotZeroRecord(Wrec) Then
crlf = Chr(13) & Chr(10)
Quote = Chr(39)
sql = ""
sql = sql & "Insert INTO " & ProfitnLossName & crlf
sql = sql & "(" & crlf
sql = sql & " Record_Index" & crlf
sql = sql & ", Record_Type" & crlf
sql = sql & ", Record_Type_Name" & crlf
sql = sql & ", Branch_Name, Department" & crlf
sql = sql & ", AccountNo" & crlf
sql = sql & ", Description" & crlf
sql = sql & ", Monthly_Item" & crlf
sql = sql & ", MonthlyPercent" & crlf
sql = sql & ", Yearly_Item" & crlf
sql = sql & ", YearlyPercent" & crlf
sql = sql & ", LastEffectiveDate" & crlf
sql = sql & ", Asofdate" & crlf
sql = sql & ")" & crlf
sql = sql & "Values ( " & crlf
sql = sql & record_count & crlf
sql = sql & "," & Quote & Wrec.Record_Type & Quote & crlf
sql = sql & "," & Quote & Wrec.Record_Type_Name & Quote & crlf
sql = sql & "," & Quote & Wrec.Branch_Name & Quote & crlf
sql = sql & "," & Quote & Wrec.Department & Quote & crlf
sql = sql & "," & Quote & Wrec.AccountNo & Quote & crlf
sql = sql & "," & Quote & Wrec.Description & Quote & crlf
sql = sql & "," & Quote & Wrec.Monthly_item & Quote & crlf
sql = sql & "," & Quote & Wrec.MonthlyPercent & Quote & crlf
sql = sql & "," & Quote & Wrec.Yearly_item & Quote & crlf
sql = sql & "," & Quote & Wrec.YearlyPercent & Quote & crlf
sql = sql & "," & Quote & Wrec.LastEffectiveDate & Quote & crlf
sql = sql & "," & Quote & Wrec.AsofDate & Quote & crlf
sql = sql & ");" & crlf
End If
SummaryProfitConnection = New SqlConnection("context connection = true")
SummaryProfitConnection.Open() "ABORTED HERE without SQl Attribute. Cannot get here with it!!" Smile | :)

SummaryProfitCommand = New SqlCommand(Sql, SummaryProfitConnection)
SummaryProfitReader = SummaryProfitCommand.ExecuteReader()
SummaryProfitCommand.Dispose()
SummaryProfitConnection.Close()
exit_sbUpdateSummaryProfitnLossTableRecord:
Exit Sub
err_sbUpdateSummaryProfitnLossTableRecord:
fnHandleError("sbUpdateSummaryProfitnLossTableRecord")
Resume exit_sbUpdateSummaryProfitnLossTableRecord
End Sub

rkj

Re: How do I make multiple sqlDataReaders work

Colin Angus Mackay14-Apr-07 10:41

Colin Angus Mackay

14-Apr-07 10:41

reykentj wrote:
"ABORTED HERE without SQl Attribute. Cannot get here with it!!"

It "aborted" with what error message?!! Do you actually want help? This is the third time you've been asked for the error message. Why are you being so evasive?

I'd love to help, but I'm not going to read through the code looking for the cause of an error until I know what error I'm supposed to be looking for.

Upcoming events:
* Glasgow: Introduction to AJAX (2nd May), SQL Server 2005 - XML and XML Query Plans, Mock Objects, SQL Server Reporting Services...

Never write for other people. Write for yourself, because you have a passion for it. -- Marc Clifton

My website

Re: How do I make multiple sqlDataReaders work [modified]

reykentj14-Apr-07 12:29

reykentj

14-Apr-07 12:29

Running the code last provided
"Error The context connection is already in use. occurred in Module: sbUpdateSummaryProfitnLossTableRecord"
"Error 5 occurred in Module: sbUpdateSummaryProfitnLossTableRecord" was obtained from my error handling
I captured the following output.
A first chance exception of type 'System.InvalidOperationException' occurred in System.Data.dll
A first chance exception of type 'System.IO.FileNotFoundException' occurred in Clrtest
I think I am trying to use MARS in this environment. Is this even possible?

rkj

-- modified at 0:33 Sunday 15th April, 2007

User controls and Typed dataset

steve_rm13-Apr-07 9:36

steve_rm

13-Apr-07 9:36

Hello,

[VS 2005]

I have created a user control that has a tab control, text boxes, combo boxes. I have a typed dataset with some datatables and tableAdapters for doing the inserts and the delete, and updates.

I build the control and when I want to use this control in another project.
1) open a new windows form project
2) Create a new tab on the tool box
3) Choose items
4) Browse to the dll in the release folder.

My question when I add the dll it also adds the typed dataset, table adapters. I have done something wrong as I think it should be the control itself and not the table adapters and the dataset. As when I click ok with the above selected it add them to my toolbox.

Can anyone explain about this, and if I have done done something wrong.

Many thanks for your help,

Steve

How to get all objects or controls in a form?

Kilua1113-Apr-07 7:18

Kilua11

13-Apr-07 7:18

How to get or to collect all objects or controls in a form using vb.net? For example of controls are Textbox, Combobox and check box.

Re: How to get all objects or controls in a form?

Dave Kreskowiak13-Apr-07 7:47

Dave Kreskowiak

13-Apr-07 7:47

Every form has a Controls collection. This is where you'll find all the controls on the form. There's a little bit of a "gotcha" though. Controls can have Control collections of their own, so you can end up having controls inside other controls, like RadioButtons in a GroupBox or Panel.

You can enumerate the controls like this:

For Each c As Control In Me.Controls
    If TypeOf c Is Panel Then
        Dim tb As Panel = DirectCast(c, Panel)
        ' do whatever you want with the Panel you found
    End If
Next

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Creating password protected Zip file

yalandunya13-Apr-07 5:42

yalandunya

13-Apr-07 5:42

I'm trying to create password protected zip file from my vb.net application. But could not Smile | :)

Is there anyway or component (especially free) which creates password protected zip files.

Thanks.

Re: Creating password protected Zip file

Sathesh Sakthivel13-Apr-07 7:43

Sathesh Sakthivel

13-Apr-07 7:43

Try with this Code.

Dim ZipFile As ChilkatZip2<br />
<br />
Private Sub Command1_Click()<br />
    <br />
    ' Get the zip file name<br />
    CommonDialog1.ShowOpen<br />
    CommonDialog1.CancelError = True<br />
    SourceFile.Text = CommonDialog1.FileName<br />
     <br />
End Sub<br />
<br />
Private Sub Command2_Click()<br />
    <br />
    ' Create a ChilkatZip object<br />
    Set ZipFile = New ChilkatZip2<br />
    ZipFile.UnlockComponent UnlockCode.Text<br />
    ZipFile.NewZip OutputZip.Text<br />
    <br />
    ' To create a WinZip-compatible password-protected Zip, simply<br />
    ' set the PasswordProtect property to 1, and set a password.<br />
    ' To unzip, WinZip will prompt for this password.<br />
    ZipFile.PasswordProtect = 1<br />
    ZipFile.SetPassword "secret"<br />
    <br />
    ' Add the disk file to the Zip object<br />
    ZipFile.AppendFiles SourceFile.Text, 0<br />
    <br />
    ' See if anything was added.<br />
    If (ZipFile.NumEntries = 0) Then<br />
        ZipStatus.Caption = "Error, no files added to the Zip archive."<br />
        Set ZipFile = Nothing<br />
        Exit Sub<br />
    End If<br />
    <br />
    ' Compress and write to disk.<br />
    success = ZipFile.WriteZip()<br />
    If (success = 0) Then<br />
        MsgBox ZipFile.LastErrorText<br />
        Exit Sub<br />
    End If<br />
<br />
    ' How much compression occured?<br />
    Dim e As ChilkatZipEntry2<br />
    Set e = ZipFile.GetEntryByIndex(0)<br />
    If (Not (e Is Nothing)) Then<br />
        origSize = e.UncompressedLength<br />
        compressedSize = e.CompressedLength<br />
        ZipStatus.Caption = "Success." + vbCrLf + Str(origSize) + " bytes compressed to " + Str(compressedSize) + " bytes"<br />
        Set e = Nothing<br />
    End If<br />
    <br />
    ZipFile.CloseZip<br />
    <br />
    Set ZipFile = Nothing<br />
    <br />
End Sub<br />
<br />
Private Sub Form_Load()<br />
    OutputZip.Text = CurDir$ + "\outputFile.zip"<br />
    <br />
End Sub<br />

Regards,

Satips.

Re: Creating password protected Zip file

Dave Kreskowiak13-Apr-07 7:49

Dave Kreskowiak

13-Apr-07 7:49

The code is nice and all, but where's he going to get the ChilkatZip2 class library from?

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Creating password protected Zip file

Dave Kreskowiak13-Apr-07 7:48

Dave Kreskowiak

13-Apr-07 7:48

You can use the #ZipLib to do this. Find it here[^].

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Very Urgent

Devkranth Kishore Vanja13-Apr-07 2:00

Devkranth Kishore Vanja

13-Apr-07 2:00

hi to alll

i need to blink the label in vb.net

plz help !!!!!!!!!!!

thanks in Advance;)

Re: Very Urgent

Dave Kreskowiak13-Apr-07 3:12

Dave Kreskowiak

13-Apr-07 3:12

devkranth wrote:
Very Urgent

No, it's not. Very Urgent is having to pee very badly. Hence, the icon for the Pee Pee Dance, Jig | [Dance]

devkranth wrote:
i need to blink the label in vb.net

You'll have to create a custom label control for this, easily done by inheriting from the existing Label class. You'll need to add a Timer to your control, and a couple of properties and methods so you can set the blink rate and start and stop the blinking. Then it's just a matter of making the foreground color match the background color and changing it back to what it's supposed to be on every timer tick.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Very Urgent

Thomas Stockwell14-Apr-07 6:53

Thomas Stockwell

14-Apr-07 6:53

Use a timer to set the Visible property of the label to either true or false.

Regards,
Thomas Stockwell

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Visit my homepage Oracle Studios[^]

How to Resize Paper in Crystal Report?

thanhtc24913-Apr-07 1:31

thanhtc249

13-Apr-07 1:31

I have a specified printer that only can print paper with 78mm of width. So how to resize the width of report to fix in that printer.
Help me please or send solution to my email address:
Thanhtc249@yahoo.com.vn
thanks.

operating system accounts(to login) in vb.net

amaneet13-Apr-07 0:28

amaneet

13-Apr-07 0:28

I am using the following code to list the accounts of my operating system.
Currently i have just two accounts namely
1.Administator
2.Guest
But it shows 6 accounts.
can i filter the query to make it to show the actual accounts.

Dim oQuery As New Management.ObjectQuery("select * from <br />
 Win32_Account WHERE SIDType = 1")<br />
         Dim osearch As New ManagementObjectSearcher(oQuery)<br />
         Dim ocollection As ManagementObjectCollection = osearch.Get<br />
         Dim oresult As ManagementObject<br />
         For Each oresult In ocollection<br />
             TextBox1.Text = oresult("Name").ToString & " "<br />
         Next

Thank You
Pankaj

Re: operating system accounts(to login) in vb.net

lucjon13-Apr-07 0:44

lucjon

13-Apr-07 0:44

I think it is showing the real accounts, with the `hidden` accounts, such as the help and support account, if you have VMWare installed, __vmware_user__ and other things.
You could try:

For Each oresult In ocollection
Dim oname As String = oresult("Name").ToString
If Not oname.StartsWith("SUPPORT") Then
   If oname <> "__vmware_user__" Then
      If oname <> "ASPNET" Then
          If oname <> "HelpAssistant" Then
              textBox1.Text = oname & " "
          End If
       End If
   End If
End If

I don't know if this'll work very well.

using Foxpro DB as backend to Visual Basic 2006

preci13-Apr-07 0:06

preci

13-Apr-07 0:06

hey there,

i am working in an organisation that uses foxPro for its DB needs. We are trying to convert it to SQL. how do i do that? also is there a possibility to develop a VB (not .Net) appln that uses foxpro as its back end? If there is please give me a sample of that code or where i could find it. Please some help me out with some insights.

signing off is preci

Re: using Foxpro DB as backend to Visual Basic 2006

Dave Kreskowiak13-Apr-07 3:49

Dave Kreskowiak

13-Apr-07 3:49

preci wrote:
We are trying to convert it to SQL. how do i do that?

No idea. I've never used FoxPro and, most likely, never will. I would assume that it would take a re-write of the entire database.

preci wrote:
also is there a possibility to develop a VB (not .Net) appln that uses foxpro as its back end?

Sure. You'd use the OleDb database objects, just like you would with an Access database. YOu can find the correct connection strings here[^] at ConnectionStrings.com.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

converting/mapping Foxpro DB to Visual Basic 2006

preci13-Apr-07 0:05

preci

13-Apr-07 0:05

signing off is preci

Very urgent problem in crystal reports please help

Shuaib wasif khan13-Apr-07 0:02

Shuaib wasif khan

13-Apr-07 0:02

i want to show records between two dates and my date datatype is varchar
i am inserting date in yyyy/mm/dd format
my record selection formula is
ir.RecordSelectionFormula = " {ViewPartyOrder.pcode}=' " + ComboBox2.Text + " ' and {viewpartyorder.orderdate}>=' " + DateTimePicker4.Value.ToString("yyyy/MM/dd") + " ' and {viewpartyorder.orderdate}<=' " + DateTimePicker3.Value.ToString("yyyy/MM/dd") + " ' "

ir is the object of crystal report
when i am using this i get blank record
but when i apply this into another table it works fine

Re: Very urgent problem in crystal reports please help

amaneet13-Apr-07 0:31

amaneet

13-Apr-07 0:31

try using ParameterRangeValue
Hope this may help u.

what is parameter range value how to use

Shuaib wasif khan13-Apr-07 1:11

Shuaib wasif khan

13-Apr-07 1:11

i m new in crystal report please send me some code

sql query for month...

Member 387988112-Apr-07 22:55

Member 3879881

12-Apr-07 22:55

Hi based on my month and year input,
i need number of days in a month and number of sundays in that month, using sql query...,
i post this ques in sql place...,
but there i didn't get any reply..,
So if u guys know the query plz send me...,

Magi

Re: sql query for month...

jhoga13-Apr-07 5:24

jhoga

13-Apr-07 5:24

Doing that in vb fairly easy, do you have to do it with SQL.

exe in the system tray

amaneet12-Apr-07 21:04

amaneet

12-Apr-07 21:04

Hi all,
My Question is concerned with the setup and deployment project in vb.net2005.
I wanted to know.... , Is there any way that I may place my exe - into the system tray after complition of the installation of my program - programatically in vb.net 2005
Thanks and regards
Pankaj Garg

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.