|
I want to install .net application on AS/400.
Is there framework avaliable for AS/400 or for other platform
|
|
|
|
|
The only other implimentation of .NET is Mono, for *nix.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hi All,
I devlop a software where the report are genrated automatically in excel sheet the problem is when we do this the report will created but when i want to open the file the file will not open due to excel application allready running in background.
I use the application.quit but excel is still running i background, so it has to be closed by user by pressing alt+ctrl+delete.
Plz help me how could i solve this problem
with regards
YOGESH AGARWAL
|
|
|
|
|
I don't see why Excel already having started should be a problem, unless it's created the report and is locking the file ?
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
hi all, i am developing a barcode system of one factory. my client wants to shutdown the computer if he or she click the button log out.
can anyone can give me an idea about that task. all i have to do is, if i click the button Log Out my computer will shutdown. by the way i'm using vb 6.0 in that project. thanks for advance.
Don't block the drive way of all the newbies in programming. 
|
|
|
|
|
Hi buddy
use the shell command as following..
Shell "shutdown -s -t 0"
|
|
|
|
|
Hi, Dear
I like the answer, Now plz tell me how could i run this command on click event of a button in VB.Net .
Awaiting for your reply
Yogesh Agarwal
|
|
|
|
|
try the same code as you see. paste it in button in vb.net
Don't block the drive way of all the newbies in programming.
|
|
|
|
|
hey dude thanks for the reply. it works now. thank you.
Don't block the drive way of all the newbies in programming.
|
|
|
|
|
I need Ms Access password Viewer,
will someone help.
|
|
|
|
|
This is a programming forum, do you have a programming question ?
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
|
Is there a way in VB.net to start a program I write when a different program starts. I want my program to run in the back ground and listen to it and do something when it completes a certain task.
|
|
|
|
|
Well you can write a windows service that periodically checks the processes for the application you want to track...
|
|
|
|
|
There's no way to attach your esxecutable to another one. You have to have code either already running and watching the Process list or you have to create a batch file to launch the target .EXE, then launch your .EXE, but using this method it's very easy to stop your code from launching.
|
|
|
|
|
Option Explicit On
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Security
Imports System.Web
Imports System.Web.HttpResponse
Imports System.Web.UI.WebControls.TextBox
Imports System.DBNull
Imports System.IO
Partial Class Default2
Inherits System.Web.UI.Page
Dim stri As String
Dim uId As String
Dim credabbv As String
Dim user1 As String
Dim page1 As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
getValues()
End If
End Sub
Private Sub getValues()
user1 = "dbishop"
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "T:\Auth_v1.0.0.mdb"
Dim con As New OleDbConnection(strConn)
Dim cmd As New OleDbCommand
Dim objReader As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim stsql As String
stsql = "Select FullName from tbllogin where login= '" & user1 & "' ;"
Dim strsql As String
strsql = "Select Fname, Lname, Title, Email, HPhone, CPhone, WPhone from nuser where userid= '" & user1 & "';"
cmd.CommandType = CommandType.Text
cmd.CommandText = stsql
cmd.Connection = con
'Opening the database
con.Open()
objReader = cmd.ExecuteReader
Do While objReader.Read
credabbv = objReader(0)
Loop
lbltrack.Text = "Welcome " & credabbv
da = New OleDbDataAdapter(strsql, con)
ds = New DataSet("Userdetail")
dt = ds.Tables.Add(strsql)
da.Fill(ds, strsql)
txtHPhone.Value = ds.Tables(0).Rows(0).Item("HPhone").ToString
da.Dispose()
dt.Dispose()
ds.Dispose()
con.Close()
End Sub
Protected Sub btnhupdate_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhupdate.ServerClick
setValues()
End Sub
Private Sub setValues()
Dim hphon As String
hphon = txtHPhone.Value
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "T:\Auth_v1.0.0.mdb"
Dim con As New OleDbConnection(strConn)
con.Open()
Dim mysql As String
mysql = "Update nuser set HPhone ='" & hphon & "' where userid= '" & user1 & "';"
Dim cmd As New OleDbCommand
'Dim objReader As OleDbDataReader
cmd.CommandType = CommandType.Text
cmd.CommandText = mysql
cmd.Connection = con
'Dim numaffected As Integer
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Class
I am trying to update the database after I display the data in the form but unable to update the data. Textboxes are holding old values but not new values.
Can some please help me on this?
Shrihit
|
|
|
|
|
This question really belongs in the ASP.NET forum.
Does this code actually update the database? If not, you've got a problem with your SQL. Are there any exceptions?
|
|
|
|
|
Thanks, I got the answer.
|
|
|
|
|
I have the following fields in a database: NurseLastName, NurseFirstName, NurseTitle
I have an SQL statement that retrieves this information into a DataTable("ReportingNurse").
What I want to do is concatenate the fields from the database into a single combo box that will show the data like this:
"NurseFirstName NurseLastName, NurseTitle".
I tried to do it in the .DisplayMember of the control but that does not work, or at least I could not get it to work.
I was thinking that I might need to access the DataTable like this: dtReportingNurse.Columns[1] (for the second column in the DataTable) but this doesn't work either.
Any suggestions?
Thanks,
Dan
|
|
|
|
|
The easiest way I can think of is doing the concatenation in the SQL:
<br />
SELECT NurseFirstName + ' ' + NurseLastName + ', ' + NurseTitle AS NurseData<br />
FROM ...<br />
and then you can set the DisplayMember to NurseData.
|
|
|
|
|
Thanks. That did the trick.
Dan
|
|
|
|
|
I am trying to rid myself of the problem of different version being used for excel on my customers machines. I have several programs the have a feature that allows the data sets to be save into excel. Using the interop and early binding gives me a problem with the office version, on the users machine. So I know to fix this I should use late binding. I don't really understand how to do this. I understand the concept, but can't quite get the method of execution right. Here is an example of my code:
Private Sub createSpreadSheet()
Dim EXL As Object
Dim wsheet As New Worksheet
Dim da As New SqlDataAdapter
EXL = CreateObject("excel.application")
wsheet = EXL.Workbooks.Add.Worksheets.Add
wsheet = EXL.Workbooks.Item(1).Worksheets("Sheet1")
Dim str1 As String
Dim intCount As Integer
intCount = Label57.Text - 1
Dim checkHeader As String
Dim I As Integer
For I = 0 To 5
checkHeader = strHead(I)
Select Case checkHeader
Case "wo_num"
strHead(I) = "Work Order"
strCwidth(I) = 100
Case "status_description"
strHead(I) = "Status"
strCwidth(I) = 100
Case "priority_description"
strHead(I) = "Priorty"
strCwidth(I) = 100
Case "category_description"
strHead(I) = "Category"
strCwidth(I) = 100
Case "location_description"
strHead(I) = "Location"
strCwidth(I) = 130
Case "wo_user"
strHead(I) = "Requested By"
strCwidth(I) = 130
Case "wo_in_date"
strHead(I) = "Date Entered"
strCwidth(I) = 130
Case "wo_date_needed"
strHead(I) = "Date Needed"
strCwidth(I) = 130
Case "wo_fixed_date"
strHead(I) = "Date Repaired"
strCwidth(I) = 140
Case "wo_description"
strHead(I) = "Description"
strCwidth(I) = 560
Case "wo_detailed_location"
strHead(I) = "Detailed Location"
strCwidth(I) = 330
Case "wo_est_time"
strHead(I) = "Est. Time"
strCwidth(I) = 130
Case "wo_act_time"
strHead(I) = "Act. Time"
strCwidth(I) = 130
Case "wo_resolution_notes"
strHead(I) = "Notes"
strCwidth(I) = 560
Case "wo_internal_comments"
strHead(I) = "Internal Comments"
strCwidth(I) = 560
End Select
wsheet.Cells(2, I + 1) = strHead(I)
Dim Q As Integer
For Q = 0 To intCount
wsheet.Cells(Q + 3, I + 1) = strP(I, Q)
Next Q
Next I
With wsheet
.Cells(1, 1) = "Custom Report"
End With
wsheet.SaveAs("C:\FM\FM.XLS")
EXL.Workbooks(1).Close(SaveChanges:=False)
If you can help I would be truly greatful.
|
|
|
|
|
I don't do Office Interop, but I seem to remember something about using the lowest Primary Interop Assemblies, like Office 2000, and they'll work with the higher versions of Office, so long as you don't want to use any of the new functionality that those versions offer.
For example, write your application using the Office 2000 PIA's and it should work with Office 2000, XP, and 2003.
I could be wrong though.
|
|
|
|
|
I am trying to initialize a form that has 7 combo boxes and 1 list box. I want to bind the selection data to various tables in an access database. I currently have done two of the combo boxes but feel that there should be a way to do this a little bit cleaner. I am new to .NET and am open to any suggestions that would lean towards best practice ideas. I have inserted my code below:
Function sqlDataInitialize(ByVal connectionString as String)<br />
'Retreive data for dropdowns<br />
<br />
'Disease List<br />
Dim strSQLDiseaseList As String = "Select * From Disease"<br />
Dim daDisease As New OleDbDataAdapter(strSQLDiseaseList, connectionString)<br />
Dim dsDisease As New DataSet<br />
<br />
daDisease.Fill(dsDisease, "Disease")<br />
<br />
Dim dtDisease As New DataTable<br />
dtDisease.Columns.Add("DiseaseName", GetType(System.String))<br />
dtDisease.Columns.Add("DiseaseCode", GetType(System.String))<br />
<br />
Dim drDSRow As DataRow<br />
Dim drNewRow As DataRow<br />
<br />
For Each drDSRow In dsDisease.Tables("Disease").Rows()<br />
drNewRow = dtDisease.NewRow()<br />
drNewRow("DiseaseName") = drDSRow("DiseaseName")<br />
drNewRow("DiseaseCode") = drDSRow("DiseaseCode")<br />
dtDisease.Rows.Add(drNewRow)<br />
Next<br />
<br />
cboDiseaseName.DropDownStyle = ComboBoxStyle.DropDownList<br />
<br />
With cboDiseaseName<br />
.DataSource = dtDisease<br />
.DisplayMember = "DiseaseName"<br />
.ValueMember = "DiseaseCode"<br />
'.SelectedIndex = 0<br />
.SelectedIndex = cboDiseaseName.FindStringExact("")<br />
End With<br />
'End Disease List<br />
<br />
'Sex<br />
Dim strSQLSex As String = "Select * From Sex"<br />
Dim daSex As New OleDbDataAdapter(strSQLSex, connectionString)<br />
Dim dsSex As New DataSet<br />
<br />
daSex.Fill(dsSex, "Sex")<br />
<br />
Dim dtSex As New DataTable<br />
dtSex.Columns.Add("Sex", GetType(System.String))<br />
<br />
For Each drDSRow In dsSex.Tables("Sex").Rows()<br />
drNewRow = dtSex.NewRow()<br />
drNewRow("Sex") = drDSRow("Sex")<br />
dtSex.Rows.Add(drNewRow)<br />
Next<br />
<br />
cboSex.DropDownStyle = ComboBoxStyle.DropDownList<br />
<br />
With cboSex<br />
.DataSource = dtSex<br />
.DisplayMember = "Sex"<br />
.ValueMember = "Sex"<br />
'.SelectedIndex = 0<br />
.SelectedIndex = cboSex.FindStringExact("")<br />
End With<br />
'End Sex<br />
End Function<br />
Thanks,
Dan
|
|
|
|
|
HurricaneDan wrote: 'Disease List
Dim strSQLDiseaseList As String = "Select * From Disease"
Dim daDisease As New OleDbDataAdapter(strSQLDiseaseList, connectionString)
Dim dsDisease As New DataSet
daDisease.Fill(dsDisease, "Disease")
Dim dtDisease As New DataTable
dtDisease.Columns.Add("DiseaseName", GetType(System.String))
dtDisease.Columns.Add("DiseaseCode", GetType(System.String))
Dim drDSRow As DataRow
Dim drNewRow As DataRow
For Each drDSRow In dsDisease.Tables("Disease").Rows()
drNewRow = dtDisease.NewRow()
drNewRow("DiseaseName") = drDSRow("DiseaseName")
drNewRow("DiseaseCode") = drDSRow("DiseaseCode")
dtDisease.Rows.Add(drNewRow)
Next
cboDiseaseName.DropDownStyle = ComboBoxStyle.DropDownList
With cboDiseaseName
.DataSource = dtDisease
.DisplayMember = "DiseaseName"
.ValueMember = "DiseaseCode"
'.SelectedIndex = 0
.SelectedIndex = cboDiseaseName.FindStringExact("")
End With
'End Disease List
From the looks of this, you're getting all the columns from a table called Disease, then you're just picking out two columns from that table and building another table with them. WHY?? Why not just get the two columns you need in the first place and be done with it?
'Disease List
Dim strSQLDiseaseList As String = "Select DiseaseCode, DiseaseName From Disease"
Dim daDisease As New OleDbDataAdapter(strSQLDiseaseList, connectionString)
Dim dtDisease As New DataTable("Disease")
daDisease.Fill(dtDisease)
With cboDiseaseName
.DropDownStyle = ComboBoxStyle.DropDownList
.DataSource = dtDisease
.DisplayMember = "DiseaseName"
.ValueMember = "DiseaseCode"
.SelectedIndex = cboDiseaseName.FindStringExact("")
End With
'End Disease List
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
