That's alright we all started out at some time, what you want to avoid is broad based questions, get into the detail and when you run into a problem do some research and if you still can't go forward then ask. I find 98% of my problems have already been solved by someone else.
Never underestimate the power of human stupidity
But as for the saving to the access database created at runtime, I have not been able to make any thing for it.
The easiest way is having an empty database somewhere, and to make a new copy of that when you need to "create" one. File.Copy is easy, which would solve this problem. Bonuspoints if you tuck it in a resource-file and embed that in the executable.
My project supervisor needs a working prototype by monday or by next week.
How are you reading the Excel-file? Using an IConnection, with commands and stuff? You can do the same with the newly copied Access-database - put new records in one of the tables using an connection and some commands.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
Thank you... I have managed to do most of the things that you guys outta here thought me. I have paused on the project for now. Will continue somewhere later since I have more learning and some exams to do.
Sorry I am replying this late. I truly am sorry for the late reply. I had no internet connection since that time... Thanks for your help buddies (serious and great programmers(my mentors)) outta here.
Better times... Greetings
Hello, I am fairly new at programming, but I am learning. I am making a small application for my wife so she can record her babysitting scheduled through the week. Each day has three textboxes, the start time, the end time, and result. I need to know what to dim result as so I can insert the difference of the times entered into the textbox into the third textbox.
Public Class Form1
Dim startTime As String
Dim endTime As String
'Dim result As
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dFrom As DateTime
Dim dTo As DateTime
Dim sDateFrom As String = startTime
Dim sDateTo As String = endTime
If DateTime.TryParse(sDateFrom, dFrom) AndAlso DateTime.TryParse(sDateTo, dTo) Then
Dim TS As TimeSpan = dTo - dFrom
Dim hour As Integer = TS.Hours
Dim mins As Integer = TS.Minutes
Dim timeDiff As String = ((hour.ToString("00") & ":") + mins.ToString("00"))
'result = timeDiff
Private Sub rbM1_CheckedChanged(sender As Object, e As EventArgs) Handles rbW1.CheckedChanged, rbTh1.CheckedChanged, rbT1.CheckedChanged, rbM1.CheckedChanged, rbF1.CheckedChanged
Dim rb As RadioButton = DirectCast(sender, RadioButton)
If rb.Checked = True Then
Select Case rb.Name
startTime = m1start.Text
endTime = m1end.Text
'result = m1result.Text
startTime = t1start.Text
endTime = t1end.Text
'result = t1result.Text
startTime = w1start.Text
endTime = w1end.Text
'result = w1result.Text
You must write the result to the Text property of that TextBox. When you do
startTime = w1start.Text
you read the text from the TextBox w1start into the variable startTime.
That is a oneway operation: it happens at that one moment when that line of code gets executed. No connection of the TextBox and the variable remains (if you want to do such a thing, look for "binding").
Hence when you want to update the value shown in the TextBox after changing the value of the variable, you need to do the operation the other way round:
I Have a form in VB.Net Auto scroll property to true, Contains Two datagridview with 150 rows in each, lets say TopDGV & BottomDGV.
In run mode when i click any cell of BottomDGV when scroll bar is in top, it select the range of cells from BottomDGV and scrollbar gets down. In the same way if my scroll bar is in bottom and i click on TopDGV it selects the range of cell from TopDgv.
Does anyone faced this sort of issue...I googled a lot, but did not find solution on this.
I'm trying to sort my GridView using a User Session but whenever I run my program I get an error message saying 'Cannot find Column Name' but the table columns are correct so I don't know why I'm getting the error message.
If Not Page.IsPostBack Then
txtSearch.Enabled = False
Dim dt As New DataTable()
**** I'm sure the line below is whats causing the error *******
grdEmp.DataSource = dt
Session("data") = dt
Protected Sub grdEmp_sorting(sender As Object, e As GridViewSortEventArgs) Handles grdEmp.Sorting
Dim dataTable As DataTable = TryCast(Session("data"), DataTable)
If dataTable IsNot Nothing Then
Dim dataView As New DataView(dataTable)
dataView.Sort = Convert.ToString(e.SortExpression) & " " & ConvertSortDirection(e.SortDirection)
grdEmp.DataSource = dataView
Private Function ConvertSortDirection(sortDirection1 As SortDirection) As String
Dim newSortDirection As String = [String].Empty
Select Case sortDirection1
newSortDirection = "ASC"
newSortDirection = "DESC"
I'm trying to call 2 different Stored Procedures from 1 function that I have in a separate class page. Everything is the same Connection, SearchBy, SearchVal, etc.. except the Stored Procedures are different. Is it possible to place 2 different Stored Procedure in the code like this?
Public Shared Function SearchEmpRecords_Sp(searchBy As String, searchVal As String) As DataTable
Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("strName").ConnectionString)
Dim adp As New SqlDataAdapter()
Dim cmd As New SqlCommand()
Dim cmd2 As New SqlCommand()
Dim dt As New DataTable()
cmd.CommandType = CommandType.StoredProcedure
** My 2 Different Stored Procedures **
cmd.CommandText = "SearchEmpRecords_Sp"
cmd.CommandText = "SearchEmpRecords_Sp2"
cmd.Connection = con
adp.SelectCommand = cmd
Catch ex As Exception
What do you think will be the contents of cmd.CommandText after these two statements? You need to run your adp.SelectCommand twice, first with one command and its parameters, and second with the others.
I'm having this problem, in my Windows Form App. (WFA) when the user ask an action clicking on a button, if the related field is empty an arrow should guide the user to add some value.
The problem is the following, I programmatically add this arrow img (.png) into a picturebox indicating the user where to add the missing data but the image overlaps the other controls covering lines and borders. I would like to add this image (may be still using picturebox or other) with transparent background in the way that only the arrow is shown and the remaining rectangle is transparent. I've tried with opacity property but I really don't know if it was right well coded.
I'm using just a sub to create a picturebox and place in it the arrow (or whatever) image. here the code:
Dim mypic As PictureBox = New PictureBox
Dim HasAlpha AsBoolean
mypic.Image = Image.FromFile("C:\APP\backward.png")
mypic.BackgroundImage = Nothing
mypic.Height = 30
mypic.Width = 30
mypic.Left = txtDSFID.Location.X + 200
mypic.Top = txtDSFID.Location.Y + 10
mypic.Visible = True
mypic.BorderStyle = BorderStyle.None
mypic.SizeMode = PictureBoxSizeMode.StretchImage
mypic.BackColor = Color.FromArgb(0, 0, 0, 0)
Using I = System.Drawing.Image.FromFile("C:\APP\backward.png")
HasAlpha = (I.Flags And System.Drawing.Imaging.ImageFlags.HasAlpha) = System.Drawing.Imaging.ImageFlags.HasAlpha
mypic.Parent = Me
The call is made here:
If viTypeUpdate = 0Then
MsgBox("Scelta non completamente effetauta" + vbNewLine + "Scegliere se 'Lock' o 'Write'", MsgBoxStyle.Exclamation, "Update TAG")
The function to manage opacity is the following, but it didn't work at all.
PublicFunction SetImgOpacity(ByVal imgPic As Image, ByVal imgOpac AsSingle) As Image
Dim bmpPic AsNew Bitmap(imgPic.Width, imgPic.Height)
Dim gfxPic As Graphics = Graphics.FromImage(bmpPic)
Dim cmxPic AsNew ColorMatrix()
Dim iaPic AsNew ImageAttributes()
cmxPic.Matrix33 = imgOpac
iaPic.SetColorMatrix(cmxPic, ColorMatrixFlag.[Default], ColorAdjustType.Bitmap)
gfxPic.DrawImage(imgPic, New Rectangle(100, 300, bmpPic.Width, bmpPic.Height), 0, 0, imgPic.Width, imgPic.Height, GraphicsUnit.Pixel, iaPic)