|
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
|
|
|
|
|
One would assume that they are already logged in, so why get them to authenticate again?
Also, from a psycological point of view, asking a user to supply their log in credentials too frequently will desensitise them from thinking about why they are being asked for the information and will supply it blindly when asked. This is something that scammers take advantage of when attempting to gain illicit access to a computer system.
My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More
|
|
|
|
|
The reason for this is, that when they open the app, they see very sensitive data. It has to be prevented, that someone can log on to the application on an unlocked PC. As I do not want to use an Internal User/password list, I would like to use the Windows logon. (I have an internal username/password list in some other applications and there they always forget their password.
REgards
Josef
|
|
|
|
|
Well, in a law enforcement sensitive environment, each system/application has it's own username and password, because of the sensitive nature of the data inside. Reason being is a user doesn't have one single key to unlock everything. If one userid/password is compromised, that same userid/password can't be used to gain access to and/or do further damage in other systems.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have a column that contain 7 rows how can find maximum value
in the grid
1,2,3,4,5,6,7
7 is max value how to get it
anybody help me
Continue...
|
|
|
|
|
Hello!
You can access each cell element in datagrids and by this you can loop throug the cells till you find out the max value.
Access cells like this
DataGrid1.Items(RowIndex,ColIndex) in vb.net
For you case
DataGrid1.Items(0,0) will return 1 and so on...
Now you can use any algo to find max......it is basic
I hope this will help u out...!
_mubashir
|
|
|
|
|
I'm working on a socket program using .net and going against a Unix server. The delays in the following code are needed for it to work correctly. Can anyone help me find a way to get this working without adding the delay?
<br />
Friend Function Insert(ByVal Name As String, ByVal Client As System.Net.Sockets.TcpClient, ByVal netStream As NetworkStream, ByVal sr As StreamWriter) As String<br />
<br />
Dim InsertRequest As String = "INSERT::" & Name & ";"<br />
Dim sendInsertRequest As [Byte]() = Encoding.ASCII.GetBytes(InsertRequest)<br />
''
sr.WriteLine("CMD-" & vbTab & InsertRequest)<br />
netStream.Write(sendInsertRequest, 0, sendInsertRequest.Length)<br />
<br />
''
Dim Response As String = GetResponse(Client, netStream, sr)<br />
Return Response<br />
End Function<br />
<br />
Private Function GetResponse(ByVal Client As System.Net.Sockets.TcpClient, ByVal netStream As NetworkStream, ByVal sr As StreamWriter) As String<br />
''
System.Threading.Thread.Sleep(m_delay)<br />
''
Dim numberOfBytesRead As Integer = 0<br />
Dim bytes(Client.ReceiveBufferSize) As Byte<br />
Dim returndata As String = Encoding.ASCII.GetString(bytes)<br />
Dim SocketData As New System.Text.StringBuilder<br />
Do<br />
numberOfBytesRead = netStream.Read(bytes, 0, uCVT.IntNulls(Client.ReceiveBufferSize))<br />
returndata = Encoding.ASCII.GetString(bytes)<br />
returndata = Microsoft.VisualBasic.Left(returndata, numberOfBytesRead)<br />
SocketData.Append(returndata)<br />
System.Threading.Thread.Sleep(m_delay)<br />
Loop While netStream.DataAvailable<br />
sr.WriteLine("RSP-" & vbTab & SocketData.ToString)<br />
Return SocketData.ToString<br />
End Function<br />
Thank you,
Jason W.
|
|
|
|
|