vbCity Topics Updated

ASP.NET / Uncheck certain check box in grid view (1)

mistyfy — Tue, 14 Jul 2009 12:47:13 GMT

Replies: 1	Last posted by parshu	on 7/14/2009 4:47:13 AM PST
	Started by mistyfy	on 7/14/2009 3:00:24 AM PST

I have a check box in gridview , as a function like radio button , which just able to click on 1 check box , but i'm not able to uncheck the previous checked box when another row of check box is checked.

Code:

Dim chkCount As Integer
        Dim Old_Count As Integer = 0
        Dim chb As CheckBox = CType(sender, CheckBox)
        Dim gvr As GridViewRow = CType(chb.NamingContainer, GridViewRow)

        ' for 1st click
        If Len(Label_ItemCodeH.Text) = 0 Then
            chkCount = gvr.RowIndex

        End If

        While gvr.RowIndex = chkCount
            chb.Checked = False
            Exit While
        End While
        Label_ItemCodeH.Text = gvr.Cells(1).Text
        chb.Checked = True

ASP.NET / login screen (1)

rjhe22 — Tue, 14 Jul 2009 12:43:05 GMT

Replies: 1	Last posted by parshu	on 7/14/2009 4:43:05 AM PST
	Started by rjhe22	on 7/14/2009 4:27:20 AM PST

hi
i was wondering how do u make sure the username and password you use matches whats in the database

ASP.NET / Calling Java Script from Code Behind approach (1)

hsr — Tue, 14 Jul 2009 12:40:16 GMT

Replies: 1	Last posted by parshu	on 7/14/2009 4:40:16 AM PST
	Started by hsr	on 6/15/2009 10:37:36 PM PST

Hi Friends,
I need to call javascript function from code behind and I am using registerStartupScript as below

Quote:

string jscript="<script>sort('" + field + "');</script>";
this.RegisterStartupScript("Startup",jscript);

ths sort method is defined in the aspx file and as this is to implemented on a product (Enterprise level) does is has any limitation where it could break
as this is the first time I am using and want to know if it has got any limitation and the call to this is when the request is postback any suggestion or comments on this will be appreciated.

ASP.NET / no records return (2)

yan19454 — Tue, 14 Jul 2009 12:33:08 GMT

Replies: 2	Last posted by yan19454	on 7/14/2009 4:33:08 AM PST
	Started by yan19454	on 7/13/2009 10:18:03 AM PST

store procedure:

CREATE PROCEDURE [dbo].[Get_Certifcation_by_Date]
@DateFrom datetime,
@DateToIn datetime,
@cc varchar(220)

with recompile
AS
SET NOCOUNT ON
begin
declare @DateTo datetime
select @DateTo = @DateToIn+1

--need to add date range and get the total count for the employee get the selected training
if @cc='All'
  begin
   --module log
  SELECT distinct [EmployeeName] , CCName, [Submit Time]
       FROM ChestTubeNameTime h
  WHERE [Submit Time] >= @DateFrom and [Submit Time]<@DateTo

end
else
begin
   SELECT distinct [EmployeeName] , CCName, [Submit Time]
       FROM ChestTubeNameTime h
  WHERE [Submit Time] >= @DateFrom and [Submit Time]<@DateTo and CC like @cc
end

end

GO

  <asp:SqlDataSource ID="dsCEU" runat="server" SelectCommand="Get_Certifcation_by_Date"
            ConnectionString="<%$ ConnectionStrings:CEU %>" SelectCommandType="StoredProcedure" >


            <SelectParameters>

    <asp:QueryStringParameter Name="DateToIn" QueryStringField="ToDate" />
      <asp:QueryStringParameter Name="DateFrom" QueryStringField="FromDate" />
        <asp:QueryStringParameter Name="CC" QueryStringField="PKey" />
  </SelectParameters>

          </asp:SqlDataSource>

query string pass and sp return records.

