|
|
Hi All,
I am developing project in MS-Access with VBA.
In MS-Access I have 1 form , which has 1 command Button.
For me, When I click the button, it should take and read texfile from path c:
and i need to go through loop until all the lines are completed in that file.
So I need to Read the textfile one by one line and store that particular line in string and in that string i have to search whether that line starts with 1 or 2. If it starts with 1 i have to give different command or if its starts with 2 then different command.
Likewise i need to check for all the lines in that textfile.
I tried it in different way, but didnt help. Kindly help me. Its very urgent.
Thanks in advance.
Regards,
|
|
|
|
|
here is C# example, use any converter for VB
string[] lines = File.ReadAllLines( <FILEPATH> );
then make a loop that will check every line
hope this will help
TVMU^P[[IGIOQHG^JSH`A#@`RFJ\c^JPL>;"[,*/|+&WLEZGc`AFXc!L
%^]*IRXD#@GKCQ`R\^SF_WcHbORY87??6?N8?BcRAV\Z^&SU~%CSWQ@#2
W_AD`EPABIKRDFVS)EVLQK)JKSQXUFYK[M`UKs*$GwU#(QDXBER@CBN%
Rs0~53%eYrd8mt^7Z6]iTF+(EWfJ9zaK-i?TV.C\y<p?jxsg-b$f4ia>
--------------------------------------------------------
128 bit encrypted signature, crack if you can
|
|
|
|
|
Try this...
<br />
Dim FILE_NAME As String = "C:\test.txt"<br />
Dim tmpLine As String = ""<br />
<br />
<br />
If System.IO.File.Exists(FILE_NAME) = True Then<br />
<br />
Dim objReader As New System.IO.StreamReader(FILE_NAME)<br />
<br />
Do While objReader.Peek() <> -1<br />
<br />
tmpLine = objReader.ReadLine()<br />
If Mid(tmpLine, 1, 1) = "1" Then<br />
' Your code for command 1<br />
ElseIf Mid(tmpLine, 1, 1) = "2" Then<br />
' Your code for command 2<br />
Else<br />
' Your code for anything else<br />
End If<br />
Loop<br />
<br />
<br />
<br />
Else<br />
<br />
MsgBox("File Does Not Exist")<br />
<br />
End If<br />
|
|
|
|
|
Hi Everyone,
I wish to segregate my datatable based on the value of a particular column. Consider the following example:
My data table consists of the following records:
City | Name | Surname| Tel no
Mumbai | John | Smith | 111111
Mumbai | Rick | Carter | 444444
Chennai| Raj | D | 555555
Now what i wish to do is fetch the records having city as 'Mumbai' into one table and records having city as 'Chennai' into another table.
However, i am not sure how many such cities will be present in the main table or what their names will be.
Is it possible?...Kindly suggest something. I really need it urgently.
Any help is appreciated.
Thanking all of you in Anticipation.
Siddy
|
|
|
|
|
research dataview
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Oahhh... stop calling for urgent help, everything is urgent here...
You can use the Select() method of your datatable, or filter the result on your datasource
DataRow[] drMumbai = DataTable.Select("City = 'Mumbai'", "Name");
or change the select query on your datasource so that it contains WHERE (City = 'Mumbai')
Goog luck
|
|
|
|
|
Thank you for replying.
However, i dont think you really understood what i want.
I do know the use of the Select() function on a datatable,
but if you read carefully, the problem is that i do not know if my city is going to be 'Mumbai'or anything else, so i cannot hard code it. Similarly i do not know how many such DISTINCT cities will be returned.
I am looking for something analogous to a 'GROUP BY' clause in SQL.
So that i can fetch the COUNT of the DISTINCT cities returned and then create those many different datatables, each with a different city.
Can you help me with this?
Thanks in advance.
Siddy
|
|
|
|
|
So why not just fetch this value from the database??
SELECT COUNT( DISTINCT( CityName ) ) AS DistinctCities FROM myTable
|
|
|
|
|
Thank you for replying.
Although i might fetch the COUNT of distinct cities from the
database, how am i going to segregate records after fetching them into the data table. I will definately know how many distinct cities exist, however i am unable to find a way to filter out those records depending upon city names, into seperate tables. (Again hard coding of city names to segregate records is not possible!)
I was just trying to know if there exists a pre-defined function to do such a thing.
I guess i will have to mull over it to find a logic of my own.
Thank you all for taking the time out to think over it though.
Siddy
|
|
|
|
|
This is too easy. If you can get the count of DISTINCT cities, you can just remove the COUNT function from the exact same SQL statement to get the entire list of distinct city names.
|
|
|
|
|
hi guys;
it s a little difficult ;idont wanna get the Max value of all but Max-values between the blocks.
this code below serve to get the max value
<br />
For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
If Intens_Array(zahl) = 0 Then<br />
Max = 0<br />
Else<br />
If Max < Intens_Array(zahl) Then<br />
Max = Intens_Array(zahl)<br />
End If<br />
End If<br />
Next<br />
thats easy; but what i want is to get the Max value between each block of zero-values;
look here: i have an array with the values like
00000041932321459000000076384600000323453200000
my question is, how could i get the max VALUES whithin each block and his index in this arry for this example will be like:
9-->index:17
8-->index:28
5-->index:40
i hope i was clear;
so let me know pls )
thx all
|
|
|
|
|
<br />
Dictionary<integer, integer=""> dictMaxAndIndex = new Dictionary<integer, integer=""><br />
For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
If Intens_Array(zahl) = 0 Then<br />
dictMaxAndIndex.Add(Max, zahl)<br />
Max = 0<br />
Else<br />
If Max < Intens_Array(zahl) Then<br />
Max = Intens_Array(zahl)<br />
End If<br />
End If<br />
Next<br />
</integer,></integer,>
I added a dictionary of two integers. The first keeps the max value, the second it's index... You can now loop through the dirctionary to get it's values...
|
|
|
|
|
first thx for this help;,so i try it but it doesnt work?? this my code:
<br />
Dim Intens_Array() As Double = {0, 0, 0, 0, 0, 0, 2, 3, 9, 8, 1, 4, 5, 0, 0, 0, 0, 0, 0, 0, 5, 4, 9, 4, 8, 4, 3, 0, 0, 0, 0, 0, 0, 5, 4, 3, 2, 2, 6, 0, 0, 0}<br />
Dim Intens_Array1() As Double<br />
Dim Max As Integer = 0<br />
Dim zahl, zahl1 As Integer<br />
Dim Index As Integer = 0<br />
Dim dictMaxAndIndex As New Dictionary(Of Int16, Int16)<br />
<br />
'Dictionary(dictMaxAndIndex = New Dictionary)<br />
For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
If Intens_Array(zahl) = 0 Then<br />
dictMaxAndIndex.Add(zahl, Max)<br />
Max = 0<br />
Else<br />
If Max < Intens_Array(zahl) Then<br />
Max = Intens_Array(zahl)<br />
End If<br />
End If<br />
Next<br />
For zahl1 = 0 To dictMaxAndIndex.Count - 1<br />
Console.WriteLine("For key = ""3"", value = {0}.", _<br />
dictMaxAndIndex("3"))<br />
Next<br />
System.Console.ReadLine()<br />
what i want is to put the max values with her indexes in this dictionary ; no zeros!!zeros have to be ignored. so like, hope its clearly??
thx for help.
|
|
|
|
|
'Dictionary(dictMaxAndIndex = New Dictionary)
For zahl = 0 To Intens_Array.GetUpperBound(0)
If Intens_Array(zahl) = 0 Then
If (Max > 0)
dictMaxAndIndex.Add(zahl, Max)
Max = 0
Else
If Max < Intens_Array(zahl) Then
Max = Intens_Array(zahl)
End If
End If
Next
For zahl1 = 0 To dictMaxAndIndex.Count - 1
Console.WriteLine("For key = ""3"", value = {0}.", _
dictMaxAndIndex("3"))
Next
System.Console.ReadLine()
|
|
|
|
|
I am working with a word plugin. It checks all words in a document against a dictionary. After a check some words are coloured depending on if they are ambigues or not recommended. A right-click on a coloured word opens a popup with a list of recommended words. The user clicks on a recommended word in the popup window and the coloured word will switch to the recommended and the colour will change. The user can press ctrl+z and undo the change. I have to monitor ctrl+z and put the right colour on the word. How do I monitor ctrl+z in a word document?
|
|
|
|
|
Hi,
I am using webclient to download file from another location.
I am downloading swf file.
while downloading swf file it shows size of file less than the origional size.
I want to download swf file that has same size that of origional.
Thanks
|
|
|
|
|
if it works, why does the size matter ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I have two databales which i have merged then i am trying to update the database through commandbuilder
here is the code. Everything goes fine but values are not inserted in database table
Public Function SaveOracleDBInfo(ByVal OracleDT As DataTable, ByVal TableName As String) As Boolean
Dim sqcn As New SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ToString)
Dim sqcd As New SqlClient.SqlCommand("select DB_VC200_TableSpace NAME,DB_VC200_Status STATUS,DB_DC9_Size Size,DB_VC500_Path 'File Location' from T170016", sqcn)
Dim dt As New DataTable
Dim sqad As New SqlClient.SqlDataAdapter(sqcd)
Try
sqad.MissingSchemaAction = MissingSchemaAction.AddWithKey
sqad.Fill(dt)
dt.Merge(OracleDT, True)
Dim sqcmdb As New SqlClient.SqlCommandBuilder(sqad)
sqad.Update(dt)
Catch ex As Exception
Finally
sqad.Dispose()
End Try
End Function
|
|
|
|
|
nitin_ion wrote: dt.Merge(OracleDT, True)
After this merge, are the records in the DataTable's Rows collection still tagged as Unchanged? Look at the Rows collection, and at the RwoState property of each DataRow object in it. If they're all tagged Unchanged, the DataAdapter that writes this data back to the database will think that the row does NOT need to be updated in the database and won't write the changes.
|
|
|
|
|
hi all
I am working on vb.net window application where i am using adobe acrobat 7.0 browser to open pdf inside the browser. I want to disable the mouse scroll.I can remove the scroll bar but the mouse scroll button still works . so that user should be able to see only the page that is specified ( i don't want user to scroll to other pages in pdf). Can any one tell me how to disable the mouse scroll button on pdf browser
Thanks and Regards
Prakash Mishra
Prakash Mishra(Banglore,India)
|
|
|
|
|
Well, if you're using a web browser control in one of your forms to do this, I guess you could override your form's WndProc method and look for WM_SCROLL messages and just eat 'em. By that I mean not passing them on to the form's base WndProc method.
Another option might be to use a 3rd party library to render the PDF file, like PDFNet. This would also eliminate the dependancy on the web browser control and give you greater flexibility over what the user can see.
|
|
|
|
|
Hi All,
In my vb application, I am generating data from database and retriving it and placing it in MSFlexgrid which includes date column also.
And I am using the following code to convert the data from MSFlexgrid to Excel.
But in that, in Date column is in properly coming in MSFlexgrid. But when we convert it to Excel, some of the dates (like 12/03/2008, 11/03/2008,04/03,2008..I hope all the dates less than or equal to 12) will be converted like 03/12/2008, 03/04/2008, 03/11/2008...like this. But the other dates 25/03/2008...is populating in Excel correctly.
Please help me how to overcome this issue.
Dim xlObject As Excel.Application
Dim xlWB As Excel.Workbook
Set xlObject = New Excel.Application 'This Adds a new woorkbook, you could open the workbook from file also
Set xlWB = xlObject.Workbooks.Add
Clipboard.Clear 'Clear the Clipboard
With MSFlexGrid1 'Select Full Contents (You could also select partial content)
.Col = 0 'From first column
.Row = 0 'From first Row (header)
.ColSel = .Cols - 1 'Select all columns
.RowSel = .Rows - 1 'Select all rows
Clipboard.SetText .Clip 'Send to Clipboard
End With
With xlObject.ActiveWorkbook.ActiveSheet
.Range("b2").Select 'Select Cell A1 (will paste from here, to different cells)
.Paste 'Paste clipboard contents
End With ' This makes Excel visible
xlObject.Visible = True
Thanks in Advance,
Regards,
R. Sangeetha Priya
|
|
|
|
|
hi the way u r submitting the date and retrieving it may be there is the problem try this it may help
Dim signDate As String = Format(DateTimePicker2.Value, "MM/dd/yyyy")
Regards
Prakash Mishra(Banglore,India)
|
|
|
|
|
Hi,
Thanks.
The date is getting saved in "dd/mm/yyyy" format in database as well as its populating in msflexgrid in dd/mm/yyyy format.
But when try to convert it to excel, in this case only some of the dates formating is changed. Especially the dates from 1-12 is getting interchanged the month and date places.
Please help me how to format the cell so that it gets only in dd/mm/yyyy format, or suggest me some ideas to overcome this.
Regards,
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
