0
我想问一下关于使用Vb.Net编码的问题。我想从我旧的Foxpro数据库导入数据到我的SQL Server数据库。我选择了需要从Foxpro导入到SQL Server数据库的所有列。原因是当我尝试导入数据时,我总是得到错误Vb.Net,SQL Server和Foxpro
违反PRIMARY KEY约束'PK_MsDetail'。不能在对象'dbo.MsDetail'中插入重复键。
这是我的VB.NET代码:
Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
If txtFile.Text = "" Then
MsgBox("Cannot be Empty")
Else
dgData.DataSource = Nothing
path = "Q:\umum" & txtFile.Text.Trim & ".DBF"
Dim MyConnection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
DtSet = New System.Data.DataSet
MyConnection = New System.Data.OleDb.OleDbConnection("Provider=vfpoledb.1; " &
"data source='" & "Q:\" & "'; Collating Sequence=general")
MyCommand = New OleDbCommand("select Cd_png,cabang,subcabang,noncs,User_i,tgl_pkp,Cycle,Nama,Company,Kota,kota1,kota2,NamaKota,Telepon,Cd_post,User_ti,noncs,report3,report2,report1,report4 from [" & path & "] where cd_png ='" & txtPng.Text & "' and report3 is not null", MyConnection)
da = New OleDbDataAdapter(MyCommand)
da.Fill(DtSet, "a")
End If
dgData.DataSource = DtSet.Tables("a")
End Sub
Private Sub btnExec_Click(sender As Object, e As EventArgs) Handles btnExec.Click
_thread = New Thread(New ThreadStart(AddressOf Ribakkon))
_thread.Start()
End Sub
Private Function cek_ada_ga(ByRef field As String, ByRef TABLE As String, ByRef AWB As String) As Boolean
If ConnImport.State = ConnectionState.Closed Then
ConnImport.Open()
End If
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Dim Nil As Boolean
Try
cmd = New SqlCommand("select " & field & " from " & TABLE & " where " & field & " = '" & AWB & "' ", ConnImport)
dr = cmd.ExecuteReader
If dr.Read Then
Nil = False
Else
Nil = True
End If
dr.Close()
cmd.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
Finally
End Try
Return Nil
End Function
Private Sub Ribakkon()
If ConnImport.State = ConnectionState.Closed Then
ConnImport.Open()
End If
Dim i As Integer
For i = 0 To DtSet.Tables("a").Rows.Count - 1
If cek_ada_ga("PuNo", "MsData", Microsoft.VisualBasic.Trim(DtSet.Tables("a").Rows(i).Item(1))) Then
With DtSet.Tables("a").Rows(i)
Dim Juliya As String
Juliya = Microsoft.VisualBasic.Trim(.Item(0))
fetch = "INSERT INTO MsData (Puno,Refno,MdName,MdCompany,MdAdd1,MdAdd2,MdAdd3,MdAdd4,MdCity,MdZip,MsDatein,MdPhone1,IdUser)"
fetch += " values ('" & .Item(1) & "','" & .Item(1) & "','" & Regex.Replace(.Item(7).ToString, "[',]", " ") & "','" & Regex.Replace(.Item(8).ToString, "[',]", " ") & "','" & Regex.Replace(.Item(9).ToString, "[',]", " ") & "','" & Regex.Replace(.Item(10).ToString, "[',]", " ") & "'"
fetch += ",'" & Regex.Replace(.Item(11).ToString, "[',]", " ") & "','" & Regex.Replace(.Item(12).ToString, "[',]", " ") & "','-','" & Regex.Replace(.Item(14).ToString, "[',]", " ") & "'"
fetch += ",getdate(),'" & Regex.Replace(.Item(13).ToString, "[',]", " ") & "','JOINNES')"
End With
Dim cmd As New SqlCommand(fetch, ConnImport)
cmd.ExecuteNonQuery()
fetch = ""
End If
If cek_ada_ga("PuNo", "MsDetail", Microsoft.VisualBasic.Trim(DtSet.Tables("a").Rows(i).Item(1))) Then
With DtSet.Tables("a").Rows(i)
Dim Juliya As String
Juliya = Microsoft.VisualBasic.Trim(.Item(0))
sql += "INSERT INTO MsDetail (Puno,AWB,Periode,Code,BCode,PuDate,Noresi,FileName,Field1,Field2,MsChannel,Pudatein,IdUser)"
sql += " values ('" & .Item(1) & "','" & .Item(3) & "','" & Mid(.Item(4), 6, 2) & Mid(.Item(4), 3, 2) & "','" & .Item(0) & "','CGK'"
sql += ",'" & .Item(5) & "','-','" & txtPng.Text & "','" & .Item(6).ToString & "','" & .Item(2).ToString & "','FOXPRO','" & CDate(.Item(4)).ToString("MM/dd/yyyy") + " " + .Item(15).ToString & "','JOINNES')"
End With
Dim cmd As New SqlCommand(sql, ConnImport)
cmd.ExecuteNonQuery()
sql = ""
End If
Next
For i = 0 To DtSet.Tables("a").Rows.Count - 1
If cek_ada_ga("AWB", "Closed", Microsoft.VisualBasic.Trim(DtSet.Tables("a").Rows(i).Item(16))) Then
With DtSet.Tables("a").Rows(i)
Dim Juliya, STT As String
If .Item(1).ToString.Trim = "BERHASIL" Then
STT = "OK"
Else
STT = "RT"
End If
Juliya = Microsoft.VisualBasic.Trim(.Item(0))
sql += "INSERT INTO Closed (AWB,ScStt,ScDate,ScPenerima,ScRel,ScDatein,ScNote,IdUser) "
sql += " values ('" & .Item(16) & "','" & STT & "','" & .Item(19) & "','" & Regex.Replace(.Item(18).ToString, "[',]", " ") & "','" & .Item(20).ToString & "'"
sql += ",getdate(),'-','JOINNES')"
End With
Dim cmd As New SqlCommand(sql, ConnImport)
cmd.ExecuteNonQuery()
sql = ""
End If
Next
End Sub
我很困惑如何解决。我需要你们大家的帮助。非常感谢您的帮助:)
感谢您的答案兄弟,我向你解释一点。我有两个表在SQL DB它是MsDetail和MsData。在MsData上,我将PuNo设置为主键,在MsDetail上我将AWB设置为主键,将MsData上的PuNo设置为MsDetail表中的FK。我得到的问题是当我插入数据时,它总是显示像我上面解释的错误。我的主要问题是我怎么可以从我的foxpro插入数据到我的SQL,虽然有相同的数据呢?你能给我一个更好的问题吗?谢谢兄弟:) – Joinnes
如果SQL Server中的字段是一个PK,或者存在唯一的约束,那么您可以删除VFP数据中的副本,或者删除SQL Server中的约束。编码不会解决这个问题。 –