CEUReportByDates.aspx?PKey=" + strAllCC & "&ToDate=" + HttpUtility.UrlDecode(lblDateFrom.Text.ToString) + "&FromDate=" + HttpUtility.UrlDecode(lblDateTo.Text.ToString)
no record come out

do not know what is wrong ?

VB6 General / File transfer using modem (0)

makdu — Tue, 14 Jul 2009 11:17:09 GMT

Replies: 0	Last posted by	on 7/14/2009 3:17:09 AM PST
	Started by makdu	on 7/14/2009 3:17:09 AM PST

Hi all,
Using Modem and MSCOMM, I dialed a computer from another computer. I am able to send some text messages. Also i read from a text file and send the data to the another computer, where it is collected to a text file.
My problem is, I want to send a file, like zip file from one computer and receive it in another computer with same name ,through MSCOMM and MODEM. What should be the starting point for this ?

VB6 General / Runtime Error 91 in development environment (2)

sintaq — Tue, 14 Jul 2009 10:01:11 GMT

Replies: 2	Last posted by sintaq	on 7/14/2009 2:01:11 AM PST
	Started by sintaq	on 7/13/2009 7:23:30 AM PST

Hi all...

First of all, i've used the search function here and also googling in order to help me overcome my problem but yet it doesn't help me..

In my development environment, I have several dlls and a ocx file which i started in a project group. the problem occurred when i try to run my program using the source codes. it hit error when i wanna use one of my object in my ocx file. E.g:

myobject.loadname whereas loadname is a function for the object in my ocx.

however, when i compiled all the dlls and ocx file..i didnt get this kind or error. From the homework that i've done, i understood that its has to do with my initializing object.
but what puzzled me, is that the problem doesnt occur when the dlls and ocx are compiled and i run the program from the main exe.

any guides? thank you in advance. really seeking for your help.

p/s: i'll post the source code tomorrow as currently i'm not in the office.

ADO.NET & XML / i only got 256 characters (2)

wawawnsur — Tue, 14 Jul 2009 09:56:25 GMT

Replies: 2	Last posted by Kulrom	on 7/14/2009 1:56:25 AM PST
	Started by wawawnsur	on 7/13/2009 2:28:25 AM PST

i used ms-sql 2000 for database,
i create function with return varchar(8000), but when i call this function i only get result maximum 256 characters.
who can help me.
i need solution as soon as possible, because the project is almost to finish.
my customer push me for this.

thax
ready

VB.NET / this code work for most emails (1)

xardoz — Tue, 14 Jul 2009 09:46:39 GMT

Replies: 1	Last posted by Kulrom	on 7/14/2009 1:46:39 AM PST
	Started by xardoz	on 7/13/2009 9:57:35 PM PST

I am trying to send to CellNumber@vtext.com , which fails.
But most other emails it works.... WTF?

All I get with
Code:

Debug.Print(Err.Description.ToString, MsgBoxStyle.Critical, "")

is:
On QWest I Get : Mailbox unavailable. The server response was: 71-37-4-204.tukw.qwest.net (PCName) [IP address] is currently not
On ClearWire I get :Mailbox unavailable. The server response was: 66-233-140-237.abd.clearwire-dns.net (PCName) [IP address] is
I do not know why the debug is truncated!!

If I send from Thunderbird or Outlook no issues....

Code:

    Function SendTextMessage(ByVal sSender As String, _
                             ByVal sReceivers As String, _
                             ByVal sHost As String, _
                             ByVal sUser As String, _
                             ByVal sPassword As String) As Boolean

        SendTextMessage = False
        If Trim(sReceivers) = "" Then Exit Function

        Dim message As New System.Net.Mail.MailMessage(sSender, sReceivers, "Header", Trim(RichTextBox1.Text.ToString))
        'message.CC= ""
        message.IsBodyHtml = False

        Dim server As New System.Net.Mail.SmtpClient(sHost)
        server.Credentials = New System.Net.NetworkCredential(sSender, sPassword, sHost)
        server.Port = 26
        On Error Resume Next

        server.Send(sSender, sReceivers, Now.ToString, "a")
        Debug.Print(server.Host.ToString(), MsgBoxStyle.Critical, "")

        'server.SendAsync(message, Me)
        SendTextMessage = (Err.Number = 0)
        Debug.Print(Err.Description.ToString, MsgBoxStyle.Critical, "")
    End Function

