|
|
In XL, if you hide a sheet (or sheets) in a workbook, it means the USER cannot see them, but does it mean the macros and Forms can't see them as well?
I am running a purchase order system, and want the data tables to be unseen by other users, they access only the PO itself and the Index List, but as soon as I hide the sheets, BANG, lots of crashes!
I don't know what to do, except leave the sheets visible.
Any suggestions?
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
The sheets are all available to your macro... check that you are not referencing ActiveSheet - substitute with Sheets("SheetName").
HTH
|
|
|
|
|
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)
|
|
|
|
|
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!
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
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)
|
|
|
|
|
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?
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
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)
|
|
|
|
|
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
|
|
|
|
|
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)
|
|
|
|
|
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?
|
|
|
|
|
oDS.ReadXml(sfilename)
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
PL SUGGEST ME HOW CAN IN INSERT DATETIMEPICKER IN A DATAGRIDVIEW IN VB.NET
THANKS
rmshah
Developer
|
|
|
|
|
you can see a sample here[^]
Il principe 
|
|
|
|
|
ya i tried the one you shown it's working fine to me!! thanks mate
ZAK
|
|
|
|
|
For Each row As DataGridViewRow In DataGridView1.Rows
row.Cells("Date").Value = Today
Next
|
|
|
|
|
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...
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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?
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
Kissy
Sorry I assumed you were using OleDb to connect to your Database. Can you paste what you have so far so we can see?
|
|
|
|
|
Please check my first post,i have already pasted my code there.
kissy
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
