שלום רב,

ברצוני להשתמש בפונקציית הייצוא של ACCESS בכדי לייצא טבלה לXML, בעזרת קוד CPP.
הדבר היחיד שעליתי עליו הוא פקודת ה SQL הבאה:

קוד:

CDatabase db;
CString SQL;
   SQL = "SELECT * FOR XML PATH(Service), ROOT(Services) queryout c:\\customers.xml FROM Tmp_Wire_Out";
	SQL = "SELECT * INTO "
		 "[Excel 8.0;HDR=Yes;DATABASE=c:\\customers.xls].[Sheet1] "
		 "FROM [Customers]";

   try
   {
	   db.OpenEx( "Driver=Microsoft Access Driver (*.mdb);"
				 "DBQ=c:\\kmidwgs.mdb;", CDatabase::noOdbcDialog );
	  db.ExecuteSQL( SQL);
   }

אך היא מייצאת ל EXCEL.
מישהו יודע אולי איך לשנות את הפקודה, או דרך אחרת לבצע את הבקשה?

תודה מראש לכולכם!

http://msdn.microsoft.com/en-us/library/h63swas7(VS.80).aspx
עלה והצלחה.

ד"א אם אתה זורם על .NET עם C++/CLI זה יקח לך בערך חמש דקות. אתה בונה Typed data set עם הויזארד של הויזואל סטודיו, ממלא אותו, ואז יש מתודה ששופכת אותו בשלמותו לXML.

אני לא ממש מבין בזה... תוכל להסביר לי יותר על הפיתרון הזה?

בתמורה אשלח לך מלאך:

תודה

קבל עוד לינק:
http://msdn.microsoft.com/en-us/library/cc811599.aspx

ועוד אחד כללי:
http://msdn.microsoft.com/en-us/library/7wtdsdkh.aspx

תפרט מה אתה מנסה לעשות? ואני אנסה לעזור לך.

יש לי מסד נתונים של ACCESS. אני רוצה לקחת ממנו טבלה, ולהפוך אותה ל XML.
אם תיכנס ל ACCESS תוכל לראות שהם עשו אופציה כזו תחת קובץ->ייצוא. שם אתה יכול לבחור לייצא בכמה דרכים ביניהן גם כ XML. זה מה שאני רוצה.
אם לא ניתן להפעיל את זה מבחוץ, אופציה אחרת גם תהיה טובה.

תודה!

אני מניח שאתה יכול להפעיל גם את הדיאלוג, אבל אין לי מושג איך.
הדרך הנורמאלית תהיה לקרוא את הטבלה דרך ODBC או OLEDB, ולשפוך את התוכן לXML.
אתה יכול להשתמש ב.NET בישביל זה או לא? C++ CLI ?

זהו, אז זה מה שאני אעשה אם לא תהיה לי ברירה... חשבתי שאולי יש דרך מהירה יותר מזאת כי יש אופציה כזאת ל EXCEL.
כרגע אני עושה את זה דרך C++ בדרך שאתה אמרת...

הנה
http://support.microsoft.com/kb/262450

זה אפשרי בADO בלי יותר מידיי מאמץ, וזה בתכלס מה שקורה ב.NET אבל אלוהים עדי שאין לי מושג איך לגרום לדבר הנורא הזה לעבוד...

http://msdn.microsoft.com/en-us/library/ms805098.aspx

שים לב שבישביל הדבר ההוא אתה גם צריך MSXML מותקן...

תעיין גם בשני אלה:
http://archive.devx.com/whitepapers...ml3/default.asp
http://archive.devx.com/whitepapers...ml3/xmlmag2.asp
http://archive.devx.com/whitepapers...ml3/xmlmag3.asp

תשתמש בקוד VBA הבא
דוגמא להפעלה

קוד:

[	Make_XML("Employees","test") /CODE]  
טבלת עובדים קובץ טסט

[CODE]

Sub Make_XML(strTableName As String, strFileName As String)
	Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field, rst As DAO.Recordset
	Dim sText As String, lLineCount As Long, i As Integer
	Dim SourcePath As String, N As Integer
	Dim arrCount As Integer, nFileNum As Integer
	   
	   On Error GoTo Fun_Err
	 Set db = CurrentDb()
	Set tdf = db.TableDefs(strTableName)
	arrCount = tdf.Fields.Count
	ReDim arr(arrCount)
	i = 0
	For Each fld In tdf.Fields
		arr(i) = fld.Name
		i = i + 1
		Next
		strTableName = "SELECT * FROM " & strTableName
	Set rst = CurrentDb.OpenRecordset(strTableName)


	nFileNum = FreeFile
	'===================	find the dir and root to a file
	SourcePath = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
	Open SourcePath & strFileName & ".xml" For Output Lock Read Write As nFileNum
 Print #nFileNum, "<?xml version=" & """1.0""" & "encoding=" & """UTF-8""" & "?>"
 Print #nFileNum, "<root>"

	rst.MoveFirst
	For N = 0 To rst.RecordCount
	  Do While Not rst.EOF
		Print #nFileNum, vbTab & "<child>"
			For i = 0 To arrCount - 1
			   Print #nFileNum, vbTab & vbTab & "<" & arr(i) & ">" & rst(i) & "</" & arr(i) & ">"
			Next i
		Print #nFileNum, vbTab & "</child>"
		rst.MoveNext
	 Loop
	 
	 Next N
  Print #nFileNum, "</root>"


		rst.Close
		Set rst = Nothing
		Set tdf = Nothing
		Set db = Nothing

Fun_exit:
Close (nFileNum)
Exit Sub
Fun_Err:
 ' write error handler rutin
GoTo Fun_exit


End Sub