Reporting.NET / Problem with Group Header and Multiple Columns in Crystal Report (0)

DewaldLF — Tue, 14 Jul 2009 06:51:59 GMT

Replies: 0	Last posted by	on 7/13/2009 10:51:59 PM PST
	Started by DewaldLF	on 7/13/2009 10:51:59 PM PST

Hi.
I have a problem with the group header being orphaned when I set the detailed section to display in multiple columns. I create a report that has a main headline( This is the group header), then a sub headline and then text( these are in the detail section). The problem is that I can't set the 'Keep Group Together' option.

Something like this happens when I set multiple columns.
----------------------------------------------------------------
Main Headline(group header)    Sub Healine
Sub Headline        Text
Text
            Sub Headline
Sub Headline        Text
Text
            Main Headline(group header)
Sub Headline        Sub Healine
Text            Text

Main Headline(group header)
-----------------------------------------------------------------

I want it to do this if there is not enough space to write the details section under the group header
-----------------------------------------------------------------
Main Headline(group header)    Main Headline(group header)
Sub Headline        Sub Headline
Text            Text

Sub Headline        Sub Headline
Text            Text

Sub Headline        Main Headline(group header)
Text            Sub Headline
            Text
-------------------------------------------------------------------

VB6 & WinAPI / Printing form using commondialog1.showprinter (0)

firoz.raj — Tue, 14 Jul 2009 06:28:11 GMT

Replies: 0	Last posted by	on 7/13/2009 10:28:11 PM PST
	Started by firoz.raj	on 7/13/2009 10:28:11 PM PST

Can anyone tell me .how should i call printdlg.dll command using print button.Kindly help me.Any help would be Greatly appreciated.Here is the code what i have written.

Code:

Private Declare Function PrintDlg Lib "COMDLG32.DLL" Alias "PrintDlgA" (prtdlg As TPRINTDLG) As Integer

Public Enum EPrintDialog
    PD_ALLPAGES = &H0
    PD_SELECTION = &H1
    PD_PAGENUMS = &H2
    PD_NOSELECTION = &H4
    PD_NOPAGENUMS = &H8
    PD_COLLATE = &H10
    PD_PRINTTOFILE = &H20
    PD_PRINTSETUP = &H40
    PD_NOWARNING = &H80
    PD_RETURNDC = &H100
    PD_RETURNIC = &H200
    PD_RETURNDEFAULT = &H400
    PD_SHOWHELP = &H800
    PD_ENABLEPRINTHOOK = &H1000
    PD_ENABLESETUPHOOK = &H2000
    PD_ENABLEPRINTTEMPLATE = &H4000
    PD_ENABLESETUPTEMPLATE = &H8000
    PD_ENABLEPRINTTEMPLATEHANDLE = &H10000
    PD_ENABLESETUPTEMPLATEHANDLE = &H20000
    PD_USEDEVMODECOPIES = &H40000
    PD_USEDEVMODECOPIESANDCOLLATE = &H40000
    PD_DISABLEPRINTTOFILE = &H80000
    PD_HIDEPRINTTOFILE = &H100000
    PD_NONETWORKBUTTON = &H200000
End Enum

Private Type DEVNAMES
    wDriverOffset As Integer
    wDeviceOffset As Integer
    wOutputOffset As Integer
    wDefault As Integer
End Type

Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32

Private Type DevMode
    dmDeviceName As String * CCHDEVICENAME
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * CCHFORMNAME
    dmUnusedPadding As Integer
    dmBitsPerPel As Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End Type

' New Win95 Page Setup dialogs are up to you
Private Type POINTL
    X As Long
    Y As Long
End Type

Private Type RECT
    Left As Long
    TOp As Long
    Right As Long
    Bottom As Long
