|
I wanting to wake up a remote computer. And using vb.net to do that.
|
|
|
|
|
|
Thank you for your articles
|
|
|
|
|
I am trying to build a relation using 2 fields in each table. I am getting the following error:
BC30518: Overload resolution failed because no accessible 'Add' can be called with these arguments
When trying it with the following syntax:
objDs.Relations.Add("RelationName", objDs.Tables("Table1").Columns("Field1","Field2"), objDs.Tables("Table2").Columns("Field1","Field2"))
I have not been able to find any examples using 2 key fields in each table. Please let me know if this is the correct syntax and if not give me an example.
Thanks for any help!
Steve
|
|
|
|
|
What I am trying to do is this. I create a dataset which is then populated from a database for the purpose of displaying in a datagrid. But what I wish to do is, before it goes to the datagrid for displaying, I want to insert a new column into the dataset and fill it with calculated data.
I have scoured the net looking for a solution but to no avail. So basically I want to add a column to a dataset that has already been filled and then add data to that column as its calculated.
|
|
|
|
|
Off the top of my head (I did something similar recently), remember that columns are a collection within the dataset.
So, something along the lines of:
dataset.tables("MyTable").Columns.add (col)
You'd have to define Col as a column first with details such as name, type, size etc - check out the vs help for that, quite easy.
.....
infact, just found the code for you
....
Dim col as New DataColumn
col.ColumnName = "CustomerName"
col.DataType = GetType(string)
dataset.Tables(0).Columns.Add(col)
Hope this helps
|
|
|
|
|
Its half working but I'm getting a
System.NullReferenceException: Object reference not set to an instance of an object.
On the "fix.Tables(0).Columns.Add(col)" Part of the code.
|
|
|
|
|
Got it working, Cheers. I was adding my column before I had populated my DataSet. Such a schoolboy error.
|
|
|
|
|
Hi all,
I am enhancing an existing VB 6.0 application to support Arabic Language. I converted almost all the forms and controls in the Right-to-left reading order including the MsgBox's. The text and the captions of all the controls are also displaying in Arabic. But the problem is that the OK, Cancel, Retry buttons, etc. in the MsgBox still displays in english language only. Is there any method to display the MsgBox button captions also in Arabic? Please help me in this regard.
Thanks in Advance,
Padmakumar.
|
|
|
|
|
No, you can't programatically change them. Those buttons use the Language settings in the Regional Options control panel.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok still one more option exists!
You can simply set the Msgbox's buttons' texts, in run-time using SetWindowText API.
Just you need to create an Msgbox, and enumerate it's child windows, and change the text of the Button ones.
By the way you should remember that msgbox runs modally, if you don't know how to handle this, I could explain more.
|
|
|
|
|
I don't know how to handle this. Can you explain me? I will of much help to me.
Thanking You
Padmakumar
|
|
|
|
|
I have an app i am building where users are able to upload .csv files to be validated. there is a small problem, the company that is going to be using it has decreed that the .csv files do not have to have a header row.
the code i have so far simply fills a dataset
Dim com As New OleDbDataAdapter(xl, con)<br />
Dim ds As New DataSet<br />
<br />
com.Fill(ds)
this works just fine and it handles all the data appropriately when the original file has the first row set up as headers
however, if they dont, it grabs the first row of data as the headers, then runs the rest normally. As you can guess, this messes up the output quite a bit.
what i am looking to do, is this:
i already have code in place that checks to see if there is a header row:
if ds.Tables(0).Columns(0).ColumnName <> "recordid" Then
What i want to know is, how do i insert a Header row into the dataset, after it has been created?
______________________
Mr Griffin, eleventy billion is not a number...
-- modified at 15:03 Tuesday 30th August, 2005
|
|
|
|
|
Dim r As DataRow
r = DataSet.Tables(0).NewRow
r.Item(0) = "put in your values"
DataSet.Tables(0).InsertAt(r, 0)
"People who never make mistakes, never do anything."
My Blog
|
|
|
|
|
Hi,
I've got a set of icons I've used in an app, like folders, which appear fine in the app, and also when viewed in Windows Explorer.
I've now put these icons in a new app, and when I run it, they all appear very oddly, with black shadows around them. I thinks its something to do with alpha channels.
I've changed the colour depth several times, but no luck.
The only difference between the two apps, is the 1st, I used form designer to insert an imagelist and added the icons.
But in the my new app, I've added the icons as embedded resources and manually coded an imagelist, and added the icons.
Anyone suffer this problem before?
|
|
|
|
|
I found the answer here actually, if anyones interested.
http://www.codeproject.com/cs/miscctrl/AlphaImageImagelist.asp
|
|
|
|
|
I don't get what I'm missing.
This code throws an 'Access denied' exception (not a COMException):
Dim RemoteServer As WMSServer
tServerType = Type.GetTypeFromProgID("WMSServer.Server", <remote server>, True)
So I tried this code, but it throws a 'Class not registered' COMException
Dim WMSGuid As New Guid("{A2EFA5CB-3B0E-11D2-9EFD-006097D2D7CF}")
tServerType = Type.GetTypeFromCLSID(WMSGuid, <remote server>, True)
I'm pretty sure I've got the permissions and User IDs set up, and I've registered WMSServicesTypeLib.dll.
Is there something more I should be doing?
________________________________________________________________________
Dave
Y10K bug! Let's not get caught with our pants down **AGAIN**! (DC 02002)
-- modified at 13:20 Tuesday 30th August, 2005
|
|
|
|
|
I have created a report using VB, the Data Environment and Data Report. This will query an Access db table, print after each transaction and then delete the table contents waiting for the next transaction.
The issue I have is the report keeps repeating the data from the first report and never refreshes.
I have tried the refresh command and trying to reset the text boxes of the report.
Any help would be great.
Thank you
-- modified at 13:42 Tuesday 30th August, 2005
|
|
|
|
|
|
If you're going to have spaces in your filepath, you MUST enclose the entire path in quotes.
Open """" & appPath & songTitle & "mood.txt""" For Append As #FileNum4
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Why does'nt the UpdateCommand of my DataAdapter update the table?
Dim myupdate As String = "update usersecurity set haveaccess=1 where usernamesid=2"
myadapter.UpdateCommand = New OleDbCommand(myupdate, myconnection)
Dim myselect As String = "select * from usersecurity"
myadapter.SelectCommand = New OleDbCommand(myselect, myconnection)
Dim mydatatable As New DataTable
myadapter.Fill(mydatatable)
myadapter.Update(mydatatable)
Thanks for any help.
|
|
|
|
|
Does it just fail to update, or do you get an error message when myadapter.update(mydatatable) executes?
If it just doesnt update, is there definitely records that meet the criteria.
Also, you could always try a command instead:
Dim myupdate As String = "update usersecurity set haveaccess=1 where usernamesid=2"
dim mycmd as new OleDbCommand(myupdate, myconnection)
try
mycmd.executenonquery
catch e as exception
console.writeline (e.message)
end try
|
|
|
|
|
Adding cmd.executenonquery fixed it. Thanks alot for the tip.
|
|
|
|
|
 Dear Friends,
how Can I call the Windows Login Window from Visual Basic. I am lost with this problem since some days.
The program should only continue if the user has entered the correct Windows Username and Password.
Regards
Josef
Josef
|
|
|
|
|
You can't call the dialog from an app. You have to supply your own login form that gets the users name and password, then authenticate them yourself.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
