Visual Basic

22-Jul-08 23:24

I got a vb service that does not want to do IO. It works fine in my test environment but when I deploy it, it doesn't seem to want to do the IO part of its task. Does anybody know why?

Stephen Lintott Bsc IT (RAU)

Dalek Dave23-Jul-08 0:32

Dalek Dave

23-Jul-08 0:32

This may seem a little obvious, but without the code in front of me, well...

Are you declaring System.IO within the code?

I ask only because I was caught out on this before!

Stephen Lintott23-Jul-08 1:11

23-Jul-08 1:11

Sorry never thought about the code...
The answer is yes and here is some code to go with it.

Dim sw As New System.IO.StreamWriter(ConfigurationManager.AppSettings("IPAccountingLocation") & routerIP & ".txt")

Try
sw.Write(result)
Catch ex As Exception
Finally
sw.Close()
sw.Dispose()
End Try

Try
Dim path As String
path = ConfigurationManager.AppSettings("AppServer")
Dim CurrentDate = DateTime.Now
path = path + "\" + CurrentDate.year.ToString
Dim DateStr = ""
If CurrentDate.Month.ToString = "1" Then
DateStr = "Jan"
End If
If CurrentDate.Month.ToString = "2" Then
DateStr = "Feb"
End If
If CurrentDate.Month.ToString = "3" Then
DateStr = "Mrt"
End If
If CurrentDate.Month.ToString = "4" Then
DateStr = "Apr"
End If
If CurrentDate.Month.ToString = "5" Then
DateStr = "May"
End If
If CurrentDate.Month.ToString = "6" Then
DateStr = "Jun"
End If
If CurrentDate.Month.ToString = "7" Then
DateStr = "Jul"
End If
If CurrentDate.Month.ToString = "8" Then
DateStr = "Aug"
End If
If CurrentDate.Month.ToString = "9" Then
DateStr = "Sep"
End If
If CurrentDate.Month.ToString = "10" Then
DateStr = "Oct"
End If
If CurrentDate.Month.ToString = "11" Then
DateStr = "Nov"
End If
If CurrentDate.Month.ToString = "12" Then
DateStr = "Dec"
End If
path = path + "\" + DateStr
Dim strRouterName As String = ""

' Just to get the router name
Dim con As New SqlClient.SqlConnection(ConfigurationManager.AppSettings("SQLConn"))
con.Open()
Dim selectName As New SqlClient.SqlCommand("Select RouterName from tblRouters where RouterIP=@RouterIP;", con)
Dim sqlParam As New SqlClient.SqlParameter("@RouterIP", SqlDbType.NVarChar)
sqlParam.Value = routerIP
selectName.Parameters.Add(sqlParam)
Dim sqlReader As SqlClient.SqlDataReader
sqlReader = selectName.ExecuteReader
If sqlReader.Read Then
strRouterName = sqlReader("RouterName")
End If
sqlReader.Close()
con.Close()

path = path + "\" + routerIP + "-" + strRouterName
path = path + "\" + CurrentDate.Day.ToString

Dim dir As New System.IO.DirectoryInfo(path)
dir.Create()
path = path + "\" + routerIP + "-" + CurrentDate.Hour.ToString + "-" + CurrentDate.Minute.ToString + ".txt"
Dim sw1 As New System.IO.StreamWriter(path)
sw1.Write(result)
sw1.Close()
sw1.Dispose()

Stephen Lintott Bsc IT (RAU)

Dalek Dave23-Jul-08 1:39

Dalek Dave

23-Jul-08 1:39

I have read through twice, and can't see why the io isn't working.
The paths seem clear enough (A little convoluted but readable), and the io definately declared correctly.

What appears to be the problem when running? is it just not opening the streams?

Stephen Lintott23-Jul-08 1:44

23-Jul-08 1:44

As I said. It works fine in the test environment but does nothing in the live environment. No directory creatition, no files nothing

Stephen Lintott Bsc IT (RAU)

zahedonline23-Jul-08 1:49

zahedonline

23-Jul-08 1:49

One quick solution...
Check all the Read/Write/Execute all permissions are applicable for creation/modification/deletion of Folder/File on the server that you are trying to connect to!!!

Regards,

ZAK