End Type

Private Type TPAGESETUPDLG
    lStructSize As Long
    hWndOwner As Long
    hDevMode As Long
    hDevNames As Long
    flags As Long
    ptPaperSize As POINTL
    rtMinMargin As RECT
    rtMargin As RECT
    hInstance As Long
    lCustData As Long
    lpfnPageSetupHook As Long
    lpfnPagePaintHook As Long
    lpPageSetupTemplateName As Long
    hPageSetupTemplate As Long
End Type

' EPaperSize constants same as vbPRPS constants
Public Enum EPaperSize
    epsLetter = 1 ' Letter, 8 1/2 x 11 in.
    epsLetterSmall ' Letter Small, 8 1/2 x 11 in.
    epsTabloid ' Tabloid, 11 x 17 in.
    epsLedger ' Ledger, 17 x 11 in.
    epsLegal ' Legal, 8 1/2 x 14 in.
    epsStatement ' Statement, 5 1/2 x 8 1/2 in.
    epsExecutive ' Executive, 7 1/2 x 10 1/2 in.
    epsA3 ' A3, 297 x 420 mm
    epsA4 ' A4, 210 x 297 mm
    epsA4Small ' A4 Small, 210 x 297 mm
    epsA5 ' A5, 148 x 210 mm
    epsB4 ' B4, 250 x 354 mm
    epsB5 ' B5, 182 x 257 mm
    epsFolio ' Folio, 8 1/2 x 13 in.
    epsQuarto ' Quarto, 215 x 275 mm
    eps10x14 ' 10 x 14 in.
    eps11x17 ' 11 x 17 in.
    epsNote ' Note, 8 1/2 x 11 in.
    epsEnv9 ' Envelope #9, 3 7/8 x 8 7/8 in.
    epsEnv10 ' Envelope #10, 4 1/8 x 9 1/2 in.
    epsEnv11 ' Envelope #11, 4 1/2 x 10 3/8 in.
    epsEnv12 ' Envelope #12, 4 1/2 x 11 in.
    epsEnv14 ' Envelope #14, 5 x 11 1/2 in.
    epsCSheet ' C size sheet
    epsDSheet ' D size sheet
    epsESheet ' E size sheet
    epsEnvDL ' Envelope DL, 110 x 220 mm
    epsEnvC3 ' Envelope C3, 324 x 458 mm
    epsEnvC4 ' Envelope C4, 229 x 324 mm
    epsEnvC5 ' Envelope C5, 162 x 229 mm
    epsEnvC6 ' Envelope C6, 114 x 162 mm
    epsEnvC65 ' Envelope C65, 114 x 229 mm
    epsEnvB4 ' Envelope B4, 250 x 353 mm
    epsEnvB5 ' Envelope B5, 176 x 250 mm
    epsEnvB6 ' Envelope B6, 176 x 125 mm
    epsEnvItaly ' Envelope, 110 x 230 mm
    epsenvmonarch ' Envelope Monarch, 3 7/8 x 7 1/2 in.
    epsEnvPersonal ' Envelope, 3 5/8 x 6 1/2 in.
    epsFanfoldUS ' U.S. Standard Fanfold, 14 7/8 x 11 in.
    epsFanfoldStdGerman ' German Standard Fanfold, 8 1/2 x 12 in.
    epsFanfoldLglGerman ' German Legal Fanfold, 8 1/2 x 13 in.
    epsUser = 256 ' User-defined
End Enum

' EPrintQuality constants same as vbPRPQ constants
Public Enum EPrintQuality
    epqDraft = -1
    epqLow = -2
    epqMedium = -3
    epqHigh = -4
End Enum

Public Enum EOrientation
    eoPortrait = 1
    eoLandscape
End Enum

here is the following code which i have written for print button. i want to call Private Declare Function PrintDlg Lib "COMDLG32.DLL" Alias "PrintDlgA" (prtdlg As TPRINTDLG) As Integer this function at print button.Kindly help me.any help would be highly appreciated.

