Help with [login to view URL] code for someone use to ADO

I have been coding with ADO in VB6 for a while but am having trouble with [url removed, login to view] in VB.net 2012. You would think finding examples equivalent to ADO for [url removed, login to view] would be easy, but I have searched for hours and am just not getting it.

The person performing this task would have to be fluent in ADO and ADO.net.

What I would like is sample code that performs the same functions that are below in ADO, but for [url removed, login to view] in VB for VS 2012. I would like to see how to perform these functions without using "insert" commands and without using stored procedures. I have seen how to use insert command and know how to use them in ADO, but I have found they are very cumbersome to use when you have lots of fields to update.

I would like the [url removed, login to view] code to be functionally as similar to the way the ADO code works below. There are 5 different code examples I would like, each is listed below:

1.

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

Set Conn = New [url removed, login to view]

With Conn

.Provider = "SQLNCLI10"

.mode = adModeReadWrite

.CursorLocation = adUseClient

.Open "Server=OFFICE,49172;Database=mydata;User Id=myid;Password=mypass;"

End With

2.

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

Dim TmpRS As [url removed, login to view]

[url removed, login to view] "select * from mycustomers where account=100", Conn, adOpenDynamic, adLockOptimistic

If [url removed, login to view] Then

[url removed, login to view]

End If

TmpRS!cusName = "New Name"

TmpRS!cusaccount = 100

[url removed, login to view]

3.

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

Dim TmpRS As [url removed, login to view]

[url removed, login to view] "select * from mycustomers", Conn, adOpenForwardOnly, adLockReadOnly

Do Until [url removed, login to view]

For a% = 0 To [url removed, login to view] - 1

[url removed, login to view] [url removed, login to view](a%).Name

[url removed, login to view] [url removed, login to view](a%).Value

Next a%

[url removed, login to view]

Loop

4.

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

Dim TmpRS As [url removed, login to view]

[url removed, login to view] "select * from mycustomers where cusaccount=100", Conn, adOpenForwardOnly, adLockReadOnly

If Not [url removed, login to view] Then

[url removed, login to view] TmpRS!cusaccount

[url removed, login to view] TmpRS!cusName

End If

5.

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

How to retrieve the next Sequence number from a SQL Server 2012 Sequence

Visual Basic

ID dự án: #4463343

Về dự án