Πρώτα Βήματα - Βάσεις δεδομένων

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Mon, 01 Oct 2007 18:43:03 GMT

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

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Fri, 28 Sep 2007 22:06:56 GMT

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

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

Ευχαριστώ!

Απ: Γέμισμα πίνακα στον SQL Server από excel files

imanos — Thu, 27 Sep 2007 22:18:47 GMT

Σύμφωνα μέ το 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 έτρεξα την εκτέλεση και η εισαγωγή έγινε κανονικά.

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Thu, 27 Sep 2007 03:52:49 GMT

Ευχαριστώ για την καθοδήγηση, το συννημένο excel λοιπόν είναι αυτό για το οποίο μιλάμε.

Απ: Γέμισμα πίνακα στον SQL Server από excel files

George J. Capnias — Thu, 27 Sep 2007 01:44:28 GMT

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

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

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

George J.

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Wed, 26 Sep 2007 17:58:17 GMT

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Wed, 26 Sep 2007 17:54:54 GMT

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

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

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

imanos — Tue, 25 Sep 2007 15:35:29 GMT

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Tue, 25 Sep 2007 03:48:53 GMT

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

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

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

imanos — Fri, 21 Sep 2007 15:46:26 GMT

Μπορείς να αλλάξεις τον κώδικα κάνοντας 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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

imanos — Fri, 21 Sep 2007 15:22:40 GMT

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

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

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Fri, 21 Sep 2007 06:18:33 GMT

Αγνόησε την παραπάνω δημοσίευση μου...βρήκα τι έφταιγε εκεί.

Τώρα έχω φτάσει στο σημείο που α)γίνεται το connection σωστά β) διαβάζει τα δεδομένα από το αρχείο που θέλω σωστά - άρα γίνεται το load του xls αρχείου κανονικά αλλά δεν κάνει το UpdateBatch. Από όσο διάβασα το updateBatch επηρεάζει τα recordsets για τα οποία δεν ισχύει κάποιο φίλτρο, στα δικά μου δεν υπάρχει φίλτρο....παρόλα αυτά το τελευταίο Msgbox που εμφανίζεται είναι το κιτρινισμένο και μετά ο κώδικας προσπαθεί για λίγο κάτι να κάνει (δεν τα καταφέρνει προφανώς) και τελειώνει η διαδικασία.....Any suggestions?

Loop
   MsgBox ("ok")
    rs.UpdateBatch adAffectAll

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

Exit Sub

Thanks again!

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Fri, 21 Sep 2007 04:48:29 GMT

Άλλαξα το σημείο που μου είπες αλλά πάλι δεν παίζει. Όντως η πρώτη στήλη μου είναι αριθμός έτσι λοιπόν έβαλα το 2ο κομμάτι του κώδικα που μου έδωσες. Η συμπεριφορά του τώρα είναι διαφορετική. Δεν πέφτει σε ατέρμονο βρόγχο, αντιθέτως τρέχει τόσο γρήγορα που δεν προλαβαίνω να κάνω debug. Δοκίμασα λοιπόν βάζοντας ένα Msgbox να δω μέχρι που φτάνει..στο σημείο που σημειώνω με κίτρινο δεν φτάνει ποτέ, πράγμα που μου φαίνεται περίεργο γιατί τον έλεγχο του if τον περνάει(το Msg μου εμφανίζεται όταν το βάζω αμέσως κάτω από το if)...Μήπως καταλαβαίνεις το γιατί;

'όνομα του sheet από όπου θα αντληθούν τα δεδομένα

shtName = "TransferData"

Do While Not EOF
    rs.AddNew
    For x = 1 To rs.Fields.Count
       If Not rs(x - 1).Properties("ISAUTOINCREMENT").Value Then
        rs(x - 1) = wbWorld.Sheets(shtName).Cells(r, x)
        MsgBox ("hello")
      End If
    Next

Ευχαριστώ!

Απ: Γέμισμα πίνακα στον SQL Server από excel files

imanos — Thu, 20 Sep 2007 15:54:09 GMT

Το πιό προφανές είναι ότι μπαίνει σέ ένα ατέρμονο loop με αποτέλεσμα να κρεμμάει .

Δοκίμασε μια διόρθωση στό παρακάτω σημείο

    'Εάν δέν βρεί στοιχείο στην επόμενη γραμμή του sheet τότε τέλος του loop
    If wbWorld.Sheets(shtName).Cells(r, 1) = "" Then
       EOF = True
    End If

    'Εάν δέν βρεί στοιχείο στην επόμενη γραμμή του sheet τότε τέλος του loop
    If (trim(wbWorld.Sheets(shtName).Cells(r, 1)) = "" or isEmpty(wbWorld.Sheets(shtName).Cells(r, 1)) or IsNull(wbWorld.Sheets(shtName).Cells(r, 1))) Then
       EOF = True
    End If

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

    'Εάν δέν βρεί στοιχείο στην επόμενη γραμμή του sheet τότε τέλος του loop
    If wbWorld.Sheets(shtName).Cells(r, 1) = 0 Then
       EOF = True
    End If

Απ: Γέμισμα πίνακα στον SQL Server από excel files

klelia — Wed, 19 Sep 2007 05:40:33 GMT

Όσες φορές προσπάθησα να κάνω debug τον κώδικα είδα ότι κόλλησε στα σημεία που σημειώνω παρακάτω. Άρα έχω ξεπεράσει το connection και κάτι δεν πάει καλά στο γέμισμα....

    shtName = "TransferData"
   Do While Not EOF
    rs.AddNew
    For x = 1 To rs.Fields.Count
      If Not rs(x - 1).Properties("ISAUTOINCREMENT").Value Then
        rs(x - 1) = wbWorld.Sheets(shtName).Cells(r, x)
      End If
    Next
    r = r + 1
    'Εάν δέν βρεί στοιχείο στην επόμενη γραμμή του sheet τότε τέλος του loop
    If wbWorld.Sheets(shtName).Cells(r, 1) = "" Then
       EOF = True
    End If
   Loop

Υπάρχει περίπτωση να κολλάει λόγω ασυμφωνίας των τύπων δεδομένων στο excel και στη βάση ή λόγω κάποιων restrictions που μπορεί να προέρχονται από τα foreign keys κτλ.??

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