|
Hello everybody. I have the following problem. I can connect to a database with a datagrid and display all records. But when i go to delete one it doesn't do it.
Code for populating datagrid
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from tblDevices", myConnection)
Dim ds As DataSet = New DataSet
da.Fill(ds, "tblDevices")
Dim dv As DataView = ds.Tables("tblDevices").DefaultView
DataGrid1.DataSource = dv
code for deleting
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
Dim cmd As OleDbCommand
myConnection.ConnectionString = connString
myConnection.Open()
Dim mySelectText As String = "Select * from tblDevices"
Dim myDataAdapter As New OleDbDataAdapter(mySelectText, myConnection)
myDataAdapter.DeleteCommand = New OleDbCommand("DELETE FROM tblDevices WHERE Item= '" & tempDevice & "' AND Booked= '" & txtBookedBy.Text & "' AND Date= '" & txtDate.Text & "' AND Time= '" & txtTime.Text & " '", myDataAdapter.SelectCommand.Connection)
myConnection.Close()
What am i doing wrong? 
Still trying to find the way
|
|
|
|
|
use "ExecuteNonquery" method
try to use this logic for deletion
dim objcommand as oledbcommand=new oledbcommand()
objcommand.commandtext="delete ------(ur code)"
myconnection.open()
objcommand.executenonquery()
objcommand.close()
|
|
|
|
|
Hello everybody. Does any one knows how we can use S.M.A.R.T. technology with vb.net? I am trying to write a small program to monitor my HDD temperature. I know that there are programs out there but it would be cool if i could write one for myself. Any help will be much appreciated. Thank you.
Still trying to find the way
|
|
|
|
|
Hello,
I have several forms where the country drop down is required. Instead of calling to load the country in each form, can someone show me a quick way of just calling it as a class from any form in order for the country code to not be redundant.
Thanks prog newbie.
|
|
|
|
|
dropDown.DataSource = Helpers.GetCountryList ? Of course, you need to write the Helper class as well.
Or just create a control. This site probably has one.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
Can someone tell me how to hide applications from the task list on win NT/XP using visual basic 6.0 not visual c++?, coz i was reading certain info. bout hidding applications but the code was in c++ and need it in visual basic 6.0, i really need someone´s help please.
Lamah
|
|
|
|
|
You're going to have to show us what you're talking about, because, in general, there is no way to do that in NT/XP. What's the link you were looking at?
Under Windows 95/98/Me, this was possible using RegisterServiceProcess, but this function is not supported under NT/2000/XP/2003.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i m telling u concept of vb.net. hope this will work
in vb.net there is an event called form_activated
in this form write me.hide
ur application will not be visible
hope this will work
|
|
|
|
|
Oh yes it will be visible! You won't see it on the Applications tab, but you will see it on the Processes tab.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi all,
How can I add a tooltip text to a command button ???
Thanks in advance for your help.
Suman Singh
|
|
|
|
|
Hello,
In VB6 you can use the property "ToolTipText".
In VB.Net you can use the "ToolTip" control from the toolbox, and then a "ToolTip on ToolTipName" property will appear in the button's property page.
I hope this helps,
Programmer2k4
My sig:
"The so-called 'Bugs' do not exist, they are merely features hidden by developers with message boxes that say 'An unhandled exception has occurred'." - Programmer2k4
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
|
|
|
|
|
Hi all,
I have written this code........
On form1
button_click(........)handles......
dim f2 as form2
me.hide
f2.show
On form2
button_click(........)handles......
dim f3 as form3
me.hide
f3.show
Now on form3 I want to close form1.
How should I proceed ????
|
|
|
|
|
If Form1 is your startup object, you can't. If you close the startup object, you'll close your entire application.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
Thanks for your reply.
I just wanted to know how can I close a form from any other form ?
Hope you will again help me.
Thanks !
Suman Singh
|
|
|
|
|
Well, any forms spawned by Form1 will not know Form1 even exists, so there is no easy direct way to close any other form. You get around this problem adding a public field to your child forms where, when created, you pass a reference from the parent form to the child:
Dim myForm2 As New Form2
myForm2.ParentForm = Me
myForm2.Show()
Form2...
Public Class Form2
Public ParentForm As Form
Now, a new problem exists. If your child form tries to close it's parent, it's essentially killing itself in the process. Since the childs parent hold the only existing reference to the child, killing the parent kills the reference, which in turn kills the child.
So, the best method of having a form kill off any other form is to let the parent form manage all other open forms. Say if Form2 need to open Form3, Form2 would call back to Form1 (remember the reference from above?) to tell it to create Form3. Now, Form3 can also call be to Form1 to have it kill off Form2.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am trying to perform a the find command in VB 6.0 where I can reference txtsearch.text value in the "Criteria" portion of the command. I want to type in the search criteria in a text box (txtTest) and then run the find command based on the value of this text box. See code below:
Dim mySearch as string
mySearch = txtTest.text 'where txtTest is an existing text box on my form.
On Error GoTo err_Report
With Adodc2.Recordset
Do Until .EOF
.Find ("Part_Number = '& mysearch &' ")
.MoveNext
Loop
End With
err_Report:
MsgBox Err.Description
-=BHBADZ=-
|
|
|
|
|
Hi There, code guru's =)
Can Anybody give me some hints on how to obtain a RAS (dail up internet connection) IP? Preferably without asking a DNS or WMI /Registry... Can Anybody point me in the right direction?;)
Thanx in advance!!
Dahool
If you make something idiotproof, someone else will make a better idiot.....
|
|
|
|
|
I have a data type is smalldatetime in the sql table, when I bind to my DataTable in VB.NET, when there is value in this column, the output is fine, but when it's NULL, then it gets error of the data type. In the sql, if it's string, I do ISULL(firstname, '') AS firstName inside sql query, then the output is fine, but I don't know how to convert the null smalldatetime. Is there any idea?
Lisa
|
|
|
|
|
|
I'm doing the OleDbDataReader in the vb appl.
THis is my code:
Dim OrderDate as date
Dim DataAdapter As New OleDbDataAdapter
Dim DataReader As OleDbDataReader
**connecting***
**sql query**
Select dateOrder from orderTable
***
DataReader = DataAdapter.SelectCommand.ExecuteReader()
Do While DataReader.Read()
OrderDate = DataReader.GetDateTime(0)
Loop
lblOrderDate.text = OrderDate
Where should I check the value of the column before using it?
If the dateOrder is Null, then this OrderDate = DataReader.GetDateTime(0) will get error.
THanks
Lisa
|
|
|
|
|
Okay - You are using a SqlDataReader, I assumed you had a dataset. By the way, if you are extracting data through a data reader then using a data adapter is redundant. Just build the SqlCommand object and use that.
Anyway, I've modified your code:
DataReader = DataAdapter.SelectCommand.ExecuteReader()
Do While DataReader.Read()
If Not DataReader.IsDBNull(0) Then
OrderDate = DataReader.GetDateTime(0)
Else
' Do something else because the data time is null
End If
Loop
Does this help?
Disclaimer - I typed this directly. There may be typos, syntax errors, etc.
My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More
|
|
|
|
|
Thanks! it works much better..
but there is one more thing.
how can I covert a Date type to a String type in vb?
The OrderDate is Date type, and I want it to be OrderDate= "" when it's NULL.
Lisa
|
|
|
|
|
|
it won't work when I do this...
Dim OrderDate as String
inside DataRead
If Not DR.IsDBNull(0) Then
orderDate = DR.GetDateTime(0).ToString("MM/dd/yyyy")
Else
orderDate = "" ***here is not working***
End If
any idea?
Lisa
|
|
|
|
|
Try
orderDate = IIf(IsDBNull(DR.GetDateTime(0)),"",DR.GetDateTime(0))
IIF(expression,Truepart,falsePart)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
