|
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.
|
|
|
|
|
hi friends,
i am new to vb.net window applications,i don't know how to make a datagrid column as combobox and at the same time i need to bind the data to the combobox from the database.is anyone knows please help me
|
|
|
|
|
|
Take a look at this link:
http://www.codeproject.com/cs/miscctrl/datagridcomboboxcolumn.asp
|
|
|
|
|
hellow to all ..
i am trying to write sql statment , it run fine ..
but when i run the statment i have this error "Syntax error in FROM clause"
her is my code
Dim sConnection, ssql, cmtype As String
sConnection = "provider=microsoft.jet.oledb.4.0;data source=C:\Printers.mdb"
ssql = "Select * From add Where(type="
ssql = ssql & "'" & Cmbtype.SelectedItem & "')"
Try
Dim OleDbConn As OleDbConnection = New OleDbConnection(sConnection)
OleDbConn.Open()
Dim MyDataReader As OleDbDataReader
Dim MyOleDbCommand As OleDbCommand = New OleDbCommand
Dim MyDataSet As New DataSet
Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
MessageBox.Show(ssql)
MyOleDataAdapter.SelectCommand = New OleDbCommand(ssql, OleDbConn)
MyOleDataAdapter.Fill(MyDataSet)
MyOleDbCommand.Connection = (OleDbConn)
MyOleDbCommand.CommandText = ssql
MyDataReader = MyOleDbCommand.ExecuteReader
Do While MyDataReader.Read
cmbModel.Items.Add(MyDataReader("ADD.[דגם מכונה]"))
Loop
MyDataReader.Close()
OleDbConn.Close()
OleDbConn.Dispose()
Catch err As System.Exception
MessageBox.Show(err.Message)
End Try
thxx for anyhelp ...
|
|
|
|
|
microuser_2000 wrote:
Select * From add Where(type=
add is a keyword. You can't use it as a table name. If this is an Access database, you might get away with putting square braces around the name, like this:
Select * From [ADD] WHER (type=...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Once you populate a datagrid with information from a database. What is the best way to access the data stored in the datagrid. e.g. If I want to know what is in column 3 row 6, and display it in a simple label.
Whats the best way to go about that?
|
|
|
|
|
Hello!
You can access the data of a cell by simple statement...
DataGridName.Item(RowIndex, ColIndex) <---
_mubashir
|
|
|
|
|
When I try that I recieve the error that.
'item' is not a member of 'System.Web.UI.WebControls.DataGrid'
|
|
|
|
|
I can not be 100% sure since i do not have .NET installed on this machine, but I thinks you can access an item by using:
DataGrid1.Items(0).Cells(1).Text()
The example that mubashir wrote applies to VB.NET Application and I see your application is an asp.net app
|
|
|
|
|
Yaaaaaass!!!! It worked, I can't believe I've spent so long on such a little problem.
Cheers!
|
|
|
|
|
I'm having problems trying to hash a password in Visual Basic NET. The result of my code is different that the result of my php page.
My VBNET code is this
Dim md5 As MD5CryptoServiceProvider<br />
Dim bytValue() As Byte<br />
Dim bytHash() As Byte<br />
md5 = New MD5CryptoServiceProvider<br />
bytValue = System.Text.Encoding.UTF8.GetBytes(txtPassword.Text)<br />
bytHash = md5.ComputeHash(bytValue)<br />
md5.Clear()<br />
messagebox.show(Convert.ToBase64String(bytHash))
The result is "bXOF/9d64JOf/waR9/mEFQ=="
In PHP with his simple code
echo md5($password);
shows "6d7385ffd77ae0939fff0691f7f98415"
Maybe anyone can say me why is different? Wich is the good VB code to show the same that in PHP?
Thanks in advance
|
|
|
|
|
Md5 results in a 128-bit number, php's function displays this in hexadecimal this is not the same as using ToBase64String.
I don't know if there is a better way but this seemed to work
<br />
Dim md5 As MD5CryptoServiceProvider<br />
Dim bytValue() As Byte<br />
Dim bytHash() As Byte<br />
Dim sb As StringBuilder = New StringBuilder(32)<br />
Dim i As Integer<br />
md5 = New MD5CryptoServiceProvider<br />
bytValue = System.Text.Encoding.UTF8.GetBytes(txtPassword.Text)<br />
bytHash = md5.ComputeHash(bytValue)<br />
md5.Clear()<br />
For i = 0 To bytHash.Length - 1<br />
sb.Append(bytHash(i).ToString("x"))<br />
Next<br />
MessageBox.Show(sb.ToString())<br />
|
|
|
|
|
Thanks a lot!!
The code not works completely, but it's very close.
Every time you append the text, sb is 2 characters longer. The problem appears when the bythash(i).toString("x") returns 1 character.
VBNET "6d 73 85 ff d7 7a e0 93 9f ff 6 91 f7 f9 84 15"
PHP "6d 73 85 ff d7 7a e0 93 9f ff 06 91 f7 f9 84 15"
How is the clever way to always return 2 characters? How can I format this?
NOTE: My txtpassword.text is "pasa"
|
|
|
|
|
A workaround is this
<br />
For i = 0 To bytHash.Length - 1<br />
str = bytHash(i).ToString("x")<br />
If str.Length = 1 Then<br />
str = "0" & bytHash(i).ToString("x")<br />
End If<br />
sb.Append(str)<br />
Next<br />
But there is a clever way for sure.
Anybody?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
