How can i compare two databases and their tables

Question

i have a text.txt file then
i will insert it into db_header and db_details
db_header has tbl_pcountheader with fld_Rack_No(char) PK and fld_DateAdded(date) PK
db_details has tbl_pcountdetails with fld_Rack_No(char) PK, fld_Barcode(char) PK and fld_Quantity(int)
then i will lookup in db_products
db_products has tbl_products and tbl_barcodes
tbl_products has fld_ItemCode
tbl_barcodes has fld_Barcode and fld_ItemCode
now i want to make a prompt contains
Rack No: Date:
Counter No:
Barcode | Item Code | Item Description | Quantity
how can i fill up this by comparing db_details and db_products?
Private Sub bt_upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_upload.Click
If saveCheckBox.Checked = False Then
MsgBox("Please click the box to continue.")
Return
End If
If lb_file.SelectedItem Is Nothing Then
MessageBox.Show("Please select a file.")
Exit Sub
End If
' Obtain the file path from the list box selection.
Dim filePath = lb_file.SelectedItem.ToString
' Verify that the file was not removed since the Browse button was clicked.
If System.IO.File.Exists(filePath) = False Then
MessageBox.Show("File Not Found: " & filePath)
Exit Sub
End If
' Obtain file information in a string.
Dim fileInfoText As String = GetTextForOutput(filePath)
'LookUP db_header, db_details and db_products
Dim cs As String = "Database=;Data Source=localhost;" _
& "User Id=root;Password=1234"
Dim conn As New MySqlConnection(cs)
Dim ds As New DataSet
Dim da As New MySqlDataAdapter
Dim cmd As New MySqlCommand
Dim dt As New DataTable
Dim stm As String = "SELECT tbl_pcountheader.fld_Rack_No, tbl_pcountheader.fld_DateAdded, tbl_pcountdetails.fld_Barcode, tbl_products.fld_ItemCode, tbl_products.fld_ItemDesc, tbl_pcountdetails.fld_Quantity FROM db_header.tbl_pcountheader INNER JOIN db_details.tbl_pcountdetails ON db_details.tbl_pcountdetails.fld_Rack_No = db_header.tbl_pcountheader.fld_Rack_No INNER JOIN db_products.tbl_barcodes ON db_details.tbl_pcountdetails.fld_Barcode = db_products.tbl_barcodes.fld_Barcode INNER JOIN db_products.tbl_products ON db_products.tbl_barcodes.fld_ItemCode_fk = db_products.tbl_products.fld_ItemCode GROUP BY tbl_pcountheader.fld_Rack_No, tbl_pcountheader.fld_DateAdded ORDER BY tbl_pcountheader.fld_Rack_No"
ds = New DataSet
Try
conn.Open()
da = New MySqlDataAdapter(stm, conn)
da.Fill(ds, "tbl_pcountheader")
DataGridView1.DataSource = ds.Tables("tbl_pcountheader")
Dim headers = (From header As DataGridViewColumn In DataGridView1.Columns.Cast(Of DataGridViewColumn)() _
Select header.HeaderText).ToArray
Dim rows = From row As DataGridViewRow In DataGridView1.Rows.Cast(Of DataGridViewRow)() _
Where Not row.IsNewRow _
Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function(c) If(c.Value IsNot Nothing, c.Value.ToString, ""))
Using sw As New IO.StreamWriter("c:\report.txt", append:=True)
sw.WriteLine(String.Join(",", headers))
For Each r In rows
sw.WriteLine(String.Join(",", r))
Next
End Using
ds.WriteXmlSchema("Sample.xml")
Dim cr As New CrystalReport1()
cr.SetDataSource(ds)
CrystalReportviewer1.ReportSource = cr
CrystalReportviewer1.Refresh()
Catch ex As MySqlException
MsgBox("Error: " & ex.ToString())
Finally
conn.Close()
End Try
' Show the file information.
Dim PrintPrompt As String
PrintPrompt = MsgBox(fileInfoText, MsgBoxStyle.YesNo, "ProofList")
If PrintPrompt = vbYes Then
'fileInfoText.print()
If saveCheckBox.Checked = True Then
' Place the log file in the same folder as the examined file.
Dim bakFolder As String = System.IO.Path.GetDirectoryName(filePath)
Dim bakFilePath = System.IO.Path.Combine(bakFolder, "back-up.bak")
Dim bakText As String = "Backed-Up: " & Date.Now.ToString & vbCrLf & fileInfoText & vbCrLf & vbCrLf
' Append text to the log file.
'System.IO.File.AppendAllText(bakFilePath, bakText)
My.Computer.FileSystem.WriteAllText(bakFilePath, bakText, append:=True)
'My.Computer.Network.UploadFile(bakFilePath, "C:\Documents and Settings\SAPC-TECH\My Documents\back-up file.bak", "", "", False, 1000)
'My.Computer.FileSystem.DeleteFile(bakFilePath)
'Form2.Show()
End If
'Note: This message box shows that you've uploaded a file and back up it.
MessageBox.Show("Already backed-up to ")
Else
'Me.Close()
'Application.Exit()
'End
End If
'Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
'Form2.Close()
'Me.Close()
End Sub
here's my final code that solves my problem.
i just make the environment of vb into mysql console
so that i can call all the database that i wanted.

