|
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
|
|
|
|
|
Dave,
The reason behind I was building another table is that I did not know any better.
I have gone in and cleaned up the code to look like this:
<br />
'Disease List<br />
Dim strSQLDiseaseList As String = "Select DieaseName, DiseaseCode, SurveillaneFormFlag, 24HrReportFlag, CausativeOrganismFlag, SerotypeFlag, SiteOfInfectionFlag From Disease"<br />
Dim daDisease As New OleDbDataAdapter(strSQLDiseaseList, connectionString)<br />
Dim dtDisease As New DataTable("Disease")<br />
<br />
daDisease.Fill(dtDisease)<br />
<br />
With cboDiseaseName<br />
.DropDownStyle = ComboBoxStyle.DropDownList<br />
.DataSource = dtDisease<br />
.DisplayMember = "DiseaseName"<br />
.ValueMember = "DiseaseCode"<br />
.SelectedIndex = cboDiseaseName.FindStringExact("")<br />
End With<br />
'End Disease List<br />
But I am getting the following error when I build the project:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll
It occurs on the line: daDisease.Fill(dtDisease)
Also, let me see if I understand this. If I create a data adapter and a data table, I do not need a data set...if I fill the data table with data obtained throught he data adapter. Is that right? I was under the impression that I would have to have a data set to fill the data table, almost as a go between for the data adapter and the data table.
Thanks for the help so far,
Dan
|
|
|
|
|
HurricaneDan wrote: Also, let me see if I understand this. If I create a data adapter and a data table, I do not need a data set...if I fill the data table with data obtained throught he data adapter. Is that right? I was under the impression that I would have to have a data set to fill the data table, almost as a go between for the data adapter and the data table.
A DataSet is a collection of one or more DataTables and any DataRelation objects. If you're just filling a single table, then a DataTable is all you need.
HurricaneDan wrote: But I am getting the following error when I build the project:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll
It occurs on the line: daDisease.Fill(dtDisease)
What does the Message, or InnerException property of this exception say? It looks like it's complaining about some problem with the SQL statement.
|
|
|
|
|
In fact it was the SQL statement. I was just coming to update my post. I had misspelled two words in the SQL statement.
I am running into a syntax error when I am running the SQL statement with this column, 24HRReportFlag. I have changed it in my SQL statement to [24HRReportFlag]. I guess it did not like the number at the beginning of the column name.
Dave, you have been a great help so far and I am grateful. What about the fact that I have to populate the 7 combo boxes? Do you have a better recommendation or would you also put them all into a single sub or function?
Thanks again,
Dan
|
|
|
|
|
Yep, it's a bad idea to have column names start with a non-letter character.
HurricaneDan wrote: Dave, you have been a great help so far and I am grateful. What about the fact that I have to populate the 7 combo boxes? Do you have a better recommendation or would you also put them all into a single sub or function?
If it were me writing this, I'd have a seperate sub to fill each combobox, fetching only the columns of data that each needs. If you need to refresh all the ComboBox's, you can create another sub that calls all of the ComboBox refresh subs.
|
|
|
|
|
Dave,
I went ahead and changed my database table to have the column name TwentyFourHourReportFlag so as to not have to use a work around.
I appreciate your time today,
Dan
|
|
|
|
|
I have written some subs where you pass in the dropdown, the dataset, the table name and the columns. Then you can re-use the sub for loading any dropdown.
Ben
|
|
|
|
|
Thanks for that idea and including what is needed to be passed.
Dan
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
