Update For Statement To Get Value Extracted From Filename
Apr 4, 2012
I have the following code which works fine;
For Each myFile As String In IO.Directory.GetFiles(Label1.Text, "*.zip")
Dim fi As New System.IO.FileInfo(myFile)
sFilename = fi.Name
Col_Prac_no = sFilename.Substring(1, sFilename.IndexOf("_") - 1)
For example: I have filename as:
I00018_20120329042035_111
The col_prac_no = 00018
Now, I want to update the for statement to have another value extracted from the filename.
The first letter of the filename. In the example:
I00018_20120329042035_111
The first letter of the filename in above example is I.
So if we have:
S00018_20120329042035_192
the value will be - S.
I have a form with comboboxes, if the user doesnt select a value in the box I want a null to be sent to the database. The insert works fine, i look at the record in the db and see the null. The update doesnt work. gives me a n "Update statement conflicted with foreign key constaint....."
Public Sub Update() TableAdapterCreate().Update(ID1, ID2, CType(cbox1.SelectedValue, Integer), CType(cbox2.SelectedValue, Integer), CType(cbox3.SelectedValue, Integer), CType(cbox4.SelectedValue, Integer),
[CODE]...
As I step through the selected value of the cbox 5 is shown as nothing (which it should be because the user didnt select a value for this combobox). I assume this needs to be a null instead of nothing to get written to the database. the combox boxes need to match a primary key in another table so sending a 0 would also result in the forieign key error since the related table does not have a 0 ID field.
Quick query...I'm trying to scan a long string and return any values that occur between the tags <FileName> and </FileName> I've got a bit of code here to use regular expressions to return the position of the occurunces of both substrings..Just wanted to find out if there is any way to scan for both substrings within one loop (as im currently doing 2, one for the first substring and one for the 2nd) so I can use something along these lines:
to msg box the value between the substrings...either that or another approach to return the value between the 2 substrings (it can be of variable length)
Dim patternstart As String = "<FileName>" Dim patternend As String = "</FileName>" Dim matchesstart As MatchCollection = Regex.Matches(XMLRESP, patternstart)
How would I do that? Sample code is below that demonstrated that the file I opened contained the full path and file name.
I want to extract just the path and serialize that to the user.config file as a UserSetting value. Then next time the user opens the dialog box, it uses that saved path string to go immediately to the location previously used.
If openFileDialog1.ShowDialog() = DialogResult.OK Then Properties.Settings.Default.persistConnectionType = openFileDialog1.FileName Properties.Settings.Default.Save();
I have a Listview on my form with different files. I can selet a file en open it with the proces start method. To open the file i use the OpenFileDialog method and select the filename. This work very good. With the code below.
My question is if there is a method to get the selected file without using the OpenFileDialog Box. So when i dubbelclick the selected file the proces will start with open the selected file. Something like:
proc.StartInfo.FileName = Me.SelectedCell.FileName instead of proc.StartInfo.FileName = Me.OpenFileDialog1.FileName
PS) May be i can preduce the Filename using the OpenFileDialog method on the background.
Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
I have a datagrid with data and I want to update a database with the data on the datagrid. I only want to update one column, the problem I have it is that the Column it is name diffrent on the datagrid than the database. On the datagird it is name "EloBirdFinal" and on the database it is name "EloBird". I did some code but it didn't work. I will put my code here
Dim RowCount As Integer = DataGridView1.Rows.Count - 1 Dim ColumnCount As Integer = DataGridView1.Columns.Count - 1 Dim RowIndex, ColumnIndex As Integer
im new with vb .net and im currently developing a simple information system for an agency .. im almost done with it but there seem to be a problem with my update statement for the change password code here's my code..,[code]
I'm working a code to do an update statement but I get an error. I have the name of the column in a variable I added a parameters to pass the value but I get an error. The error says that Parameter @Ronda has no default value?
I currently have a problem attepting to update a record within my database. I have a webpage that displays in text boxes a users details, these details are taken from the session upon login. The aim is to update the details when the user overwrites the current text in the text boxes.I have a function that runs when the user clicks the 'Save Details' button and it appears to work, as i have tested for number of rows affected and it outputs 1. However,when checking the database, the record has not been updated and I am unsure as to why.I've have checked the SQL statement that is being processed by displaying it as a label and it looks as so:
UPDATE [users] SET [email] = @email, [firstname] = @firstname,
I'm trying to update a specific record based off of a users selection. Regarding Entity Framework syntax, I'm not very familiar. Is it possible to achieve this SQL statement in Entity FrameWork?
I'm trying to refresh the datagrid after using the SQL UPDATE statement. The data changes physically in the database but the datagrid is not affected. The data is changed only after i restart the program.
How can i get the datagrid to refresh or update? I have tried using, among other code, the refresh() method, but it does not work.
I want to update the table in access database the code is following please guide me i am new with vb 2008.da.fill(ds) becomes yellow when i see the detail wrong sql statment.but in java same statement work correctly.
Private Sub Changebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Changebtn.Click If TextBox3.Text = TextBox4.Text Then
i need a update statement to make a record = 1 example : the colum what need to change is active and it must stand on 1 to show you in to a listview (that part works) but i need to do it manualy to make them active now i liked to when the login is a succes then the record = 1 for you this is my code :
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim adapt As MySqlDataAdapter Dim sqlquer = ""
[code].....
i get this error : Object reference not set to an instance of an object.
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As New Staff
[Code]....
Basically I am trying to update each record with 2 random numbers each time the button was clicked,my problem now is, the system will update the record but the data was wrong. Example, by right all data should be different (randomly string) but for some row it was updated with same data but in randomly, something row1 row2 row3 has exactly same data for column 1 and 2 then row 3 has distinct data, second time, row1 row2 same data row3 ro4 with different data. It is in random sequence. When I add a MsgBox to do testing in the For loop the data was updated correctly with all different data.
i am using this code to uzip a file: [code] i am trying to figure out how to get the name of the file that was extracted so i can use it in my program. Can I do that using .FastZip?
A concurrency violation error? It happens on this statement:
CODE:
It thinks I'm using a key value of 1 when the actual value is really 1218. I'm using a command builder. The attachments show the value of the key value and the value of the update text values. By the way, I can insert data but not update it.
Attempting to run an SQL statement to UPDATE a column in a table with new data. The column being updated is defined as varchar(40) and the new data is 41 bytes (varchar(41)). I get a generic 'data will be truncated' error message, but no detail on which column caused the problem. I've attached a sample VB program to illustrate the issue. In this scenario, Company is defined as varchar(40).
My question: Can I get a more detailed error message? i.e. can I get an error message that tells me the row and column that the truncation occurs in? Often times, I may be updating hundreds or thousands of rows and only one value in one column from the source file is too large for a database cell. As a related question, does each OLEDB provider create its own error messages. i.e. will the MS SQL Server OLEDB provider potentially give different text in the error message than say the MS Jet OLEDB provider?
Imports System.Data.OleDb Module Module1 Dim cn As OleDbConnection
I am creating a form that is able to update data in SQL server after selecting an MS Access file (.mdb). I am having an issue where the data has a single quote ('). I found out that the solution was to use Replace() - to replace the single quote with two single quotes - Replace(string, "'", "''").Now, for some reason, I am getting an error "Conversion from type DBNull to type String is not valid." Here is the code.
cmd = New SqlCommand("Update Child Set " & _ "TopLevelProject = '" & row("TopLevelProject") & "' ," & _
I have this sql statement to update a column in access db from vb but when I run the program it shows that there is a syntax error in the statement. [code]...