Answer 1

Private Sub bt_upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_upload.Click
If saveCheckBox.Checked = False Then
MsgBox("Please click the box to continue.")
Return
End If
If lb_file.SelectedItem Is Nothing Then
MessageBox.Show("Please select a file.")
Exit Sub
End If
' Obtain the file path from the list box selection.
Dim filePath = lb_file.SelectedItem.ToString
' Verify that the file was not removed since the Browse button was clicked.
If System.IO.File.Exists(filePath) = False Then
MessageBox.Show("File Not Found: " & filePath)
Exit Sub
End If
' Obtain file information in a string.
Dim fileInfoText As String = GetTextForOutput(filePath)
'LookUP comparison db_details to db_products
'Dim connString As String = "Database=db_products;Data Source=localhost;" & "User Id=root;Password=1234"
'Dim conn As New MySqlConnection(connString)
'Dim cmd As New MySqlCommand()
'Try
' conn.Open()
' cmd.Connection = conn
' cmd.CommandText = "SELECT Database1.dbo.TableName.ColumnName, Database2TableName.Name, 'The reason why Database 2 isnt defined is the fact that it has been defined in the connection" _
' FROM Database2TableName INNER JOIN _
' Database2TableName2 INNER JOIN _
' WHERE (Database1.dbo.TableName.ColumnName = '')"
' cmd.Prepare()
' cmd.ExecuteNonQuery()
' conn.Close()
'Catch ex As Exception
'End Try
' Show the file information.
Dim PrintPrompt As String
PrintPrompt = MsgBox(fileInfoText, MsgBoxStyle.YesNo, "ProofList")
If PrintPrompt = vbYes Then
'fileInfoText.print()
If saveCheckBox.Checked = True Then
' Place the log file in the same folder as the examined file.
Dim bakFolder As String = System.IO.Path.GetDirectoryName(filePath)
Dim bakFilePath = System.IO.Path.Combine(bakFolder, "back-up.bak")
Dim bakText As String = "Backed-Up: " & Date.Now.ToString & vbCrLf & fileInfoText & vbCrLf & vbCrLf
' Append text to the log file.
'System.IO.File.AppendAllText(bakFilePath, bakText)
My.Computer.FileSystem.WriteAllText(bakFilePath, bakText, append:=True)
'My.Computer.Network.UploadFile(bakFilePath, "C:\Documents and Settings\SAPC-TECH\My Documents\back-up file.bak", "", "", False, 1000)
'My.Computer.FileSystem.DeleteFile(bakFilePath)
Form2.Show()
End If
'Note: This message box shows that you've uploaded a file and back up it.
MessageBox.Show("Already backed-up to ")
Else
Me.Close()
Application.Exit()
End
End If
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Form2.Close()
Me.Close()
End Sub
here's my code wherein i have to compare the two database and save it into .txt file
i just have to get this items
Rack No:
Date:
Counter No:
Barcode:
Item Code:
Item Description:
Quantity:
as a prooflist to be print out.