how to use seek command in vb.net using recordset

Question

0.00/5 (No votes)

See more:

My code in vb like that i need the code in vb.net

VB

rsSUP.Seek "=", maccount_number
               If rsSUP.NoMatch = False Then
                   tmpArry = Split(rsSUP.Fields("sup_data"), "|", , vbTextCompare)
                   trn_header = rsSUP.Fields("sup_data") + "|" + mPERIOD 'check here

So pls help how can i find it using recordset in vb.net using mysql

Posted 10-Jan-12 18:31pm

taher ahmed choudhury

Updated 10-Jan-12 20:15pm

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Ganesan Senthilvel · Answer 1 · 2012-01-10T18:42:00

You can try the below generic VB .NET methods for getting text and a particular word in file text with seek operation.

VB

Imports System.IO
Imports System.Text.RegularExpressions

Public Class FileReader
    Public Function GetText(ByVal PathToFile as String)
        Dim fs as New FileStream(PathToFile, FileMode.Open)
        Dim sr as New StreamReader(fs)  
        Dim FileText as string
        
        FileText = sr.ReadToEnd
        
        Return FileText
    End Function

    Public Function FindWordPosition(ByVal FileText as String, ByVal Pattern As String)
        Dim match as Match
        Dim myRegex as New Regex(Pattern)
        match = myRegex.Match(FileText)
        Return match.Index 
    End Function

End Class