For a school program, I was assigned to use a .dat file to store and edit information while using VB to be it's front end( to appear in a listbox). I was also given what field length to use per field. I never worked with .dat files, so I have a few questions (all the google-ing Ive done say the same thing: every .dat file is different so you can't play around with them):
[Code]...
How to delete a record or field from a fixed-width file in visual basic code?
View 1 RepliesI want to write the DS into a txt fie with predefined field lengths.
Code:Dim ds As New Data.DataSetda.SelectCommand = New SqlCommand da.SelectCommand.Connection = conn da.SelectCommand.CommandText = "SELECT * from Samp1" da.Fill(ds, "S1")
[Code]...
how to get this login to work if i add a field in to my database called UserTypes "Admin" "Normal" if they are admin if will display cmdAdmin and if they are Normal if will hide cmdAdmin this is the code i have currently?.[code]
View 12 RepliesI have a Fixed Text File and i need to import data from this Text file to my Database I am Using VB2008 and SQL Server2000 This is a sample of my Text File
View 1 RepliesI am trying to format a string of arbitrary length into a fixed width field for display.
Let's use a width of 20 as an example, and call the string to be formatted s. I'm adding the formatted string to a StringBuilder named b.
Dim b As New System.Text.StringBuilder()
Dim s as New String
If the string I want to display is shorter than 20 characters, I can do this:
b.Append(s.PadRight(20))
or
b.AppendFormat("{0,-20}", s)
So far, so good. But, if the string is longer than 20 characters, I want the string to be truncated to 20 characters as it is appended. The code above appends the entire string.
I tried this:
b.Append(s.Substring(0,20).PadRight(20))
But, this fires an exception if the string was shorter than 20 characters.
So, I ended up with:
b.Append(s.PadRight(20).Substring(0,20))
This seems to do the job. The PadRight prevents the exception by making sure thet string has 20 characters before the Substring is performed.
I was wondering if there is an alternate method that would look more elegant and avoid padding the string just so prevent the substring from causing an exception. Have I missed a feature of String.Format that can accomplish this in one step?
Edited to add solution:
I ended up with the following code:
Module Extensions
<Extension()> _
Function AppendFixed(ByVal b As StringBuilder, ByVal s As String, ByVal width As Integer) As StringBuilder
[Code]....
This uses an extension method to clean up the syntax, as suggested by Joel and Merlyn, and uses the StringBulider Append overloads to avoid creating new strings that will have to be garbage collected, as suggested by supercat.
I am working on a program that opens a .txt file, finds the length of each line in the file, and then outputs the minimum and maximum lengths. For example, assuming this is the .txt file I am opening:
2789304
293048203
27598493
[code].....
I would like to return something like this:
Minimum length: 6
Maximum length: 9
I cannot use arrays for this assignment. I figured out how to get the maximum length but cannot figure out how to get the minimum. Am I going about this the right way or is there an easier way to do this? Here is what I have thus far:
Dim FileName As String
Dim FileReader As StreamReader
Dim FileLine As String
[code].....
There are lots of questions about this but I've not been able to solve my problem using the answers to any of them (after many, many attempts..)
I'm working in vb.net creating an asp.net web application. I have an SqlDataSource and a GridView on my page.
I want to change the DoNotMail boolean value represented by a Gridview checkbox and automatically update in the database if the checkbox is checked from 0 (False, Will Mail) to 1 (True, Won't Mail) here is the code I used. [code]...
is it possible to do a two way sync on the entire gridview when the user hits a button so you don't have to do an update every time a row is changed? because the user might check the box and then check another box then uncheck a box and it would be a lot of updates...
I created a local Database in VB2008 with 4 tables, the problem is that I have a textbox in one table and a combobox in other table and I want that the information that I put in textbox appear after in combobox from the other table... that's possible?
Table: Filmes ... Field: NomeTextBox
Table: Tempo de Aluguer ... Field: Nome_FilmeComboBox
I am trying to 1) write code in VB2010 that will get a JPG image from a Access Database field and write the image to a PictureBox 2) write code which will write a JPG file to an Access Database field. I have already sucessfully coded this in VB6, without fully understanding what I was doing.
Browsing the various forum's I have come across a few discussions on this subject, but due to my complete amerture status I don't seem to be able to follow the logic.
Below is the VB6 code
Writing JPG file to DataBase:
Dim bytBlob() As Byte
Dim intNum As Integer
[Code]....
Dim query as String = "Select * from openquery (devbook, 'SELECT wb.arrival_time FROM web_bookings wb ')"All I need is to convert my arrival_time into a datetime field in the query
View 1 RepliesI am developing, in VB.Net, an application that reads from text files using a FileStream Object. I do not use a StreamReader, since the buffering it does makes it impossible to use Seek.hose text files form a database, with both index and data files. In index files, all fields are fixed-length, which is not the case in data files.I've recently run into a problem. Since some of my files contain accents, the corresponding characters take more that 1 Byte. Therefore, when I seek in the index file, and offset appears the rest of my index file is not read in the right way
View 4 RepliesI have a database and I wanna select a field ..I usually do this with access:
dim chosen as string
chosen = textbox1.text
Dim querysql = "select * from table where field = " & chosen & ""
But with SQL it doesnt work =S I really need to make this work .
I'm trying to query LDAP using a field that contain's 's in VBScript, but I can't get it to work. Here is my code (basically). What am I doing wrong?objCommand.CommandText = _
"SELECT cn FROM 'LDAP://" & x & "' WHERE extensionAttribute1 = '1500 0FFEA14C439' "This string will never match any record even if use wild cards or copy in the exact data from the AD record.
I am investigating an issue with regards to a textbox rejecting user input. In this case the error message is: 'The note was found to contain a possible credit card PAN.'Now obviously this is a custom validator but I am enable to find where it tells me what characters ARE allowed? In debug I entered a note containing no numbers and when the validators are initialized, these variables have the value below:
valNoteContainsPAN.Expression = Me.PANRegEx value = (d*)45367{13,15}(?!d)
I'm assuming this is blocking numbers of certain lengths? How can I find out how to actually read and understand the above? Google is proving fruitless
I am creating a database in VB.NET for a movie rental place. I currently have three forms;
Member Information
DVD Information
Borrow DVDs
What I would like to do is when I am viewing a member's details, if I click a button 'Borrow DVD for Member', the member's ID number transfers over to the Borrow DVDs table in the Member ID which also would hold some information from the DVD Information table, but I'm sure if i can figure out how to do this firstly, I will be able to apply the same rule and work it out myself.I have been trying to use a query statement like;
INSERT INTO [Borrow DVDs].[Member ID] [IN goodstuffvideos.mdb]
SELECT [Member Information].[Member ID]
FROM [Member Information]
but that has been coming up with error codes and completely not working.
Borrow DVDs table fields are: Borrow ID, Member ID, DVD ID Number, Hiring Fee, Borrowing Limit?
DVD Information table fields are: DVD ID Number, Title, Rating, Hiring Fee, Borrowing Limit Member?
Information table fields are: Member ID, Family Name, Given Name, Address, Town/Suburb, Postcode?
The error coming up is; Error in INSERT statement. Unable to parse query text.And under that it says The query cannot be represented graphically in the Diagram and Criteria Pane.
I am aware that this is a visual basic dot net post. However It was extremely simple for me to write out a file in VB6 using lines such as the following snippet
[Code]...
I want basically to export an array A (I used zero based array here) with three columns and a particular value B in fixed widths, hence the @@@@@ which means 5 spaces in to a text file defined by the FreeFNum (FreeFileNumber).
I would like to use CSV and all the other formats but some scientific programs written in FORTRAN may not support them. Anyway my file output here needs to be in this fixed width format because it will be used by proprietary software that I have no access to the source code.
[Code]...
I've a text file which has some data written. Records have Starting character as "#2" and Ending character as "#3" in ASCII respectively and the file includes series of records, but not written as Line by Line. The difficulty I'm having is, to how to transfer those data's into a database. The File comes a 7mb file and looping character by character then noting down the Record Starting Character and Record ending Character, and finally substring them is not feasible as it take more time and makes the computer slower. I would like to know is there any easy way to transfer them?
View 3 RepliesI'm using vb6 to read lines of txt files, using the code posted in ream.In.Code "Reading a Text file Line by Line". My question is how can I real a line with fixed column width, for example:
qwerty 12345 asdfg
asd 455 hfgdf
qhjkrty 1235 asdfg
The objective is to read each part of the row. In Visual Studio 2010 Beta version the code I present below that is actually working but it doesn't work in VB6.
Using Reader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\teste.txt")Reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.FixedWidthReader.SetFieldWidths(8, 30, 25, 45, 57)
[code].....
I'm parsing fixed length file with .NET 3.5 and Regex. This file is from bank. In customer name sometimes there is one characters from this set &,(),[],',"". These are characters, so far I've encountered. There can be anything else. Because of this my regex is failing. My regex is [A-Za-z0-9s-.,'""""(){}[]]{35}. Is there any wild card I can use for special chars rather than specifying individually. I also tried . but didn't work.
View 2 RepliesSources of Assistance: [URL]..Create A Fixed Text File From SQL DB Table I am using VS2005 and would like to add script to my aspx page to Output a Fixed Text File From my SQL DB Table to a location on the network. I did this in VB6 using a FREEFILE and PADSTRING off of an Access DB table. However, I can't seem to get it right in the .NET aspx environment. Can someone assist me with this? I have added the VB6 script that is working now and the .NET aspx vb script that I'm trying to move it to.
[Code]...
i am trying to import a fixed length text file into an access database (accdb). I already have the table created but it doesn't have to be that way. i am wondering if i know the field lengths, can i a use a SELECT INTO query to get the data into access. or do i need a schema file?
View 1 RepliesI am trying to write a program that will use a Structure with <VBFixedString(4), VBFixedArray(10)> Public Test1() As String. Back in vb6 it was in the Type statement as Test1(10) as string *4 When I hit the line ".Test1(X) = TB1" i get the following error:
Object reference not set to an instance of an object.
[Code]...
so i have a file that i need to read in vb.net. Each line is 32 chars long and each line consists of multiple fields. Meaning from char 1 to 9 it idicates ID then char 10 indicates an identifier,11-14 indicates a value field. I've looked at Readblock and it's not the tool for the job. Is there a way to break up each line into its respective fields other than just reading the whole line and breaking it up as a string?
View 3 Replieswhat do you think would be the best way to load a fixed length text file into ms access? this is how i would normally do it if it was comma delimitted:
sql.CommandText = "SELECT * INTO [tblMailList] FROM [Text;DATABASE=" & FilePath & ";HDR=NO].[" & FileName & "]"
sql.ExecuteNonQuery()
I need to import a big fixed width text data file into SQL server. Before importing, how to determine how many fields and records in the file?
View 11 RepliesI am trying to load a text file into an Access 2007 table. I know you can read the file line by line and then create a record out of each line. i was trying to see if this could be done with an INSERT INTO rather than cyclying through all lines of text. My text file is not character delimited but rather by fixed column width. For example:[code]The data in the example has spaces for readability but in reality the data are clumped together like so [code]I cant figure out how to tell the command how the data is structured. I know you can use a schema file but there's got to be a way to do this all through code.
View 1 RepliesI am learning to use TextFieldParser to read a fixed width text data file. It works great. I copied code below. Question: How to stop at the end of each line because I need to add some code?
Using tf As New TextFieldParser(fileName)
tf.TextFieldType = FileIO.FieldType.FixedWidth
tf.SetFieldWidths(60, 30, 20) //three columns
[Code].....
The file structure is fine for retrieving data from the file but when I go to write data to the elements and hit any of the fixed array elements, I get an exception error. this has got to be a sytax problem I am just not seeing.
It seems that I am not addressing the array member correctly yet the same logic pulls it properly from existing records on file.
in a Module I have the structure as follows:
Structure INVOICE
<VBFixedString(6)> Public NUM As String
<VBFixedString(2)> Public SYMBOL As String
[Code]....
I think this will be better than what I was thinking before.
How can I allow multiple lengths to a textbox.Allow multiple lengths on a textbox?
something like
if Not TextBox1.TextLength = 8 Or 11 Or 14 Or 18 Then msgbox("error")