Hi Marina,
Thanks for your reply. I am selecting from 2 tables, and I need to in
this case because the data is used in a Crystal report. All I want to
do is update the table with the changed dataset (I change the value of
the 'Printed' field in the 'Letters' table). Here is the code I am
using:
Cursor = Cursors.WaitCursor
Dim conn As New SqlConnection()
Dim cmdBuilder As SqlCommandBuilder
Dim rpt As New Letter()
Dim strSQL As String
conn = GetMainConnSQL("UserName", "Password", "Server")
strSQL = "SELECT " & _
"Letters.*, CLNMAS.CompanyName, CLNMAS.FNAME,
CLNMAS.LNAME, CLNMAS.ADDRESS1, CLNMAS.ADDRESS2, CLNMAS.CITY,
CLNMAS.STATE, CLNMAS.ZIP, Email " & _
"FROM " & _
"CLNMAS RIGHT JOIN Letters (NOLOCK) ON
CLNMAS.CLIENT_ID = Letters.Client_ID " & _
"WHERE " & _
"Letters.Printed = 0"
daLetters = New SqlDataAdapter(strSQL, conn)
dsLetters = New DataSet()
daLetters.Fill(dsLetters, "tLetters")
cmdBuilder = New SqlCommandBuilder(daLetters)
(of course, this errors out!)
daLetters.UpdateCommand = cmdBuilder.GetUpdateCommand
rpt.SetDataSource(dsLetters.Tables("tLetters"))
fCrystalViewer = New CrystalViewer()
fCrystalViewer.crvMain.ReportSource = rpt
fCrystalViewer.MdiParent = Me.MdiParent
fCrystalViewer.Show()
Cursor = Cursors.Arrow
When the user closes the Crystal Report, the following line is executed
daLetters.Update(dsLetters, "tLetters")
Thanks!!!
|