Visual Basic

con.ConnectionString = strOpenSQLDatabase
con.Open()

con2.ConnectionString = strOpenSQLDatabase
con2.Open()

        Dim ra As Integer
        Dim cmd As New SqlCommand

        Dim cnt_del As Integer
        Dim room_N As Integer
        Dim str As String

        con.ConnectionString = strOpen        
        con.Open()

        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM Info"

	'con2 should be declared somewhere
        con2.ConnectionString = strOpen        
        con2.Open()

	'cmd2 should be declared somewhere
        cmd2.Connection = con2
        Dim lrd As SqlDataReader = cmd.ExecuteReader()

        If lrd.HasRows Then

            Try
                'Dim lwr As SqlDataReader

                While lrd.Read()
                    ListBox1.Items.Clear()

                    str = lrd.GetValue(0).ToString() + ","
                    str = str + lrd.GetValue(1).ToString() + ","
                    str = str + lrd.GetValue(2).ToString() + ","
                    str = str + lrd.GetValue(3).ToString() + ","
                    str = str + lrd.GetValue(4).ToString() + ","
                    str = str + lrd.GetValue(5).ToString()+ ","
                    str = str + lrd.GetValue(6).ToString()

                    ListBox1.Items.Insert(cnt_del, str)
                    cnt_del = cnt_del + 1

                    ListBox_Available.Items.Clear()
                    room_N = SearchAvailableRooms(lrd.GetValue(2), lrd.GetValue(3), lrd.GetValue(4), lrd.GetValue(0), lrd.GetValue(1))

                    If room_N > 0 Then
                        cmd.CommandText = "UPDATE Reservations SET AvailRoomsRates = 'Trials'"
                        cmd.ExecuteNonQuery()
                        cmd2.CommandText = "UPDATE Reservations SET AvailRoomsRates = 'Trials'"
                        cmd2.ExecuteNonQuery()
                    End If

                End While

                lrd.Close()


            Catch ex As Exception
                cnt_error = cnt_error + 1
                TextBox_Error.Text = cnt_error.ToString()
            End Try
        End If

        con.Close() 'Whether there is error or not. Close the connection.
	con2.Close()

' Bind a control at run time.
txtFirstName.DataField = "FirstName"
Set txtFirstName.DataSource = Adodc1
...
' Unbind it.
Set txtFirstName.DataSource = Nothing

I are Troll

waner michaud wrote:

Visual Studio 2005 and Sql Express

I are Troll

waner michaud wrote:

The article is bit convoluted, with my very litle experience in sp..

waner michaud wrote:

I do not like to waste valuable in something I am not good at..

waner michaud wrote:

Briefly, my cenario is as such, Open a connection, select OfficerTable from the source, send it to destination database which was the original point of initiating the connection to modify OfficerTable in destination.

I are Troll

waner michaud wrote:

Must I create a sp for delete, insert, and update that reside in the database for the destination table and as well in the source database?

I are Troll

waner michaud wrote:

Ok. since I need the destination table for search only. Can I just simply alter the destiantion table?

CREATE VIEW [destinationDb].[dbo].[RemoteOrders]
AS 
    SELECT *
      FROM [sourceDb].[dbo].[Orders]

I are Troll

waner michaud wrote:

Which way to go and how?

I are Troll