Click here to Skip to main content
15,883,883 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: update doesnt save into table using vb.net Pin
Dave Kreskowiak24-Feb-07 11:42
mveDave Kreskowiak24-Feb-07 11:42 
Questiontree view Pin
manni_n24-Feb-07 7:28
manni_n24-Feb-07 7:28 
AnswerRe: tree view Pin
MatrixCoder24-Feb-07 9:12
MatrixCoder24-Feb-07 9:12 
QuestionOleDB error Pin
7prince24-Feb-07 6:31
7prince24-Feb-07 6:31 
AnswerRe: OleDB error Pin
Dave Kreskowiak24-Feb-07 12:12
mveDave Kreskowiak24-Feb-07 12:12 
Questioninsert text data into database (SQL 2005) Pin
lyzaa24-Feb-07 5:22
lyzaa24-Feb-07 5:22 
AnswerRe: insert text data into database (SQL 2005) Pin
TriGiggleMich24-Feb-07 7:48
TriGiggleMich24-Feb-07 7:48 
GeneralRe: insert text data into database (SQL 2005) Pin
lyzaa25-Feb-07 16:37
lyzaa25-Feb-07 16:37 
Hi .TriGiggleMich Thanks for helping me.

Actully this is the case :-

Somebody email me a text file content data which i need to insert into database.The data must be insert into database based on the length that has been set.

1st three character insert into field name1.
4th and 5th character insert into filed name2.

Last time i'm using VB6 and this is my coding.

---------------------------
Dim rs As ADODB.Recordset
Dim SQL As String

Dim db As ADODB.Connection
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Database connection"

Set rs = New ADODB.Recordset
SQL = "select * from database name "
rs.Open SQL, Cons, adOpenStatic, adLockOptimistic, adCmdText

CMD.Filter = "*.txt| *.txt|*.dat| *.dat "
CMD.ShowOpen
If CMD.CancelError = True Then
Exit Sub
End If

If (CMD.FileName <> "") Then
Text6 = Mid(CMD.FileName, 4)
End If

If (CMD.FileName = "") Then
Exit Sub
End If

Open CMD.FileName For Input As #1

Do Until EOF(1)
Screen.MousePointer = vbHourglass
Line Input #1, temp

rs.AddNew


rs!Q1 = Mid(temp, 1, 1)
rs!Q2 = Mid(temp, 4, 1)

rs.Update

Loop
Set rs = Nothing
rs.Close

Close #1
CMD.FileName = ""
Screen.MousePointer = vbDefault

-------------

Now I need to convert all this to VB.NET



I'm just the beginner... ;(
QuestionRegEx to replace a string [modified] Pin
T John24-Feb-07 3:40
T John24-Feb-07 3:40 
AnswerRe: RegEx to replace a string Pin
The Tigerman24-Feb-07 13:17
The Tigerman24-Feb-07 13:17 
GeneralRe: RegEx to replace a string Pin
T John25-Feb-07 4:36
T John25-Feb-07 4:36 
QuestionHow do you open an Access Query in Excel using a vb button? Pin
China-Gary24-Feb-07 2:09
China-Gary24-Feb-07 2:09 
QuestionCan a form have a scroll bar? Pin
steve_rm24-Feb-07 1:35
steve_rm24-Feb-07 1:35 
AnswerRe: Can a form have a scroll bar? Pin
JUNEYT24-Feb-07 2:10
JUNEYT24-Feb-07 2:10 
AnswerRe: Can a form have a scroll bar? Pin
manni_n24-Feb-07 2:22
manni_n24-Feb-07 2:22 
AnswerRe: Can a form have a scroll bar? Pin
Guffa24-Feb-07 3:41
Guffa24-Feb-07 3:41 
AnswerRe: Can a form have a scroll bar? Pin
steve_rm24-Feb-07 3:53
steve_rm24-Feb-07 3:53 
Questionbeginner : can somebody help personally Pin
manni_n24-Feb-07 1:19
manni_n24-Feb-07 1:19 
AnswerRe: beginner : can somebody help personally Pin
JUNEYT24-Feb-07 2:05
JUNEYT24-Feb-07 2:05 
GeneralRe: beginner : can somebody help personally Pin
manni_n24-Feb-07 2:09
manni_n24-Feb-07 2:09 
GeneralRe: beginner : can somebody help personally Pin
Kevin McFarlane24-Feb-07 6:11
Kevin McFarlane24-Feb-07 6:11 
QuestionSave Image in SQL database Pin
Vikash Yadav23-Feb-07 23:21
Vikash Yadav23-Feb-07 23:21 
AnswerRe: Save Image in SQL database Pin
Hesham Amin24-Feb-07 8:03
Hesham Amin24-Feb-07 8:03 
QuestionSearch Letter By Letter Pin
ADY00723-Feb-07 22:37
ADY00723-Feb-07 22:37 
AnswerRe: Search Letter By Letter Pin
Christian Graus23-Feb-07 22:56
protectorChristian Graus23-Feb-07 22:56 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.