|
In that case, you're going to need alot more code than this. You have to first check if the Cust_No exists in the table your copying this data to. If so, then you have to update that record with the new data. If not, you have to INSERT the new data.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
THanks Dave:
I will try the statements. I assume the SELECET, UPDATE AND INSERT Statements will be used?
|
|
|
|
|
Hey Guys
Try this:
<Serializable()> Public Class TestClass
Public A As Integer = 100
Public ASpecified As Boolean
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(TestClass))
Dim ms As New IO.MemoryStream
ser.Serialize(ms, New TestClass)
MsgBox(System.Text.ASCIIEncoding.UTF8.GetString(ms.ToArray))
End Sub
Then try changing ASpecified to Integer.
There seems be a problem with serializable methods/fields that end with the word Specified, can anyone else confirm that I'm not going round the bend... it's been an afternoon of pulling what little hair I have out tracking it down!
Cheers
Tom
|
|
|
|
|
I was wondering how to trap the backspace key with the keyPress event. Anyhelp would be much appreciated
Brian Van Beek
|
|
|
|
|
i assume you're talking about the keypress of a textbox, so in your keypress event handler...
if (e.keycode = keys.back) then
'keys.back indicates the backspace key
'perform something here...
end if
hope this helps.
-jim
|
|
|
|
|
i'm working on a program right now, and i need show some informations on a form, but fact that information could be more than i thought, i need to create some labels at run time and place them on the form.
so, my Q is : how to create those labels at run time please?
regarding to you guys, sincere love.
marc
|
|
|
|
|
creating them is pretty easy...
dim c as new windows.forms.control
dim b as new windows.forms.button
dim l as new windows.forms.label
the problem you're going to have is setting the location appropriately since the placement will have to be dynamic.
you can set the location for the controls by using:
c.location = new drawing.point(x,y)
etc.
hope this helps.
-jim
|
|
|
|
|
Hello Jim,
hope u're fine. Hum... i'm trying ur codes and an error occurs
at the first line.
ERROR is : "COMPILE ERROR
User-defined type not defined."
i forgot to mention that i was using vb6, so i don't if it's the real reason
of that occured error. i dont know what do u think about that?
let me know about that.
sincerely yours
marc
|
|
|
|
|
yeah, this code was for vb.net.
i'm not sure if you can create controls dynamically at run-time in vb6. frankly i haven't worked with vb classic that much.
perhaps someone more experienced like dave can help you out.
sorry.
-jim
|
|
|
|
|
Thank u Jim for ur help anyway.
i appreciate effort u've done for me.
marc
|
|
|
|
|
In addition to what Jim said, you're also going to have to add the newly created control to the Form's Controls collection too.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have a typed dataset with 3 tables - 1 Parent & 2 Children with 2 relationships defined on the matching key fiels (Created using XML Designer). Note that "Create Foreign Key Constraint Only" is not set and rules are set to Cascade. I have a datagrid that I assign the datasource to be the dataset, parent table.
I use 3 data adapters to populate the individual tables in the dataset using simple select clauses in each one. (i.e. Select * from myTable)
When the datagrid appears, each record shows the parent details with a + sign on each row. Clicking the plus sign displays the 2 relationship names. Clicking on either name changes the datagrid to display the child records with the parent fields displayed on top. Problem is that no child records are being displayed even though each parent has at least 1 child. When I browse the individual tables through the datagrid, all records from each table are present.
I have run a select query in the query analyser and it returns appropriate child records.
Any ideas?
Bruce
Happy Hunting
|
|
|
|
|
How can I press a button in an windows application? I must press it and later, I must read the text of three textbox of this windows form...? I don't know, but i think that "Hook Messages" are the solution...?
Please, I need help.
Thanks.
Italy
|
|
|
|
|
What I understand about your question will give this solution :
in the development environment of Vosual Studio.Net double click on your button. This will bring you to the codepart of your windows form. An event is created for you (the click event). In here you can program everything that you want to do, like reading your 3 textboxes.
Hopes this is the answer for your problem, otherwise give some more info in what you mean with press a button.
|
|
|
|
|
My problem is different. I need to create one application("New.exe"):
with this event on Form1_Load:
hIr = FindWindow("Ir", vbNullString)
If IsWindow(hIr) = 0 Then
Call Shell("Ir.exe", 1)
Do Until IsWindow(hIr)
hIr = FindWindow("Ir", vbNullString)
DoEvents
Loop
End If
It opens another application("IR.exe"), but I need push one button of IR.exe, it reads three textboxes and it prints the values in my new application. But in hide mode!!
Italy
|
|
|
|
|
Could anyone possibly give me an API, MSDN Reference, or a starting point?
Im trying to create a program that will auto arange the icons on the desktop. But i cant seem to find even an Native API to access the desktop.
Any help is appreciated.
Thank you.
|
|
|
|
|
This could be a start point (hope it works
Desktop is a ListBox and you can simply find the handle to that listbox by API.
Then using SendMessage API and the ListBoxMessages[^] to work with that.
|
|
|
|
|
I have two tables Table 1, Table 2
Table1's Primary key(Int) is Foreign Key of Table2I'm performing search on Table1 and then picking up single value from Table2. I want to print value all the value from Table1 and single value from Table2. How can i print it on a report. when i try to print value of Table2 it return an empty dataset
|
|
|
|
|
Try changing the join type in CR database links so that all records from Table1 are selected and only matching records from Table2 (Left Outer Join).
Then in the format of the group the record is printed set the suppress formula (VB Syntax):
Formula = (PreviousValue({Table1.PrimaryKeyField}) = {Table1.PrimaryKeyField})
Hope this helps
Tom
|
|
|
|
|
How can I list network domains and/or users in Win NT, 2000 and XP in VB6?
Anyone know an API or other way I will appreciate.
![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif) 1fm1fu
|
|
|
|
|
I found these examples a while ago (can't remember where sorry). They are for VB script but you will get the idea.
LISTING 1: The GetAvailableNTDomains Procedure
'----------------------------------------------------------------
' Function: GetAvailableNTDomains
' Description: Returns a listing of available NT Domains
' Parameters: None
' Returns: Variant array of NT Domain names.
'----------------------------------------------------------------
Public Function GetAvailableNTDomains()
Dim objIADsContainer ' ActiveDs.IADsContainer
Dim objIADsDomain ' ActiveDs.IADsDomain
Dim vReturn ' Variant
ReDim vReturn(0)
Set objIADsContainer = GetObject("WinNT:")
For Each objIADsDomain In objIADsContainer
If Trim(vReturn(0)) <> "" Then
ReDim Preserve vReturn(UBound(vReturn) + 1)
End If
vReturn(UBound(vReturn)) = objIADsDomain.Name
Next
Set objIADsDomain = Nothing
Set objIADsContainer = Nothing
GetAvailableNTDomains = vReturn
End Function
LISTING 2: The GetDomainComputers Procedure
'----------------------------------------------------------------
' Function: GetDomainComputers
' Description: Returns a listing of NT Computer Accounts for a
' given domain
' Parameters: ByVal strDomain - Name of an NT Domain to retrieve
' the list of Computer from.
' Returns: Variant array of NT Computer names for the
' specified domain.
'----------------------------------------------------------------
Public Function GetDomainComputers(ByVal strDomain)
Dim objIADsContainer ' ActiveDs.IADsDomain -
' Container object
Dim objIADsComputer ' ActiveDs.IADsComputer
Dim vReturn ' Variant
' connect to the computer.
Set objIADsContainer = GetObject("WinNT://" & strDomain)
' set the filter to retrieve only objects of class Computer
objIADsContainer.Filter = Array("Computer")
ReDim vReturn(0)
For Each objIADsComputer In objIADsContainer
If Trim(vReturn(0)) <> "" Then
ReDim Preserve vReturn(UBound(vReturn) + 1)
End If
vReturn(UBound(vReturn)) = objIADsComputer.Name
Next
GetDomainComputers = vReturn
Set objIADsComputer = Nothing
Set objIADsContainer = Nothing
End Function
The GetComputerUsers Procedure
'----------------------------------------------------------------
' Function: GetComputerUsers
' Description: This function will return the names of the users
' for a specified computer or domain
' Parameters: ByVal strComputerName - Name of an NT Computer or
' domain to retrieve the list of Users from.
' Returns: Variant array of user account for the specified
' computer
'----------------------------------------------------------------
Function GetComputerUsers(ByVal strComputerName)
Dim objIADsContainer 'As ActiveDs.IADsContainer
Dim objIADsUser 'As ActiveDs.IADsUser
Dim vReturn 'As Variant
ReDim vReturn(0)
' Connect to the computer or domain
Set objIADsContainer = GetObject("WinNT://" & strComputerName)
' apply a filter to retrieve only objects of class User
objIADsContainer.Filter = Array("User")
' iterate all user objects within the container
For Each objIADsUser In objIADsContainer
If Trim(vReturn(0)) <> "" Then
ReDim Preserve vReturn(UBound(vReturn) + 1)
End If
vReturn(UBound(vReturn)) = objIADsUser.Name
Next
Set objIADsUser = Nothing
Set objIADsContainer = Nothing
GetComputerUsers = vReturn
End Function
Jon
|
|
|
|
|
Hi Everyone,
does anyone know a code to get an index of a currently selected record in a dataset ?
I have a dataset from tblTest in access file(test.mdb), fields are fldID, fldPass.
my adapter is called "adaTest"
my connection is called "conTest"
my dataset is called "datTest1"
Thank You
|
|
|
|
|
Define a Class level variable "
Dim CM as CurrencyManager
'Bind the CurrencyManager on form load.
>Load event (DsCustData1 = dataset, tblCustomer is the table the data set was populated by)
CM = Me.BindingContext(DsCustData1, "tblCustomer")
'End load event
Private Sub btnNextCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNextCust.Click
Try
'Next button
'Advance to the next row in the table
If CM.Position < (CM.Count - 1) Then
CM.Position += 1
Else
MessageBox.Show("No More Records.")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Catch CM As Exception
MessageBox.Show(CM.Message)
End Try
End Sub
Private Sub btnPreviosCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreviosCust.Click
Try
'Previous button
If CM.Position > 0 Then
CM.Position -= 1
Else
MessageBox.Show("You Are At The First Record.")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Catch CM As Exception
MessageBox.Show(CM.Message)
End Try
End Sub
The above would be two buttons to browse forward and back in your dataset.
The dataset has a count property that counts all rows obviously. With the currency manager has a "position" which is dictated by the count property of the dataset.
You should be able to grab what you need from that.
|
|
|
|
|
Is anybody know some company who sale
software made in Vb.Net and work over
internet ?
|
|
|
|
|
Sorry but i don't understand the question. What do you require / mean?
Thanks
"If i was king cigarettes would be free."
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