Code:

Private Sub btPrint_Click()
Dim frm As IspecialForm
Set frm = Me.ActiveForm
If frm Is Nothing Then Exit Sub
On Error GoTo btprint_Error
CommonDialog1.PrinterDefault = True
CommonDialog1.Orientation = cdlPortrait
CommonDialog1.CancelError = True 'this will cause the control to generate error when cancel button is clicked
CommonDialog1.ShowPrinter
btprint_Error:
If Err.Number = 32755 Then
Exit Sub
End If
frm.GetTextBoxInvisible
frm.Refresh
frm.PrintForm
Printer.EndDoc
frm.SetStartDesign
Exit Sub
End Sub

VB6 & WinAPI / Printing form using print dialog box (0)

firoz.raj — Tue, 14 Jul 2009 06:18:40 GMT

Replies: 0	Last posted by	on 7/13/2009 10:18:40 PM PST
	Started by firoz.raj	on 7/13/2009 10:18:40 PM PST

can anybody tell me how should i call this dll funtion at print button .at print button instead of using commondialog1.showprinter.
Kindly help me.any help would be Greatly appreciated.

Code:

this is the following code for print button.Kindly help me.any help would be Highly appreciated.

Code:

VB6 & WinAPI / Calling Print dialog box using vb6 (0)

firoz.raj — Tue, 14 Jul 2009 05:53:38 GMT

Replies: 0	Last posted by	on 7/13/2009 9:53:38 PM PST
	Started by firoz.raj	on 7/13/2009 9:53:38 PM PST

Can anyone tell me .How should i implement for print dialog box.here is the following code which i have written in mCommonDialog.bas file.Kindly let me know
any help would be highly appreciated.i want to call this print dialog box when user click on print button.

Code:

Function VBPrintDlg(hdc As Long, Optional PrintRange As EPrintRange = eprAll, Optional DisablePageNumbers As Boolean, Optional FromPage As Long = 1, Optional ToPage As Long = &HFFFF, Optional DisableSelection As Boolean, Optional Copies As Integer, Optional ShowPrintToFile As Boolean, Optional DisablePrintToFile As Boolean = True, Optional PrintToFile As Boolean, Optional Collate As Boolean, Optional PreventWarning As Boolean, Optional Owner As Long, Optional Printer As Object, Optional flags As Long) As Boolean
' PrintDlg wrapper

Dim afFlags As Long
Dim afMask As Long
Dim pd As TPRINTDLG

m_lApiReturn = 0
m_lExtendedError = 0

' Set PRINTDLG flags
afFlags = (-DisablePageNumbers * PD_NOPAGENUMS) Or (-DisablePrintToFile * PD_DISABLEPRINTTOFILE) Or (-DisableSelection * PD_NOSELECTION) Or (-PrintToFile * PD_PRINTTOFILE) Or (-(Not ShowPrintToFile) * PD_HIDEPRINTTOFILE) Or (-PreventWarning * PD_NOWARNING) Or (-Collate * PD_COLLATE) Or PD_USEDEVMODECOPIESANDCOLLATE Or PD_RETURNDC
If PrintRange = eprPageNumbers Then
    afFlags = afFlags Or PD_PAGENUMS
ElseIf PrintRange = eprSelection Then
    afFlags = afFlags Or PD_SELECTION
End If
' Mask out unwanted bits
afMask = CLng(Not (PD_ENABLEPRINTHOOK Or PD_ENABLEPRINTTEMPLATE))
afMask = afMask And CLng(Not (PD_ENABLESETUPHOOK Or PD_ENABLESETUPTEMPLATE))

' Fill in PRINTDLG structure
pd.lStructSize = Len(pd)
pd.hWndOwner = Owner
pd.flags = afFlags And afMask
pd.nFromPage = FromPage
pd.nToPage = ToPage
pd.nMinPage = 1
pd.nMaxPage = &HFFFF