Stephen Lintott23-Jul-08 1:55

How do I populate a Strongly Typed DataSet with XML

23-Jul-08 1:55

It's running on the server a a local service and is doing io to the local drives. What settings must I check? I'm not connecting to a server with this.

Stephen Lintott Bsc IT (RAU)

penguin500022-Jul-08 23:03

penguin5000

22-Jul-08 23:03

I am trying to populate a table in a strongly typed dataset used for the ReportViewer.
I want to read in an XML file which was created manually using ds.WriteXML.
The strongly typed dataset has been created to match the structure of the XML file written with ds.WriteXML.
How do I read in the XML file, and populate the table within the dataset used for the ReportViewer?

Re: How do I populate a Strongly Typed DataSet with XML

Mycroft Holmes23-Jul-08 14:02

Mycroft Holmes

23-Jul-08 14:02

oDS.ReadXml(sfilename)

Never underestimate the power of human stupidity
RAH

DATETIMEPICKER IN VB.NET

r_mohd22-Jul-08 22:57

r_mohd

22-Jul-08 22:57

PL SUGGEST ME HOW CAN IN INSERT DATETIMEPICKER IN A DATAGRIDVIEW IN VB.NET

THANKS

rmshah
Developer

Re: DATETIMEPICKER IN VB.NET

ilprincipe23-Jul-08 1:19

ilprincipe

23-Jul-08 1:19

you can see a sample here[^]

Il principe Wink | ;)

Re: DATETIMEPICKER IN VB.NET

zahedonline23-Jul-08 1:54

zahedonline

23-Jul-08 1:54

ya i tried the one you shown it's working fine to me!! thanks mate Wink | ;)

ZAK

Re: DATETIMEPICKER IN VB.NET

brjames3223-Jul-08 1:33

How to detect if a removable storage device is write protected?? Please help...

23-Jul-08 1:33

For Each row As DataGridViewRow In DataGridView1.Rows
            row.Cells("Date").Value = Today
     Next

vbDigger'z22-Jul-08 21:44

vbDigger'z

22-Jul-08 21:44

Please anybody there...know how to detect if a removable storage device is write protected?? i having difficulty to figure this out.. Please help?...

i do really appreciate to anybody share their idea... please.. thanks in advance...

Re: How to detect if a removable storage device is write protected?? Please help...

Paul Conrad27-Jul-08 11:03

Paul Conrad

27-Jul-08 11:03

You could aways try to write a temporary file to it and catch the exception if the device is write-protected.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

Saving DataGidView data to Excel

brjames3222-Jul-08 21:25

Re: Saving DataGidView data to Excel

22-Jul-08 21:25

I have a project where a Teacher can choose their class from a ComboBox and this is turn selects all the relevant student from an Access Database and displays this along with some extra columns in a DataGridView.

The Teacher can then add 'Penalty Points' and 'Demerits' to the student before saving them to a spreadsheet (reason being the info needs a lot of formulas to get it to work out several thing the Heads of Year want to see!). I can Insert into Excel using code such as:

Imports System.Data
Public Class Form1
    Private Sub cmdSave_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles cmdSave.Click
        Try
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim myCommand As New System.Data.OleDb.OleDbCommand
            Dim sql As String

            MyConnection = New System.Data.OleDb.OleDbConnection _
            ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
            "'S:\Penalty Points\07-08\Test.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=0""")

            MyConnection.Open()
            myCommand.Connection = MyConnection
            sql = "Insert into [Sheet1$] (StudentId,Name) values('5','e')"
            myCommand.CommandText = sql
            myCommand.ExecuteNonQuery()
            MyConnection.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        MsgBox("Row Added Successfully")
    End Sub
End Class

But I need to loop through the DatagridView, Inserting all rows that have been ammended. Can anyone help me out please?

Thanks in Advance Wink | ;)

brjames3223-Jul-08 6:27

how to get combobox selected value in integer

23-Jul-08 6:27

