Εδώ τώρα προφανώς έχεις ασυμφωνία τύπου δεδομένων του αρχείου excel με τους τύπους στον Πίνακα του MSSQL.

Έλεγξε της γενικά τί τύπους δεδομένων έχεις στόν πίνακα του MSSQL και στό excel σου.

Μπορείς να αλλάξεις τον κώδικα κάνοντας updateBatch για κάθε καινούργια γραμμή για να δείς σέ ποιά υπάρχει ασυμφωνία τύπων

Άλλαξε αυτό

Loop
   MsgBox ("ok")
    rs.UpdateBatch adAffectAll
    
   MsgBox ("ok2")
    CleanUp
   MsgBox ("ok3")
    Next
   MsgBox (i)

Exit Sub

μέ αυτό

rs.UpdateBatch adAffectCurrent

Loop
   MsgBox ("ok")
    
    
   MsgBox ("ok2")
    CleanUp
   MsgBox ("ok3")
    Next
   MsgBox (i)

Exit Sub

Άλλαξα και τους τύπους δεδομένων και είναι ίδιοι, ωστόσο και πάλι δεν δουλεύει. Αυτή τη φορά δεν φτάνει καν στο 1ο msgBox....Αρκετά σε ταλαιπώρησα μάλλον όμως, θα προσπαθήσω να το φτιάξω με τη χρήση SSIS packages και μάλλον το for each loop.

Αν κατορθώσω να βρω τι έφταιγε και κάνω τον κώδικα να δουλέψει θα το δημοσιεύσω!

Ευχαριστώ πολύ για τη βοήθεια!

Αν μου στείλεις ένα Excel από αυτα πού πάς να κάνεις Εισαγωγή καθώς και την Δομή του πίνακά σου θα μπορέσω να σου πώ τί φταίει.

Από το Interface του forum δεν μπορώ να βρω τρόπο να κάνω επισύναψη (δεν ξέρω γιατί δεν μου εμφανίζεται η επιλογή αυτή)...γι' αυτό και θα σου στείλω το excel  στο e-mail σου.

Ο πίνακας έχει ακριβώς τα ίδια πεδία με αυτά που θα δεις στις στήλες του excel και είναι όλα integer. Το primary key του πίνακα είναι το ansID. Αν θες κάποια άλλη πληροφορία πες μου.

Ευχαριστώ πολύ!

Δυστυχώς ούτε από το Interface του e-mail μπορώ να κάνω επισύναψη. Έχω αρχίσει και νίωθω ηλίθια....όντως είναι έτσι ή εγώ δεν μπορώ να το βρω?

klelia:

Από το Interface του forum δεν μπορώ να βρω τρόπο να κάνω επισύναψη (δεν ξέρω γιατί δεν μου εμφανίζεται η επιλογή αυτή)...γι' αυτό και θα σου στείλω το excel  στο e-mail σου.

Ο πίνακας έχει ακριβώς τα ίδια πεδία με αυτά που θα δεις στις στήλες του excel και είναι όλα integer. Το primary key του πίνακα είναι το ansID. Αν θες κάποια άλλη πληροφορία πες μου.

Ευχαριστώ πολύ!

Κατά την διάρκεια που γράφεις το μήνυμά σου, αν δεις πάνω από το γκρίζο πλαίσιο που έχει το μήνυμα που απαντάς, θα δεις ότι έχει Tabs. Στο δεύτερο tab - Επιλογές - έχει τον τρόπο να κάνεις attach ένα αρχείο στο μήνυμά σου, είτε στα forums είτε στα PMs.

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

Σύμφωνα μέ το Excel που μου έτειλες δέν είναι όλα τά πεδία τύπου integer το πεδίο qID είναι τύπου varchar μήπως στον Πίνακα της βάσης σου είναι ώς integer ενώ από το excel έρχεται σέ varchar και γι' αυτό δέν γίνεται η εισαγωγή.

Προσωπικά δημιούργησα τόν πίνακα όπως σου δείχνω παρακάτω

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Jobs]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Jobs]
GO

CREATE TABLE [dbo].[Jobs] (
 [ansID] [int] NOT NULL ,
 [urID] [int] NULL ,
 [qID] [varchar] (25)  NULL ,
 [ansLabel] [int] NULL ,
 [qCode] [int] NULL ,
 [surID] [int] NULL ,
 [codfrID] [int] NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Jobs] WITH NOCHECK ADD
 CONSTRAINT [PK_Jobs] PRIMARY KEY  CLUSTERED
 (
  [ansID]
 )  ON [PRIMARY]
GO

,μέσα στόν κώδικα άλλαξα το TransferData σέ Sheet1 έτρεξα την εκτέλεση και η εισαγωγή έγινε κανονικά.

Έχεις δίκιο για τον τύπο του πεδίου. Θα το τρέξω ξανά διορθωμένο και θα σου πω τα αποτελέσματα!

Το sheet το έχω μετονομάσει και εγώ.

Ευχαριστώ!

Τελικά όντως το πρόβλημα ήταν ο τύπος του πεδίου στο excel το οποίο όσες φορές και αν είδα δεν συνειδητοποίησα ότι ήταν λάθος!

Ευχαριστώ πολύ για τη βοήθεια!