' Show Print dialog
m_lApiReturn = PrintDlg(pd)
Select Case m_lApiReturn
    Case 1
        VBPrintDlg = True
        ' Return dialog values in parameters
        hdc = pd.hdc
        If (pd.flags And PD_PAGENUMS) Then
            PrintRange = eprPageNumbers
        ElseIf (pd.flags And PD_SELECTION) Then
            PrintRange = eprSelection
        Else
            PrintRange = eprAll
        End If
        FromPage = pd.nFromPage
        ToPage = pd.nToPage
        PrintToFile = (pd.flags And PD_PRINTTOFILE)
        ' Get DEVMODE structure from PRINTDLG
        Dim pDevMode As Long
        pDevMode = GlobalLock(pd.hDevMode)
        CopyMemory m_dvmode, ByVal pDevMode, Len(m_dvmode)
        Call GlobalUnlock(pd.hDevMode)
        ' Get Copies and Collate settings from DEVMODE structure
        Copies = m_dvmode.dmCopies
        Collate = (m_dvmode.dmCollate = DMCOLLATE_TRUE)

        ' Set default printer properties
        On Error Resume Next
        If Not (Printer Is Nothing) Then
            Printer.Copies = Copies
            Printer.Orientation = m_dvmode.dmOrientation
            Printer.PaperSize = m_dvmode.dmPaperSize
            Printer.PrintQuality = m_dvmode.dmPrintQuality
        End If
        On Error GoTo 0
    Case 0
        ' Cancelled
        VBPrintDlg = False
    Case Else
        ' Extended error:
        m_lExtendedError = CommDlgExtendedError()
        VBPrintDlg = False
End Select

End Function

here is the code which i have written in print dialog box.

Code:

VB.NET / using the socket to make the connection to the other PC (0)

linn145 — Tue, 14 Jul 2009 03:47:37 GMT

Replies: 0	Last posted by	on 7/13/2009 7:47:37 PM PST
	Started by linn145	on 7/13/2009 7:47:37 PM PST

Hi.... anyone knows how to make the connection using Socket?
i found the code from the internet

Code:

'this is for Server side
Imports System.Net.Sockets
Imports System.Text
Module Module1
    Sub Main()
        Dim serverSocket As New TcpListener(8888)
        Dim requestCount As Integer
        Dim clientSocket As TcpClient
        serverSocket.Start()
        msg("Server Started")
        clientSocket = serverSocket.AcceptTcpClient()
        msg("Accept connection from client")
        requestCount = 0

        While (True)
            Try
                requestCount = requestCount + 1
                Dim networkStream As NetworkStream = _
                        clientSocket.GetStream()
                Dim bytesFrom(10024) As Byte
networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
                Dim dataFromClient As String = _
                        System.Text.Encoding.ASCII.GetString(bytesFrom)
                dataFromClient = _
            dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
                msg("Data from client - " + dataFromClient)
                Dim serverResponse As String = _
                    "Server response " + Convert.ToString(requestCount)
                Dim sendBytes As [Byte]() = _
                    Encoding.ASCII.GetBytes(serverResponse)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                networkStream.Flush()
                msg(serverResponse)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End While

        clientSocket.Close()
        serverSocket.Stop()
        msg("exit")
        Console.ReadLine()
    End Sub

    Sub msg(ByVal mesg As String)
        mesg.Trim()
        Console.WriteLine(" >> " + mesg)
    End Sub
End Module

Code:

'this is for Client Side
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim serverStream As NetworkStream = clientSocket.GetStream()
        Dim outStream As Byte() = _
        System.Text.Encoding.ASCII.GetBytes("Message from Client$")
        serverStream.Write(outStream, 0, outStream.Length)
        serverStream.Flush()

        Dim inStream(10024) As Byte
serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
        Dim returndata As String = _
        System.Text.Encoding.ASCII.GetString(inStream)
        msg("Data from Server : " + returndata)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        msg("Client Started")
        clientSocket.Connect("127.0.0.1", 8888)
        Label1.Text = "Client Socket Program - Server Connected ..."
    End Sub

    Sub msg(ByVal mesg As String)
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
    End Sub
