Apro un nuovo topic perchè ho un grosso problema con il salvataggio del database.
Ho provato a cercare nel forum e in giro,ho provato tutte le soluzioni citate ma non sono ancora riuscito a risolvere...
Leggo un database dbf,scrivo i dati nel database sdf,ma quando è il momento di salvare non li salva...
questo è il codice:
codice:
Private Sub Dbftosql()
Dim ConnDBF As New OleDb.OleDbConnection
ConnDBF.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=dBASE IV;User ID=Admin;Password="
ConnDBF.Open()
Dim DBFSelect As New OleDb.OleDbCommand("SELECT * FROM [PAR_TITE.DBF]", ConnDBF)
Dim A, B, C, D, E, F, G, H As String
reader = DBFSelect.ExecuteReader
Do While reader.Read
Dim ConnSqlCe As New System.Data.SqlServerCe.SqlCeConnection
ConnSqlCe.ConnectionString = "Data Source=C:\Palmare.sdf;Persist Security Info=False;"
If reader.IsDBNull(0) = False Then
A = CStr(reader.GetValue(0))
Else
A = CStr(" ")
End If
If reader.IsDBNull(1) = False Then
B = CStr(reader.GetValue(1))
Else
B = CStr(" ")
End If
If reader.IsDBNull(2) = False Then
C = CStr(reader.GetValue(2))
Else
C = CStr(" ")
End If
If reader.IsDBNull(3) = False Then
D = CStr(reader.GetValue(3))
Else
D = CStr(" ")
End If
If reader.IsDBNull(4) = False Then
E = CStr(reader.GetValue(4))
Else
E = CStr(" ")
End If
If reader.IsDBNull(5) = False Then
F = CStr(reader.GetValue(5))
Else
F = CStr(" ")
End If
If reader.IsDBNull(6) = False Then
G = CStr(reader.GetValue(6))
Else
G = CStr(" ")
End If
If reader.IsDBNull(7) = False Then
H = CStr(reader.GetValue(7))
Else
H = CStr(" ")
End If
Try
Me.TableTableAdapter.InsertQuery(A, B, C, D, E, F, G, H)
Catch ex As Exception
End Try
Loop
QueryFillSql()
Me.TableTableAdapter.Update(Me.PalmareDataSet.Table)
ConnDBF.Close()
End Sub
Grazie