|
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
|
|
|
|
|
hi
i m new to the field of activex and i want to know that are activeX (internet activex) made in the vc or vb are capable of self registering. or had to something extra to
register them. particularly the (internet activex) controll. if not that what functions will be used to register them.
i had made the (internet activex) that play the movie on the page i want to know that when user will visit my page then ocx will be selfdownloaded
and selfrejisted to that client pc. or what will happen.
ddd
|
|
|
|
|
I have a form that has multiple textboxes that a user needs to input data into in order to write to several tables within sql server. All of the controls on the form are data binded to a column within a specific table. I can read from all tables using the (generic) code command:
DataAdapter.Fill(DataSet)
My problem is that I can not update/write to the database. I'm using the (generic) code command: DataAdapter.Update(DataSet), so that when any change is made to any textbox control when the user triggers the click event button to update the database it will update/write to the database using what is currently in the textboxes.
I receive no error messages and my 'CommandText' property under the dataAdapter has the sql code generated to insert a into the proper fields and tables. Any idea(s) why I can not update/write to the sql server?
Language: vb.net 2003
Server: sql server 2000
Shannon P.
|
|
|
|
|
My advice is to write one stored procedure that updates all the appropriate tables. Once you have your stored procedure written call it like this. Also put imports data.sqlclient at the top of your page. This is an example from the project I'm working on, obviously you need to use your own names / variables.
Private Function UpdateLiabilityRecord(ByVal intClassID As Integer)
Dim Conn As New SqlConnection
Conn.ConnectionString = Session("ConnectionString")
Dim Cmd As New SqlCommand
Cmd.Connection = Conn
Cmd.CommandType = CommandType.StoredProcedure
Cmd.CommandText = "dbo.USP_AM_UpdateLiabilityClass"
Dim PrmClassID As New SqlParameter("@ClassID", SqlDbType.Int)
PrmClassID.Direction = ParameterDirection.Input
Cmd.Parameters.Add(PrmClassID)
PrmClassID.Value = intClassID
Dim PrmClassCode As New SqlParameter("@ClassCode", SqlDbType.Char, 6)
PrmClassCode.Direction = ParameterDirection.Input
Cmd.Parameters.Add(PrmClassCode)
PrmClassCode.Value = Right("000000" & Trim(Me.txtClassCode.Text), 6)
Dim PrmEffectiveDate As New SqlParameter("@EffectiveDate", SqlDbType.DateTime)
PrmEffectiveDate.Direction = ParameterDirection.Input
Cmd.Parameters.Add(PrmEffectiveDate)
PrmEffectiveDate.Value = CDate(Me.txtEffDate.Text)
Conn.Open()
Cmd.ExecuteNonQuery()
Conn.Close()
End Function
Of course, don't forget to validate your data first.
"People who never make mistakes, never do anything."
My blog
http://toddsnotsoamazinglife.blogspot.com/
|
|
|
|
|
Hello all,
I am receive an error that a parameter has not been supplied when the page loads, And this error would be correct because it is not to be supplied until a user makes a selection after the page loads.
Here is what i have: I HAVE two data list on one page, one is a menu (a) and the other (b) one populates when the selection has been made; therefore, the error parameter that im getting tells me that the (b) is tring to fire to early.
The way that i have the controls set up is just a simple drag and drop from the solution bar to the page in question. Is there some sort of code that i should add that would keep (b) from tring to fire up early?
Thank you ahead of time.
Erik...
|
|
|
|
|
Yeah add the data to your data list via code not from the designer. Copy the auto generated code to the postback event from the the first list.
"People who never make mistakes, never do anything."
My blog
http://toddsnotsoamazinglife.blogspot.com/
|
|
|
|
|
The way that i am implementing it at this time is i have all of my class files in a seperate folder with the same namespace. and i access the info for the databind via namespace.class ----- dl.datasource = myfunction
and i am getting aggggg with this wall i keep hitting with this error that
(((expects parameter '@IDProduct', which was not supplied. )))
I know the parameter has been passed because i can see it in the address bar, and there is other controls that rely on this ProductID so i know it is making it to the requesting page. What do you think that i am doing wrong here.
Any help at all will be great!
Thank you ahead of time..
erik..
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
