|
You will need to add a context menu to the form.
<br />
Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown<br />
If e.Button = MouseButtons.Right Then<br />
ContextMenu1.Show(Me.ListBox1, New System.Drawing.Point(e.X, e.Y))<br />
End If<br />
End Sub<br />
Mike Lasseter
|
|
|
|
|
I wrote a scipt that takes an Access database and imports it to SQL Server. The Access db has over 1 million records in it. The script works, but around halfway through adding the records I get a "page cannot be displayed" error. It is strange because there is nothing in my script that tells it to change pages. This error occurs during the WHILE loop. If i look at my SQL db, i can see that the script is still running and adding records even though this error page appears. I think it may be some sort of server setting, but have not been able to figure it out. I need to redirect the user later in the script after this import completes, so I need to get this fixed. Here is my code:
<br />
Sub Cat1_Import()<br />
Dim startTime = Timer<br />
Dim AccessConn As OleDbConnection<br />
Dim AccessCmd As OleDbCommand<br />
Dim RecSet As OleDbDataReader<br />
Dim SqlString As String = "Data Source=mysource;Initial Catalog=mycatalog;Pooling=True;Min Pool Size=100;Max Pool Size=200;User ID=user;Password=pass"<br />
Dim SqlConn As SqlConnection<br />
Dim SqlCmd As SqlCommand<br />
Dim SqlRecSet As SqlDataReader<br />
Dim UpdateSql As String<br />
Dim SelectSql As String = "SELECT * FROM [Equipment Contract Pricing]"<br />
<br />
'connect to Access db<br />
AccessConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=path-to-my-db\Equipment.mdb")<br />
AccessConn.Open()<br />
AccessCmd = New OleDbCommand("SELECT * FROM [Equipment Contract Pricing]", AccessConn)<br />
RecSet = AccessCmd.ExecuteReader()<br />
<br />
'connect to sql server<br />
SqlConn = New SqlConnection(SqlString)<br />
SqlConn.Open()<br />
<br />
'loop through access db records to insert each record into Sql Server db<br />
While RecSet.Read()<br />
UpdateSql = "INSERT INTO [Equipment Contract Pricing] (CLIN, Offeror_ID, Product, ID_Number, Description, Specifications, Standards, ISO9000, Manufacturer, Model_No, Cat_Code, Sale_Area, Purch_Price, Price_Unit, YR, Last_Update_P) Values "<br />
UpdateSql &= "('" & RecSet("CLIN") & "', '" & RecSet("Offeror_ID") & "', '" & Replace(RecSet("Product"), "'", "''") & "', '" & RecSet("ID_Number") & "', '" & Replace(RecSet("Description"), "'", "''") & "', '" & Replace(RecSet("Specifications"), "'", "''") & "', '" & RecSet("Standards") & "', '" & RecSet("ISO9000") & "'"<br />
UpdateSql &= ", '" & RecSet("Manufacturer") & "', '" & RecSet("Model_No") & "', '" & RecSet("Cat_Code") & "', '" & RecSet("Sale_Area") & "', convert(money,'" & RecSet("Purch_Price") & "'), '" & RecSet("Price_Unit") & "', '" & RecSet("YR") & "', '" & RecSet("Last_Update_P") & "')"<br />
SqlCmd = New SqlCommand(UpdateSql, SqlConn)<br />
SqlCmd.ExecuteNonQuery()<br />
End While<br />
<br />
SqlCmd = New SqlCommand(SelectSql, SqlConn)<br />
SqlRecSet = SqlCmd.ExecuteReader()<br />
If SqlRecSet.HasRows Then<br />
Session("import") = "Data successfully transferred."<br />
Else<br />
Session("import") = "Temporary table is still empty. There was an error importing the data."<br />
End If<br />
<br />
RecSet.Close()<br />
SqlRecSet.Close()<br />
AccessConn.Close()<br />
SqlConn.Close()<br />
<br />
Dim endTime, processTime, hrTime, minTime, secTime As Double<br />
endTime = Timer<br />
processTime = endTime - startTime<br />
hrTime = processTime / 3600<br />
minTime = processTime / 60<br />
secTime = Decimal.Remainder(processTime, 60)<br />
If secTime < 0 Then secTime = 0<br />
Session("time") = "Total Process Time: " & FormatNumber(hrTime, 0) & " hours, " & FormatNumber(minTime, 0) & " minutes, " & FormatNumber(secTime, 0) & " seconds"<br />
<br />
End Sub<br />
Anyone have any iseas why this is happening?
Thanks,
Mike
|
|
|
|
|
I just wanted to add to this post. I put a timer on the page and this error occurs at the 1 hour mark every time. I am pretty sure this is a server issue. Maybe there is a setting in IIS I am overlooking. Any ideas?
|
|
|
|
|
Hello!
I posted a bit ago with a question about a syntax error in a seemingly-flawless SQL string but now I'm back with what is hopefully a simpler problem:
In my program, record (tuples) in a database are represented as items in a list box. The user can select any item they wish from the list box and have all the information about that entry readily displayed to the form - this part is working just fine.
What isn't working is record deletion. Although the deletion itself is working (in that it does, in fact, delete the selected record), it does not update the primary key (an ID # in this case) at all thus after deleting a few random records I am left with a rather unorderly database.
I have tried manually updating the ID via an SQL UPDATE statement as follows:
oleCommand.CommandText = "UPDATE tblEvents (ID) VALUES (" + nCount + ")"
Where:
oleCommand = my OleDbCommand object
tblEvents = my table within the database I'm using
ID = the primary key of this table
nCount = a counter variable dually-used to step through a loop while setting the ID for each record.
Please let me know if oyu have any ideas and thank you in advance!
|
|
|
|
|
Hi
Is the ID field an AutoNumber?
|
|
|
|
|
I have tried both Autonumber as well as a regular Number and neither work. Currently, it is set for Autonumber
|
|
|
|
|
Hi
Is the SQL statement within the loop?
Chandra
|
|
|
|
|
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSelected.Click
Dim strSQL As String = ""
Dim nIndex As Integer = 0
Dim nCount As Integer = 0
If lstHistory.SelectedIndex < 0 Then
MsgBox("You must first select the record you wish to delete.", MsgBoxStyle.Critical, "Selection Required")
Else
nIndex = lstHistory.SelectedIndex
lstHistory.ClearSelected()
strSQL = "DELETE FROM tblEvents WHERE ID = " + nIndex.ToString()
Try
oleCommand = New OleDbCommand()
With oleCommand
.Connection = New OleDbConnection(strConn)
.Connection.Open()
.CommandText = strSQL
End With
oleDataAdapter = New OleDb.OleDbDataAdapter(oleCommand)
oleCommand.ExecuteNonQuery()
oleCommand.Connection.Close()
PopulateHistory()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Try
oleCommand = New OleDbCommand()
oleCommand.Connection = New OleDbConnection(strConn)
oleCommand.Connection.Open()
For nCount = 0 To nRecords
oleCommand.CommandText = "UPDATE tblEvents (ID) VALUES (" + nCount + ")"
oleDataAdapter = New OleDbDataAdapter(oleCommand)
Next
oleCommand.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
The UPDATE SQL string is, indeed, within a For loop. I update the ID VALUE of that string with the counter (nCount) of the For loop in attempt to manually update each tuple's ID.
-- modified at 16:32 Tuesday 25th July, 2006
|
|
|
|
|
Hi
I think the SQL statement that you have used for the Update command should read:
"Update tblEvents set Id = " & nCount
Another thing - this is going to try to set the ID of all records in the table, you should specify a "where " clause, that identifies a unique record to be updated.
hth
Chandra
|
|
|
|
|
I'm trying to populate a drop down list from an arraylist.
I have an array called idnums
thought I could do something like this:
Dim C As Integer
Dim I As Integer
C = idnums.Count
For I = 0 To C
dlIdNums.Items.Add(idnums.Item(I))
Next
thanks
|
|
|
|
|
Are you taking about a ComboBox or ASP.NET Control DropDownList
No need for the Loop Just bind the Datasource to the arraylist.
dlIdNums.DataSource = idnums
dlIdNums.DisplayMember = "name" or DataTextField(ASP)
dlIdNums.ValueMember = "value" or DataValueField(ASP)
Check Help if I am wrong it is in there.
|
|
|
|
|
I have a datagrid control, but i dont know how to tell when a user clicks on one of the rows and how to know which row he clicked on!
Can somebody please tell me how to do this.
There are 10 types of people in this world, those who understand binary and those who don't!
|
|
|
|
|
Hi,
How can i acces to allocation table of NTFS disks in .net?
ANd after, i need to write directly to the non-allocated spaces?
Thanx,
Cesur
|
|
|
|
|
have a vb6 program that handle a database file ( access) and i need to save that file to a cd (compact disk) to use it with another program (i.e. to transfer the file from computer to another computer ) and i want to make that by click a "save" command button in my vb6 program
|
|
|
|
|
How can we set column header of datagrid? Suppose there are 3 columns of table in dataset i.e. R,N,A; i want to show r as Roll Number, N as Name of Candidate and A as Age.
Thanks in Advance.
Girish Sharma
|
|
|
|
|
Not sure i understand the question, but perhaps you could make the first row of cells to be labels with the headings of your columns as their text. Maybe make the text bold and background different color to distinguish them from the rest of the datarows?
There are 10 types of people in this world, those who understand binary and those who don't!
|
|
|
|
|
Look at using tablestyles
Mike Lasseter
|
|
|
|
|
The .net datagrid control is total garbage!
Every one wants to sell you a datagrid control that doesn't really do what you want it to!
Can someone please point me to a free datagrid control that has an event that will tell me which row or item a user clicks on.
Please Please Please!
Thanx in advance!
There are 10 types of people in this world, those who understand binary and those who don't!
|
|
|
|
|
how can we implement different file formats in VB.Net
divya
|
|
|
|
|
By writing code that handles different file formats.
I think you are going to have to be a bit more specific if you want a better answer than the flippant response I gave above.
|
|
|
|
|
First explore yourself in MSDN; how many file formats are available in VB.NET. Which 1 u want?
I think self learning and understanding may increase your knowledge-base.
Girish
Girish Sharma
|
|
|
|
|
Girish481 wrote: self learning and understanding may increase your knowledge-base
I know that - but shouldn't you be telling the OP that?
|
|
|
|
|
Actually i want to make an application in VB.Net through which we can upload different file formats just as rtf files and more type of files and after uploading we are able to see that files
divya
|
|
|
|
|
Still too vague. Specify each file type you are interested in.
With RTF you have the option of a RichTextBox (If your application is a windows forms application) in order to show the file. If not then you are going to have to obtain the specification of RTF and provide your own means of translating the file into a viewable format.
|
|
|
|
|
I'm trying to populate a checkbox on a grid. The sub calls the procedure and populates the datagrid without error. However the checkbox does not populate with the correct values and each line shows a "checked" check box
Can you let me know how I can convert the 1 or 0 that the procedure is returning to display a check or blank in the checkbox? An outline of the code is below.
many thanks
Kerrie
Dim t As System.Data.OracleClient.OracleType
Dim r As System.Data.OracleClient.OracleDataReader
Dim aGridTableStyle1 As New DataGridTableStyle
Dim colUser_ID As New DataGridTextBoxColumn
Dim colUSER_DVD_ID As New DataGridTextBoxColumn
Dim colUSER_IFAST_ID As New DataGridTextBoxColumn
Dim colSystem_ID As New DataGridBoolColumn
aGridTableStyle1.MappingName = "T_DVD_VERI"
Me.dtgUSUsers.TableStyles.Clear()
Me.dtgUSUsers.DataBindings.Clear()
With colSystem_ID
.MappingName = "IGNORE_TRADES"
.HeaderText = "System User"
.TrueValue = 1
.FalseValue = 0
.Width = 25
End With
...
aGridTableStyle1.GridColumnStyles.Add(colSystem_ID)
Me.OracleSelectCommand1.CommandText = ....
Me.OracleConnection1.Open()
r = Me.OracleSelectCommand1.ExecuteReader()
dtgUSUsers.TableStyles.Add(aGridTableStyle1)
dtgUSUsers.DataMember = "T_DVD_VERI"
Me.OracleDataAdapter1.Fill(DataSet2, "T_DVD_VERI")
dtgUSUsers.DataSource = DataSet2
dtgUSUsers.Expand(-1)
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