Here's my latest code:

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click

        Try
            Dim MyExcelConnection As System.Data.OleDb.OleDbConnection
            Dim myCommand As New System.Data.OleDb.OleDbCommand
            Dim daExcel As New System.Data.OleDb.OleDbDataAdapter

            MyExcelConnection = New System.Data.OleDb.OleDbConnection _
            ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\SanctionsDb\2007-08\points.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=0""")

            For Each row As DataGridViewRow In DataGridView1.Rows
                With myCommand
                    .CommandText = "Insert into [Sheet1$] (StudentId,StuName,ClassGrp,TheDate,Merits,Demerits,Lesson," + _
                        "TeachingGrp,Description,Action,MeritType) values(?,?,?,?,?,?,?,?,?,?,?)"
                    .CommandType = CommandType.Text
                    .Connection = MyConnection
                    ' Configure the insert parameters
                    .Parameters.Add(New OleDb.OleDbParameter("StudId", OleDb.OleDbType.Double, 0, "StudId"))
                    .Parameters.Add(New OleDb.OleDbParameter("Name", OleDb.OleDbType.Double, 0, "Name"))
                    .Parameters.Add(New OleDb.OleDbParameter("Class Grp", OleDb.OleDbType.Double, 0, "ClassGrp"))
                    .Parameters.Add(New OleDb.OleDbParameter("Date", OleDb.OleDbType.Double, 0, "Date"))
                    .Parameters.Add(New OleDb.OleDbParameter("Merits to Add", OleDb.OleDbType.Double, 0, "Merits"))
                    .Parameters.Add(New OleDb.OleDbParameter("Demerits to Add", OleDb.OleDbType.Double, 0, "Demerits"))
                    .Parameters.Add(New OleDb.OleDbParameter("Lesson", OleDb.OleDbType.Double, 0, "Lesson"))
                    .Parameters.Add(New OleDb.OleDbParameter("TeachingGrp", OleDb.OleDbType.Double, 0, "TeachingGrp"))
                    .Parameters.Add(New OleDb.OleDbParameter("Description", OleDb.OleDbType.Double, 0, "Description"))
                    .Parameters.Add(New OleDb.OleDbParameter("Action", OleDb.OleDbType.Double, 0, "Action"))
                    .Parameters.Add(New OleDb.OleDbParameter("Type", OleDb.OleDbType.Double, 0, "Type"))
                End With
            Next
            daExcel.InsertCommand = myCommand

            MyExcelConnection.Open()
            daExcel.Update(ds, "Groups")
            ' Cleanup
            MyExcelConnection.Close()
            daExcel.Dispose()
            daExcel = Nothing
            MyExcelConnection.Dispose()
            MyExcelConnection = Nothing

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        MsgBox("Row Added ")
    End Sub

Surely it should work shouldn't it?

Kissy1622-Jul-08 21:24

Kissy16

22-Jul-08 21:24

I am filling combo box as per below code,and i want to insert the respectibe selected item's code from the database into other table.
how to get selected value?

My code for filling combo box is..

dbconn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\guest\dmb.mdb")
dbconn.Open()
sql = "Select distinct DESIGNATION from DESIG"
dbcomm = New OleDb.OleDbCommand(sql, dbconn)
dbread = dbcomm.Executereader()
cmbdesig.Items.Clear()
While dbread.Read
cmbdesig.Items.Add(dbread("DESIGNATION"))
End While
dbread.close()
dbconn.Close()

Designation table have both desig_code and designation.
I want to get the selected value (desig_code).Which property should i set to get it??
Answer please

kissy

Re: how to get combobox selected value in integer

brjames3222-Jul-08 21:31

Re: how to get combobox selected value in integer

22-Jul-08 21:31

Hi Kissy

Something like:

daGroups.Fill(ds, "Groups")
        cboTeachingGrp.DataSource = ds.Tables("Groups")
        cboTeachingGrp.DisplayMember = "groupcode"

Where Groups is the column containing the info from the database.

Hope this helps Wink | ;)

Kissy1622-Jul-08 22:00

Kissy16

22-Jul-08 22:00

Thanks for ur answer.
But ur code is not working.
Here i want it like in asp.net dropdownlist's
Datatextfield(TEXT) and datavaluefield(code).
So when iwant to insert code ,i can use only the selectedvalue.
but in ur code it,is displaying code in the combobox.
i want to display text and insert the respective code.
Give me some other suggestion in frawework 2.0.
Windows application using vb in framework 2.0

kissy

Re: how to get combobox selected value in integer

brjames3222-Jul-08 22:16