|
hi
Thanks for response,
I tried this, but still the connection is opened, if I keep on accessing the query.....
Amju
|
|
|
|
|
add this in the last of procedure
gc.waitforpendingFinalizer() '' check if any spelling mistake
gc.collect()
I hope this will help
|
|
|
|
|
Hi
Yes i have added in code already, and
I think it wouldn't be any spelling error, since I usually get it through intellisence,I mean (gc.) will automatically display the exposed method/properties from where I select the appropriate option.
thanks for reply
Amju
|
|
|
|
|
ya GC. will automatically show this but does not show when you are writing in explorer textbox... 
|
|
|
|
|
cool....
Amju
|
|
|
|
|
how to place controls on a form at run time
|
|
|
|
|
You can place controls at runtime using the following code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyControl As New MyButton
MyControl.CreateObject(Me)
End Sub
End Class
Public Class MyButton
Inherits Button
Public Sub CreateObject(ByVal Form As Object)
With Me
'just use the dot operator to add any new properties to the control
.Location = New Point(100, 100)
.Size = New Size(100, 100)
.BackColor = System.Drawing.Color.White
.ForeColor = System.Drawing.Color.Black
.Text = "Click Me!"
Form.Controls.Add(Me)
End With
End Sub
Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
'the new control also has events
MsgBox("This Demonstrates how to add a control at runtime", MsgBoxStyle.Information)
End Sub
This should help!
Lets rock and Roll at Guildford Festival 2005 Oh Yeah!
|
|
|
|
|
this code is not working. i need the code for visual basic6.
|
|
|
|
|
I have a data table of which, one column has been made unique.
Datatable.Columns("ColumnName").Unique = True
This table has been assigned to a Data grid. While running the application when unique constraint is violated it displays an exception massage. Is it possible to catch this exception massage and customize according to my wish?
|
|
|
|
|
Catch ex
Throw New System.Exception("your customize message.")
Amju
|
|
|
|
|
But where to catch this exception, since I am not able to trace where does this exception is generated. I tried most of the events related to Data Grid and Data Set. No where I could find the event which cause this exception.
Krishnaraj
|
|
|
|
|
hello to all
i am beginer in use of stored procedures, and i want to use stored procedure in vb. if use of stored procedures equal use table, how i can sent parameter to stored procedure from vb.
thanks
|
|
|
|
|
try this:
Dim oCmd As IDbCommand = New SqlCommand
Dim oDataAdapter As IDbDataAdapter = New SqlDataAdapter
Dim oDataSet As DataSet = New DataSet
oCmd.CommandText = [sp exec statement w/ parameters]
oCmd.Connection = [sql connection string]
oCmd.CommandTimeout = 600
oDataAdapter.SelectCommand = oCmd
oDataAdapter.Fill(oDataSet)
Return oDataSet
it's just a sample code, but this is how i run my sp's on my codes... hope this helps 
|
|
|
|
|
sir i created one vb application in that i am genarating excel reports. first time am clicking report command button then it running executing correctly if i am click once again the report command button it is not running showing error.
iam using this commnad for add sheetsin my codeing "Sheets.Add before:=Worksheets(Worksheets.Count)"
the error for second time click is
"worksheets.count=
|
|
|
|
|
This is the source code
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Imports System.Data
Private str_connection As String = "workstation id=""MAX-IT10Q0"";packet size=4096;integrated security=SSPI;initia" & _
"l catalog=Addressbook;persist security info=False"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnsql As SqlConnection
Dim load_dataset As New DataSet
Dim rpt As ReportDocument
Dim str_query As String
rpt = New ReportDocument
rpt.Load("..\CrystalReport2.rpt")
cnsql = New SqlConnection(str_connection)
cnsql.Open()
str_query = "select name,Address from tb_abook"
Dim load_adapter As New SqlDataAdapter(str_query, cnsql)
load_adapter.Fill(load_dataset, "tb_abook")
rpt.SetDataSource(load_dataset)
CrystalReportViewer1.ReportSource = rpt
End Sub
Continue...
|
|
|
|
|
and what happens ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Which Version of Crystal reports are you using?
try rpt.Refresh after rpt.SetDatSource(load_dataset)
Amju
|
|
|
|
|
Hi! Does anybody know how to get values for listbox if i am using multiple selection in VB.NET?
|
|
|
|
|
You can use ListBox1.SelectedItems to get collection of selected items and itrate through.
- ashish
|
|
|
|
|
Hi all, I have a webservice which simply takes an XML formatted string and then processes it in the business logic & data layer. The Web Service throws an exception if an attempt is made to create duplicate key row in DB.
However, when I am invoking the webservice's web-method via a C# client, I'm getting timed out by webservice.
Anyways, I have run an extensive tests for all cases and have had no luck trying to pinpoint the error cause/source.
My variables:
Client Type: C# or IE (C# program to call webservice, IE -- opening ASMX page from localhost and using the ASMX page for testing)
Is Duplicate?: false or true (Will the string I'm posting cause dup error?)
String length: small or large (large == 1500+ chars; small == 1186 chars; small is the same data but all of the xml formatting -- indentation -- is removed)
So total of 8 various permutations:
Test Results:
Test 1: (C#, no dup, small): no errors
Test 2: (C#, no dup, large): no errors
Test 3: (C#, dup, small): "duplicate" error captured by C# client in Catch statement
Test 4: (C#, dup, large): timeout error raised (According to SQL Trace, SQL Server has sent error to the called and is not hung)
Test 5: (IE, no dup, small): no errors
Test 6: (IE, no dup, large): no errors
Test 7: (IE, dup, small): "duplicate" error captured by C# client in Catch statement
Test 8: (IE, dup, large): "duplicate" error captured by C# client in Catch statement
Possible causes:
a) Problem w/ the way C# client captures errors: non issue because C# client catches the error in test #3.
b) problem w/ processing dups: not possible since test # 3, 7 & 8 process dups
c) server cannot handle "large" size -- Problem w/ data size: non issue because server does successfully process (or. not timeout) in test #2 & Test 8
Any suggestions/pointers would be greatly appreciated.
Thanks.
- Malhar
|
|
|
|
|
Let me summarise first what I have understood from you message,
I think your are passing the string parameter(XML) to webservice, in-turn which will be calling you BL layer and again it will be inserted through datalayer into DB.
It is correct? are thing i have missed out, let me know.
and I have one question is are you inserting through SP(storedprocedure)?
if so then just pass this string(xml formatted string) parameter to SP and use openxml in sp then insert it through bulk insert statement
Note: Assuming that there is no primarykey in the table or you are not passing any just duplicate data for the PK constraint.
Is that make sense...
Amju
|
|
|
|
|
Yes you're correct.
WS Client (C# / IE) -> C# Web Service -> C# Business Logic -> C# Data Access Layer -> MS SQL 2k DB
The Xml string is passed as string to DB as an xml document. I am using openxml in the SP to parse it the the DB level.
The Xml data I'm passing is for creating a new User. So the UserID in the DB is set to numeric (e.g. auto-numbered). However, the unique constraint is defined by the UserName.
So if I pass "formatted" User Create XML to DB (assuming the username does not already exist), then my entire chain works.
However, if I pass the same "formatted" User Create XML to WS AGAIN (to make sure dup is not created), then my chain from (C# WebService <--> DB) works but c# WS Client <--> WebService fails. The reason why I know the C# WS <--> DB is because, the WS records the "dup" error in the Event Log regardless of the WS client type. But only in the case of C# client, the error for somereason does not get propagated and the c# client get a timeout.
Then again, if I pass the same "UNformatted" User Create Xml to WS, I do get the dup error.
Thanks for your help.
|
|
|
|
|
I'm wondering weather or not there is a utility program out there or one that someone can point me in the general direction to make that can search through an entire PST (msg AND attachments) and generate a file list report and/or a file duplication report to a simple text file.
Thank you in advance.
--Brandon
|
|
|
|
|
I am consistantly receiving a "Parameter is incorrect" Win32Exception as a result of the following code for a keyboard event.
I have tried many different method to get this to work, including using the CopyMemory API, and Marshal.Copy into the destination. No luck.
Any thought?
Public Class SendInput
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, ByVal pInputs As INPUT_TYPE_KEYBD, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As Object, ByVal Source As Object, ByVal Length As Long)
Private Const INPUT_KEYBOARD As Long = 1
Private Structure KEYBDINPUT
Dim wVk As Long
Dim wScan As Integer
Dim dwFlags As Long
Dim time As Long
Dim dwExtraInfo As Long
End Structure
Private Structure INPUT_TYPE_KEYBD
Dim dwType As Long
Dim xi As KEYBDINPUT
End Structure
Public Sub SendKybdInput(ByVal vk As VirtualKeys, ByVal isUp As Boolean)
Dim inputevents As New INPUT_TYPE_KEYBD ' holds information about each event
With inputevents.xi
.wVk = vk
.wScan = 0 ' not needed
If isUp = True Then
.dwFlags = KEYEVENTF_KEYUP
Else
.dwFlags = 0 ' press the key down
End If
.time = 0 ' use the default
.dwExtraInfo = 0 ' not needed
End With
Dim ret As Long = SendInput(1, inputevents, Marshal.SizeOf(inputevents))
Console.WriteLine("Err 3: " & New Win32Exception().Message)
Console.WriteLine("Response: " & ret)
End Sub
End Class
|
|
|
|
|
May be this will help you out, it sets the num lock,scroll lock and cap lock keys, but it should work with any key added to VirtualKeys.
'------------ Form1.vb ----------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Check and set the Keyboard NUMLOCK
Dim ret As Boolean = Keyboard.GetState(VirtualKeys.VK_NUMLOCK)
' if it's on, turn it off, if it's off, turn it on
If ret = True Then
Keyboard.SetState(VirtualKeys.VK_NUMLOCK, False)
Else
Keyboard.SetState(VirtualKeys.VK_NUMLOCK, True)
End If
End Sub
'------------ Class1.vb ----------------------------------------------
Imports System
Imports System.Runtime.InteropServices
Public Enum VirtualKeys
VK_NUMLOCK = &H90
VK_SCROLL = &H91
VK_CAPITAL = &H14
End Enum
Class Keyboard
Const KEYEVENTF_EXTENDEDKEY As Int32 = 1
Const KEYEVENTF_KEYUP As Int32 = 2
<DllImport("user32.dll")> _
Shared Function GetKeyState(ByVal nVirtKey As Integer) As Short
End Function
<DllImport("user32.dll")> _
Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)
End Sub
Public Shared Function GetState(ByVal Key As VirtualKeys) As Boolean
Return (GetKeyState(CType(Key, Integer)) = 1)
End Function
Public Shared Sub SetState(ByVal Key As VirtualKeys, ByVal State As Boolean)
If Not (State = GetState(Key)) Then
keybd_event(CType(Key, Byte), 69, KEYEVENTF_EXTENDEDKEY Or 0, 0)
keybd_event(CType(Key, Byte), 69, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End If
End Sub
End Class
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
