All pastes #46422 Raw Edit

Miscellany

public text v1 · immutable
#46422 ·published 2006-03-21 01:33 UTC
rendered paste body
	  public static string clsPaUpDate()
		  {
				string iRet = "0";
				OdbcCommand ODcmd = new OdbcCommand();
				ODcmd.CommandType = CommandType.Text;
                String ODCon = "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=" + PaTableLocation + ";dbq=" + PaTableLocation + ";CollatingSequence=ASCII";
              				//String ODCon = strConnection ;
				if ( ODCon.Length > 0 )
				{
					 OdbcConnection PaConn = new OdbcConnection( ODCon );
					 try
					 {
						  ODcmd.Connection = PaConn;
						  PaConn.Open();
						  // for Select see 
						  switch ( PaAlteringType )
						  {
								case "Count":
									 ODcmd.CommandText = " SELECT " + " COUNT(*) AS NewCount " + " FROM " + PaName + " WHERE " + PaWhere;
									 OdbcCommand OdbccmdCount = new OdbcCommand( ODcmd.CommandText, PaConn );
									 PaODcmd = OdbccmdCount;
									 break;
								case "Select":
									 if ( a_PaSelectCol != "" && a_PaName != "" && a_PaWhere != "" && a_PaOrderedBy != "" )
									 {
										  ODcmd.CommandText = " SELECT " + PaSelectCol + " FROM " + PaName + " WHERE " + PaWhere + " ORDER BY " + PaOrderedBy;
										  OdbcCommand Odbccmd = new OdbcCommand( ODcmd.CommandText, PaConn );
										  PaODcmd = Odbccmd;
									 }
									 else if ( a_PaSelectCol != "" && a_PaName != "" && a_PaWhere != "" && a_PaOrderedBy == "" )
									 {
										  ODcmd.CommandText = " SELECT " + PaSelectCol + " FROM " + PaName + " WHERE " + PaWhere;
										  OdbcCommand Odbccmd = new OdbcCommand( ODcmd.CommandText, PaConn );
										  PaODcmd = Odbccmd;
									 }

									 else if ( a_PaSelectCol != "" && a_PaName != "" && a_PaWhere == "" && a_PaOrderedBy != "" )
									 {
										  ODcmd.CommandText = " SELECT " + PaSelectCol + " FROM " + PaName + " ORDER BY " + PaOrderedBy;
										  OdbcCommand Odbccmd = new OdbcCommand( ODcmd.CommandText, PaConn );
										  PaODcmd = Odbccmd;
									 }

									 else if ( a_PaSelectCol != "" && a_PaName != "" && a_PaWhere == "" && a_PaOrderedBy == "" )
									 {
										  ODcmd.CommandText = " SELECT " + PaSelectCol + " FROM " + PaName;
										  OdbcCommand Odbccmd = new OdbcCommand( ODcmd.CommandText, PaConn );
										  PaODcmd = Odbccmd;
									 }
									 //open SQL		
									 break;
							/*	case "DeleteRow":
									 cmd.CommandText = "DELETE FROM  " + PaName + "  " + " WHERE " + PaWhere;
									 cmd.ExecuteNonQuery();
									 //  if (a_taTableConnectionClosed != "No") //"Yes") 
									 oConn.Close();
									 break;
								case "Insert":
									 cmd.CommandText = "INSERT  INTO " + PaName + "  " + PaSelectCol + "  VALUES  " + PaSelectColValues;
									 cmd.ExecuteNonQuery();
									 //  if ( a_taTableConnectionClosed != "No" ) //"Yes") 
									 oConn.Close();
									 break;
								case "UpDate":
									 cmd.CommandText = " UPDATE " + PaName + " SET " + PaSelectCol + " WHERE " + PaWhere;
									 cmd.ExecuteNonQuery();
									 //  if ( a_taTableConnectionClosed != "No" ) //"Yes") 
									 oConn.Close();
									 break;
									 */
						  }
						  //oConn.Close();
					 }
					 catch ( Exception ex )
					 {
						  MessageBox.Show( "Paradox Database error has occurred: " + ex.ToString() );
					 }
				}
				else
				{
					 MessageBox.Show( "Paradox Database Connection String is Blank/n/n" + ODCon.ToString(), "Database Connection String is Blank" );
				}
				return iRet;
		  }
	 }