End Class

but i cant run it.... i paste it in windows application.....
it prompts me the wiggly line at Serversocket
Dim serverSocket As New TcpListener(8888)

Thanxs

ASP.NET / Application Level DOS Prevention. (0)

coldfiretech — Tue, 14 Jul 2009 03:10:13 GMT

Replies: 0	Last posted by	on 7/13/2009 7:10:13 PM PST
	Started by coldfiretech	on 7/13/2009 7:10:13 PM PST

Hello Everyone,

Ive been doing some research lately on web security and ive been trying to tighten up my site.

Ive been reading in my ASP.Net security book, and some examples online about preventing denial of service attacks at application level.
I understand that my firewall will handle most dos attacks but I also know that having some sort of mechanism on my site would be a good idea.

My problem is this..

I have reviewed the code provided in the book, and many articles online..
They all use the requesting users ip address.. Well, what happens when you have a bunch of people behind a proxy trying to access your site?

Wouldnt that deny them service?

If someone could please provide some input or sample code of how this can be done another way I would be very grateful.

Thanks!

~Matt

VBA / Query problem when populating excel userform listbox with data from access database (2)

NightThing — Mon, 13 Jul 2009 22:38:56 GMT

Replies: 2	Last posted by NightThing	on 7/13/2009 2:38:56 PM PST
	Started by NightThing	on 7/10/2009 12:47:16 PM PST

Hi All,

Hopefully someone can help me solve this problem which is driving me crazy. I have an excel userform with a listbox which is populated with data from access. On the userform there is a textbox where people can type something in and hit a 'Search' button. The listbox has 3 columns. The below code works absolutely fine, IF the search returns more than one record. For example if in the 'Subject' field of my database I have two records which say 'Garage' and someone types that into the search box and hits search, it works fine and the list box is populated correctly. However, if the search only returns one record the listbox doesn't populate correctly. It returns the 3 values but it doesn't put them in column 1, column 2 & column 3 of the list box, it puts them all in column 1 as seperate rows.

I am completely baffled by this so if someone can come up with a solution i'd really appreciate it.

Private Sub cmdSearch_Click()
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rcArray As Variant

'Set the location of your database, the connection string and the SQL query
strSQL = "SELECT tblKnowledge.Subject, tblKnowledge.Information, tblKnowledge.Contact " & _
    "FROM tblKnowledge WHERE Subject Like '%" & txtSearch.Value & "%' ORDER BY tblKnowledge.Subject;"

'Open connection to the database
cnt.Open glob_sConnect

'Open recordset and copy to an array
rst.Open strSQL, cnt
If rst.EOF Then
MsgBox "No Records found. Please amend your search criteria"
Else
rcArray = rst.GetRows

'Place data in the listbox
With Me.lstQuestions
    .Clear
    .ColumnCount = 3
    .List = Application.Transpose(rcArray)
    .ListIndex = -1
End With

'Close ADO objects
rst.Close
cnt.Close
Set rst = Nothing
Set cnt = Nothing
End If
End Sub

VB6 General / Sending to System Tray (3)

Malan — Mon, 13 Jul 2009 20:41:11 GMT

Replies: 3	Last posted by DaVBMan	on 7/13/2009 12:41:11 PM PST
	Started by Malan	on 7/9/2009 7:11:53 AM PST

How can I send a Regular Program to the system tray its not one I programed... sort of like sending FREECELL to ths system tray is what I want to do...

and retrive it when I need it... it can sit in the background

Mike@popalockplus.com

VB.NET / How to figure out the relationship between three classes (1)

petre — Mon, 13 Jul 2009 20:40:42 GMT

Replies: 1	Last posted by PMagill	on 7/13/2009 12:40:42 PM PST
	Started by petre	on 7/13/2009 12:09:44 AM PST

Hi i have give three classes Item, ItemStatus and Item'sStatusHistory.

I cannot figureout to which class ItemStatus should link to!

please refer to my blog in the following link to detail description of the issue

