Απ: Μεταφορά δεδομένων με στην Access

Evangelos — Fri, 28 Apr 2006 07:40:31 GMT

Τα πράγματα στην Access δεν είναι τόσο απλά. Το καλύτερο που έχεις να κάνεις είναι να χρησιμοποιήσεις το ADO.NET
Αρχικά πρέπει να φτιάξεις μια σύνδεση με τη βάση. Αυτό θα γίνει φτιάχνοντας ένα Connection object και στο Connection String θα δηλώνεις ότι χρησιμοποιείς Access (Jet) και ποιό είναι το αρχείο της βάσης.

    System.Data.OleDb.OleDbConnection connection =
         new System.Data.OleDb.OleDbConnection (
         "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=\"C:\\blabla.mdb\""
         );
    connection.Open();

Έπειτα μπορείς με διάφορους τρόπους να εισάγεις τα δεδομένα σου.
Ο πιο απλός είναι να φτιάχνεις Command objects με εντολές SQL που να εισάγουν τα δεδομένα στους πίνακές σου και να τις εκτελείς.
Αν έχεις για παράδειγμα έναν πίνακα table1 με πεδία id, data1, data2 που είναι Number, Text και Text αντίστοιχα:

    string sqlQuery = "INSERT INTO table1 (id, data1, data2) VALUES (1,'Hello','world')";
    System.Data.OleDb.OleDbCommand command = new
       System.Data.OleDb.OleDbCommand( sqlQuery, connection );
    command.ExecuteNonQuery();
    command.Dispose();

Στο τέλος κλείνεις το connection, και είσαι εντάξει.

connection.Close();
connection.Dispose();

Πρόσεξε μόνο να μην έχεις ανοικτή τη βάση σου στην Access, όταν τρέχει το πρόγραμμά σου.

Όπου και να κοιτάξεις, θα βρεις πληροφορίες για το ADO.NET. Μπορείς να αρχίσεις από το MSDN.

Καλή τύχη!

Μεταφορά δεδομένων με στην Access

pavgre — Tue, 11 Apr 2006 16:10:49 GMT

Χαίρεται. Καινούργιος στο φόρουμ. Επειδή δεν είμαι και πολύ σχετικός με την Access θα ήθελα την βοήθειά σας. Υπάρχει ένας server που πέρνει τις τιμές του PLC (Programmable Logic Controller) και τα μεταφέρει στον PC. Από εκεί και πέρα μπορεί κάποιος χρησιμοποιόντας DDE να μεταφέρει τις τιμές σε EXCEL. Μπορεί κάποιος να μεταφέρει τιμές και με τον παρακάτω κώδικα

Dim ExcelApp As excel.Application
Dim ExcelWorkbook As excel.Workbook
Dim ExcelSheet As excel.Worksheet

Private Sub Form_Load()

Set ExcelApp = CreateObject("Excel.Application")

Set ExcelWorkbook = ExcelApp.Workbooks.Open(MyFileName)
Set ExcelSheet = ExcelWorkbook.Worksheets(1)

End Sub

Private Sub Timer1_Timer()
Dim server As Object 'FaconServer object declaration

Set server = CreateObject("FaconSvr.FaconServer") 'Create the FaconServer object
'server.OpenProject ("c:\test.fcs") ' Open the project file(D:\Demo.fcs)
                                        ' which was created previously
    server.Connect
   Timer1.Enabled = True
Text2.Text = server.GetItem("Channel0.Station0.Group0", "R0")

ExcelSheet.Cells(1, 1).Value = Time
ExcelSheet.Cells(1, 2).Value = Text2.Text
ExcelWorkbook.Save

End Sub

Έτσι μεταφέρω δεδομένα σε Excel. Μήπως ξέρει κανείς αν γίνεται να στείλω δεδομένα σε Access και πως;

SQL Server (και άλλες databases)

Απ: Μεταφορά δεδομένων με στην Access

Μεταφορά δεδομένων με στην Access