Visual Basic

listitems.subItems.Add( IIf( IsDBNull(<whatever'With'Is>), "", .GetString(1) ) )

C:\WINDOWS\system32\NOTEPAD.EXE C:\Fullpath\filename.txt

C:\WINDOWS\NOTEPAD.EXE "%1"

C:\WINDOWS\NOTEPAD.EXE "C:\Wherever this file sits\TestFile.txt"

int Export(BSTR szServer, BSTR szDB, BSTR szUser, BSTR szPassword, BSTR szSQL)
{

	/*notes--
			Author: Diamond ringold (2004-03-22)
			Purpose: accepts a query string along with server name, dbname, user, password
					and gets a result set from a MySQL database.  Then allows user to select name and
					directory of a new dbase table to export queried info to
	*/

	int						numOfRows=0;				//Counter
	int						numOfFields=0;			//Counter
	int						i=0,col=0;					//Counters
	int						connected=0;				//status flag
	MYSQL					*dbHandle;					//Connection handle
	MYSQL_RES			*res;								//Result struct
	MYSQL_FIELD		*field;							//Field struct
	MYSQL_ROW			row;								//row struct
	char					errmsg[512];
	
	// Create the mysql object 
	dbHandle=mysql_init((MYSQL*)0);

	CString szDBFName;
	CString strPath,strTblName;

	try
	{
		//open file save dialog
	CFileDialog dlg(FALSE,".DBF",NULL,OFN_ENABLESIZING | OFN_HIDEREADONLY,".dbf files (*.dbf)|*.dbf||");
	if(dlg.DoModal() == IDOK)
	{
		szDBFName = dlg.GetPathName();
		strTblName = dlg.GetFileName();
		//if no name in filename box
		if((szDBFName.GetLength() || strTblName.GetLength() ) == 0)
		{
			AfxMessageBox("Export Canceled",MB_OK | MB_ICONINFORMATION);
			return 0;
		}
	}
	else //if user pressed cancel
	{
		AfxMessageBox("Export Canceled",MB_OK | MB_ICONINFORMATION);
		return 0;
	}
	
	int nPos = szDBFName.Find(strTblName,0);
  strPath = szDBFName.Left(nPos);

	//connect to MySQL db
	if(mysql_real_connect(dbHandle,		// Handle to mysqlobject 
							  (char*)szServer,			// Host - default=localhost
							  (char*)szUser,		// Username
							  (char*)szPassword,		// Password
							  (char*)szDB,		// Databasename
							  MYSQL_PORT,	// Port of connection
							  NULL,			// Used by Unixsocket
							  0))			// client_flag
		{

			connected=1;
		}
		else //failed to connect
		{
			sprintf(errmsg, "\nError: %s\n", mysql_error(dbHandle));
			AfxMessageBox(errmsg);
			connected = 0;
		}

	//select the default db
	if(mysql_select_db(dbHandle,(char*)szDB))
	{
		sprintf(errmsg, "\nError: %s\n", mysql_error(dbHandle));
		AfxMessageBox(errmsg);
		return 0;
	}

	//execute query
	if(mysql_query(dbHandle,(char*)szSQL))
		{
			sprintf(errmsg, "\nError: %s\n", mysql_error(dbHandle));
		AfxMessageBox(errmsg);
		return 0;
		
		}

	//store the query results
	res=mysql_store_result(dbHandle);
	CDatabase		*pDB = new CDatabase;
	CString			strConnect;

	//connect to dbase directory chosen by user
	//driverid 533 = dbase 5.0; 277 = dbase IV
	strConnect.Format("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=533;Dbq=%s;",strPath);
	pDB->OpenEx(strConnect);
	CString sColumns;
	numOfRows = (int) mysql_num_rows(res);
	numOfFields= (int) mysql_num_fields(res);
	
	//dynamic arrays based on number of fields to hold field types and lengths
	int * nFieldLen = new int[numOfFields];
	int * nFieldDesc = new int[numOfFields];
		
	//this FOR loop build string for create table statement	
	for (i=0;i<numOfFields;i++)
	{

		
		field=mysql_fetch_field(res);
		int nType = field->type;
		
	int nLen = (int)field->length;
	 
	
		CString					sCol;
		nFieldDesc[i] = nType;
		nFieldLen[i] = nLen;
		switch(nType)
		{			
			case FIELD_TYPE_ENUM:
			case FIELD_TYPE_TINY:

			case FIELD_TYPE_SHORT:
				sCol.Format("%s %s,",field->name,"INTEGER ");
				break;
			case FIELD_TYPE_LONG:
				sCol.Format("%s %s,",field->name,"LONG ");
				break;
			case FIELD_TYPE_FLOAT:
			case FIELD_TYPE_DECIMAL:
				sCol.Format("%s %s,",field->name,"FLOAT ");
				break;
			case FIELD_TYPE_DOUBLE:
				sCol.Format("%s %s,",field->name,"DOUBLE ");
				break;
			case FIELD_TYPE_NULL:
				sCol.Format("%s %s,",field->name,"int ");
				break;
			case FIELD_TYPE_LONGLONG:
			case FIELD_TYPE_INT24:
				sCol.Format("%s %s,",field->name,"LONG ");
				break;
			case FIELD_TYPE_YEAR:
			case FIELD_TYPE_DATE:
			case FIELD_TYPE_NEWDATE:
			case FIELD_TYPE_TIME:
			case FIELD_TYPE_DATETIME:
			case FIELD_TYPE_TIMESTAMP:
				sCol.Format("%s %s,",field->name,"DATE ");
				break;
			case FIELD_TYPE_SET:
				sCol.Format("%s %s,",field->name,"int ");
				break;
			case FIELD_TYPE_TINY_BLOB:
			case FIELD_TYPE_MEDIUM_BLOB:
			case FIELD_TYPE_LONG_BLOB:
			case FIELD_TYPE_BLOB:
				sCol.Format("%s %s,",field->name,"MEMO ");
				break;
			case FIELD_TYPE_VAR_STRING:
			case FIELD_TYPE_STRING:
				sCol.Format("%s TEXT(%d),",field->name,nLen);
				break;
				
		}
		sColumns += sCol;
	
	}

	sColumns = sColumns.Left(sColumns.GetLength() - 1);
  sColumns = "CREATE TABLE " + strTblName + " (" + sColumns + ")";

	pDB->ExecuteSQL(sColumns);
	CDBFRecordset* m_Set = 0;

	m_Set =  new CDBFRecordset;

	m_Set->Open(szDBFName);
	for(i=0;i<numOfRows;i++)
	{
		int MaxLen = 0;
		CString sYear,sMonth,sDay,sTime,sHour,sMinute,sSecond;
		row=mysql_fetch_row( res );
		m_Set->AddNew();
		for (col=0;col<numOfFields;col++)
		{
			BOOL				bDate = FALSE; //will be true if data type is a date
			BOOL				bMemo = FALSE;
			field=mysql_fetch_field(res);
			int					nType = nFieldDesc[col];
			MaxLen = 512;
			switch(nType)
			{
				case FIELD_TYPE_TINY_BLOB:
				case FIELD_TYPE_MEDIUM_BLOB:
				case FIELD_TYPE_LONG_BLOB:
				case FIELD_TYPE_BLOB:
					bMemo = TRUE;
					MaxLen = 10000;
					break;
			}
				 
			char * msg = new char[MaxLen];
			sprintf(msg,"%s",row[col]);
			CString			str = msg;
			COleDateTime * t;
			
			switch(nType)
			{
				case FIELD_TYPE_YEAR:
				case FIELD_TYPE_DATE:
				case FIELD_TYPE_NEWDATE:
				case FIELD_TYPE_TIME:
				case FIELD_TYPE_DATETIME:
				case FIELD_TYPE_TIMESTAMP:
					str.Remove('-');  //take out dashes in case it's an empty date
					int len = str.GetLength();
					sYear = str.Mid(0,4);
					sMonth = str.Mid(4,2);
					sDay = str.Mid(6,2);
					//if more than 8 characters then column also has time info
					if(len > 8)
					{
						sHour = str.Mid(8,2);
						sMinute = str.Mid(10,2);
						sSecond = str.Mid(12,2);
					}
					else
					{
						sHour = sMinute = sSecond = "0";
					}
					bDate = TRUE;
					 t = new COleDateTime(atoi(sYear),
						 atoi(sMonth),atoi(sDay),atoi(sHour),atoi(sMinute),atoi(sSecond));
					break;
				
			}

			COleVariant fVar;
			//if it's a date, initialize the variant with the COleDateTime variable
			//otherwise use regular string
			if(bDate)
				fVar = *t;
			else
				fVar = str;
			
			delete [] msg;
			m_Set->SetFieldValue(col,fVar);
		}
		m_Set->Update();
	}
	AfxMessageBox("before deletions");
	mysql_free_result( res ) ;	//free the result set
	m_Set->Close(); //close recordset object
	if(m_Set)
		delete m_Set;

	if(pDB)
		delete pDB;
	AfxMessageBox("after deletions");
	return 1;  // will only get here if whole function succeeded
	
	}
	catch(CDBException* e)
	{
			e->ReportError();
			e->Delete();
	}
	catch(CException* e)
	{
		e->ReportError();
		e->Delete();
	}
	catch(...)
	{
		AfxMessageBox("Unhandled Error.",MB_OK | MB_ICONINFORMATION);
	}
	

	return 0;
	}