http://8134502134343434345.blogspot.com/

cheers

VB6 & Reporting / ASP, Crystal Reports and MSSQL Stored Procedure - Getting (3)

oasisok — Mon, 13 Jul 2009 17:53:36 GMT

Replies: 3	Last posted by oasisok	on 7/13/2009 9:53:36 AM PST
	Started by oasisok	on 7/8/2009 10:24:21 AM PST

Initial Post

I'm using Classic ASP instead of VB6 but I wasn't sure where to post this question other than here.

The original Crystal Reports file had accessed the database tables itself. The issue with that is the user had to access a report that returned 313 records which would cause the report to crash. To resolve this, I created a stored procedure that would return certain number of records depending on what is set in the parameters sent to the stored procedure. Attached is a sample copy of my stored procedure. In fact, if anyone sees that the stored procedure should be changed to be more efficient feel free to comment. Creating SQL strings and stored procedures is something I have very little experience with.

In the Crystal Reports file I removed all references to the database tables and added my stored procedure to it. I removed all parameter fields and formula fields and ran the report "empty" through the browser and I was able to pull up the report with no errors. However if I added a field to the report and tried to pull up the report through the browser I get an error even though the Preview through Crystal Reports works fine.

As far as I know none of the other report files access a stored procedure so I have nothing to compare to.

Question:

Any ideas what would cause my File Not Found error?

C# / What is happening is info from one child form is being received or listen to by the wrong (4)

Lecutus — Mon, 13 Jul 2009 17:23:28 GMT

Replies: 4	Last posted by fabulous	on 7/13/2009 9:23:28 AM PST
	Started by Lecutus	on 7/7/2009 11:39:55 AM PST

What is happening is info from one child form is being received or listen to by the wrong child form.

The situ is one parent form and any number of child forms. Specifically this is a truck control system, all the the truck/child forms are the same. But the monitoring and controls for each are to be independent of the other's actions. Example one truck could be in neutral with a rpm speed of 800, while another truck is in 3rd gear with rpm of 1000. So the situation has to be contained within the logical confines of the individual childform/truck.

I've tried using access modifiers to there extent. Making things 'private' as much as possible, getting rid of as much 'static' as possible.

What is first sent is the info packet. Defined as: !!!780;125;1400;0;5000&&&
The truck sends back a string of data for processing, and as confirmation of what's wanted by the operator. The string looks like this:
I5000R0780G02O099C060V23.3W2440F099L4S01400P00000X126Y057B27.08H65253E01T01D0000_99!

Within the program I'm using a ID_Parser to strip/read out the identifier at the beginning of the string to make sure it gets sent to the right form. Actually creating a instance of the truck/chilform that the info belongs to. I had to do this because sometimes the sending form would receive info string from another truck. This routine does put the port_in into the proper truck and its accompanying array:
public static string[] Trux_Info = new string[20];

The letters designate different pieces of information 'I ' designates id of the truck in this case truck5000, the 'R' is rpm, 780, followed by gear and so on.

The transmission is by RS-232, on the parent form, constantly open. Each truck sends/ reads through this, and the buffers, in and output, is flushed after each use. I've tried individual comports per childform, but had unaccessible issues.

As I have ran out of ideas and test methods I asking if anyone sees what I'm missing.

Further definitions, test methods, and results are provided as an attachment.

Thanks

.NET Newbies / Printing forms using Parent Menu Bar (0)

SQChevy — Mon, 13 Jul 2009 17:04:52 GMT

Replies: 0	Last posted by	on 7/13/2009 9:04:52 AM PST
	Started by SQChevy	on 7/13/2009 9:04:52 AM PST

I'm wanting to build in the ability to print out the forms in my program. I want the print option to be in the Main Menu Strip. I want the ability to choose printers and if possible choose which forms. If I need to make it be active form that is ok, but I would need help with the process. I'm wondering the best course of action and the proper steps to enable the printing. The printers are on the network so I would need to be able to access the network printers. Let me know if you need any additional information. Thank you.