|
Hi all,
I have an issue with a datagrid in VB 2008 Express. I have loaded an Excel file into a datagrid as a preview; now I want to insert the datagrid content into a table in an Oracle DB (tha table have the same fields of the excel file). How ca I do it? I have tried with the following code but doesn't work 
Using connection As New OleDbConnection(connectionString)
Dim adapter As New OleDbDataAdapter()
adapter.InsertCommand = New OleDbCommand(queryString, connection)
Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
connection.Open()
adapter.Fill(data)
adapter.Update(data, tableName)
Return data
End Using
When VB try to execute this command
adapter.Fill(data)
it crash with vshost error. If I Delete this row the functon works, but I haven't the data into the table.
Is there anyone can help me?
Many thanks
Filippo
|
|
|
|
|
What is the error message?
|
|
|
|
|
"vshost.exe has stopped working" and the application crash
|
|
|
|
|
Hi tried also to cicle into the rows/cols into the Datase with the following instruction
Dim iRow As Integer
Dim iCols As Integer
Dim sriga As String
For iRow = 0 To dgvPreview.RowCount
For iCols = 0 To dgvPreview.ColumnCount
If Len(sriga) = 0 Then
sriga = dgvPreview.Rows(iRow).Cells(iCols).Value.ToString
Else
sriga = sriga & ", " & dgvPreview.Rows(iRow).Cells(iCols).Value.ToString
End If
Next
TextBox2.Text = TextBox2.Text & vbCrLf & sriga
TextBox2.Refresh()
sriga = ""
Next
But the finel result is the same The Vb crash with the same vshost error
Please Help me! I'm going mad!
|
|
|
|
|
Try the following:
For iRow = 0 To dgvPreview.RowCount - 1
For iCols = 0 To dgvPreview.ColumnCount - 1
(Note the additional "- 1" at the end of the lines)
Maybe it is also helpful for your further devolpments to use try-catch-blocks, to handle exceptions. Normally the Exception itself contains several useful information, which could help you to identify the error's position and circumstances.
|
|
|
|
|
Well, first of all, I don't think you're understanding how ADO.Net works.
I suggest starting here: Overview of ADO.NET[^].
The InsertCommand that you are creating is used to run a SQL Insert...or in other words to insert a record into a database. And, the InsertCommand is only used when running an Update where records are marked as added or if you say InsertCommand.ExecuteNonQuery().
If you are trying to fill a table, you need to change the way you are setting up the table. I suggest looking at: OleDBDataAdapter Class[^]
You want to change it to provide a SelectCommand. Generally, you do this like:
newDataAdapter = New OleDb.OleDbDataAdapter(sql, connectionString)
newDataAdapter.Fill(ProjectDS, "ProjectInfo")
I would say you clearly haven't looked at how to use ADO.NET and you need to start there.
|
|
|
|
|
One more thing...you need to make sure to close your connection before returning. It's bad practice to keep it open. I also hope you're creating the DataTable in your function because if it's a global variable, then why are you returning it? And if it's not accessible outside whatever class you're using, why are you making it a global variable?
|
|
|
|
|
Hi dear!,
I am trying to create a ruler for my project. The ruler is from right to left. I want to add an autowidth propert, which should automatically set the width of ruler when the form is resized.
at design time it works but at run time it give me error.
Following is the Ruler's code and it give error when I add it to an application and run it.
Public Class nytRuler
Private Sub nytRuler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim p As Point = New Point(0, 0)
Dim s As Size = New Size(Me.Width, Me.Height)
Dim curRec As Rectangle = Me.ClientRectangle()
g.DrawRectangle(Pens.Black, curRec)
'Converting Pixels to Twips
Dim dpmm As Single = g.DpiX / 25.4F
Dim ptoTwip As Single = (curRec.Width * 15)
'Twips to Inches
Dim twipToInches As Single = CSng(ptoTwip / 1440)
Dim b As Single = curRec.Width
'Draw Numders 1 2 3 etc.
For a As Single = 0 To twipToInches
g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
b = b - 96 '288 192 96
Next
b = curRec.Width
'Dim ptomm As Integer = Me.Width / dpmm
'Draw Lines between inches, and long line every 5th
Dim y As Single = 10.0F
Dim z As Integer = 0
For x As Single = b To 0 Step -9.6
g.DrawLine(Pens.Black, x, 0, x, y)
z += 1
If z = 5 Then
y = 15
z = 0
Else
y = 10
End If
Next
End Sub
Private wd As Boolean
Public Property autowidth() As Boolean
Get
Return wd
End Get
Set(ByVal value As Boolean)
If value Then
Me.Width = ParentForm.Width
End If
wd = value
Me.Invalidate()
End Set
End Property
End Class
|
|
|
|
|
nyt1972 wrote: at design time it works but at run time it give me error.
Maybe you should tell us what the error is, so we can maybe narrow down the problem. It does help us who haven't developed our telepathy yet.
|
|
|
|
|
I have copied and pasted your code into a new forms application and it generates a ruler when the project is run in Debug and in Release.
So without knowing your problem/error, can't help!
|
|
|
|
|
You are tying to create a control for ruler.
if you'r using control in your form it will work like same as run time.
I think you should use graphics to set in your control and do't use the paint method to crate image in the control.
If you can think then I Can.
|
|
|
|
|
Thanks for reply dear,
The problem is that When I build the Ruler and add it to a form then I set the rulers autowidth property to True and run the Application it shows me the following error.
System.InvalidOperationException was unhandled
Message="An error occurred creating the form. See Exception.InnerException for details. The error is: Object reference not set to an instance of an object."
Source="WindowsApplication1"
StackTrace:
at WindowsApplication1.My.MyProject.MyForms.Create__Instance__[T](T Instance) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 190
at WindowsApplication1.My.MyProject.MyForms.get_Form1()
at WindowsApplication1.My.MyApplication.OnCreateMainForm() in C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\My Project\Application.Designer.vb:line 35
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException: System.NullReferenceException
Message="Object reference not set to an instance of an object."
Source="WindowsApplication1"
StackTrace:
at WindowsApplication1.nytRuler.set_autowidth(Boolean value) in C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\nytRuler.vb:line 45
at WindowsApplication1.Form1.InitializeComponent() in C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.Designer.vb:line 31
at WindowsApplication1.Form1..ctor() in C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.Designer.vb:line 53
InnerException:
Please help, I will be thankful.
|
|
|
|
|
Pls pls pls help me, I am getting mad.
|
|
|
|
|
nytRuler is a class, I want to create a dll file and then Insert that ruler to an application where it causes this error when I set the ruler's autowidth property to true and run the application.
hope this will make u understand.
Please help.
Thanks in Advance.
|
|
|
|
|
Hi
I have DatePicker and the Maxdate is set to today:
I am struggling with the MinDate.
I need to set the Mindate to the 1st of 3 Months back(Keep in mind that the current month will be 3rd Month).
Ex.1
For instance if we work it out as today the MinDate has to be: 01 January 2010
Ex.2
if today is the 16th of April 2010 the min date has to be: 01 Feb 2010
I hope someone can help me with this as I am really struggling with this calculation
Thank you in advanced
modified on Tuesday, March 30, 2010 5:39 AM
|
|
|
|
|
I think this is what you want
minDate = DateAdd(DateInterval.Month, -2, Today)
minDate = DateAdd(DateInterval.Day, (Today.Day - 1) * -1, Today)
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Thank you Steven, but if I work it from todays day it should be 01/01/2010 but the result your code gives is 3/1/2010.
I do appreciate your effort in helping.I'll try to work with this code and try to change it.
Thank you so much
|
|
|
|
|
Thank you so much Steven
I have changed the second line of code and replaced today with mindate and its working perfect.
Im just wondering now what would happen if this month has 31 days and 3 months back has only 30.
|
|
|
|
|
Member 4420534 wrote: Im just wondering now what would happen if this month has 31 days and 3 months back has only 30
Either reset your system clock to an appropriate date (not forgetting Feburary only has 28 days or 29 on Leap years).
Define a DateTime varable and use the DateSerial function to populate it with your test date, then use the testing dateTime variable instead of the current system date, to test your code.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Can anyone tell me how to resize an external application window from within a vb.net form? I know how to start and external application using process.start but now i need to know how to set its size when it starts.
|
|
|
|
|
Take a look at Pinvoke - SetWindowPos[^]
Tarakeshwar Reddy
There are two kinds of people, those who do the work and those who take the credit. Try to be in the first group; there is less competition there. - Indira Gandhi
|
|
|
|
|
Thanks for the help I think that will do just what I want
|
|
|
|
|
I have a webpage with text boxes, Radio Buttons and a Button.
User is to fill in the boxes and select a radio button, fill in the message box and then press send.
I want to send to an email address dependant on the radio button choice, and I cannot get it to work.
Here is the code
Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strName As String
Dim strAddress As String
Dim strMessage As String
Dim strType As String
Dim strSendTo As String
Dim strSendFrom As String = "WebAddress"
Dim CompleteMessage As String
strName = ContactName.Text()
strAddress = ContactAddress.Text()
strMessage = TextBox1.Text()
strType = RadioButtonList1.SelectedValue
Select Case strType
Case "sales"
strSendTo = "silverfox@live.co.uk"
Case "contractors"
strSendTo = "colin@fosbern.co.uk"
Case "general"
strSendTo = "pat@fosbern.co.uk"
Case Else
strSendTo = "enquiries@fosbern.co.uk"
End Select
CompleteMessage = "Message From Website " & vbNewLine & strSendFrom & vbNewLine & strSendTo _
& vbNewLine & vbNewLine & strType & vbNewLine & strMessage
Sendmsg(, strSendTo, CompleteMessage)
End Sub
Sendmsg is called, here, so far is what I have,
Public Sub Sendmsg(Optional ByVal msgfrom As String = "", Optional ByVal msgto As String = "", _
Optional ByVal msgmessage As String = "")
Dim SendMessage As New MailMessage
Try
With SendMessage
.To (msgto)
.From (msgFrom)
.Body (msgmessage)
.send
End With
Catch ex As Exception
End Try
End Sub
But it is starting to fall apart.
Arrghhh! I have been at this for ages.
I have the following imports
Imports System
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mail.MailMessage
It is having problems with assigning values to the to and from variables.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
Something like this?
Public Sub SendMessage(ByVal sTOList As String, ByVal sSubject As String, _
ByVal sBody As String, ByVal sCallingRoutine As String)
Dim oMsg As New MailMessage
With oMsg
.From = New MailAddress("xxxxxx@xxxxx.com")
For Each sAddr As String In Split(sTOList, ";")
.To.Add(sAddr)
Next
.Priority = MailPriority.Normal
.Subject = sSubject
.Body = sBody
End With
Try
Dim oSMTP As New SmtpClient
oSMTP.Host = "xxxxxxxx"
oSMTP.Send(oMsg)
Catch ex As Exception
MessageBox.Show("Could not send the status email message." & ControlChars.CrLf & _ ex.ToString, sCallingRoutine, MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End Sub
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Thanks, I was too tired to try again last night, but I shall have a crack with this method tonight.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
