Visual Basic

23-Mar-04 11:23

simple question, im sure its around here somewhere, just couldnt see it.
if someone could send a link to it, if nothing else, that would be great.

just wondering how to program my application so that it can load a file into the program once the file type is opened. say, a notepad program opening .txt files, or winamp opening .mp3s. how do you do this?

edit: i know how to open and read files etc etc, i dont need help there.. im just wondering how i can load the file automatically if it is opened with the program, or where i put the code to do this.

Thanks alot, advanced.

------------------------
Jordan.
III

Dave Kreskowiak23-Mar-04 14:20

23-Mar-04 14:20

First, you app must support command line arguments. You'll have to pick out an open command and the filename to open. Notepad is launched by a command line that looks like this:

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

Second, check out how .TXT files are associated to Notepad. Open an Explorer window and go to Tools\Folder Options. Click on the File Types tab and scroll down to TXT. Click on it to select it, then click on Advanced. Edit the Open command and you'll see what I'm talking about as far as command lines.

RageInTheMachine9532

Nadroj23-Mar-04 14:24

23-Mar-04 14:24

hmm.. alrighty
thanks alot. ill check it out shortly. ill try and let you know how it goes.

------------------------
Jordan.
III

Nadroj26-Mar-04 18:44

26-Mar-04 18:44

hopefully ull b auto-emailed about this reply
iv been looking in2 it and cant seem to find any help for vb.net. i found quite a few sites for vb6 code, it looks like. ive tried it and it doesnt recognize the "Command" variable, or whatever it would be called.

Private Sub Form_Load()
If Command$ <> "" Then
MsgBox "Application started by double clicking" & vbCr & Command$
End If
End Sub

i got this from here[^]. i searched vb.net's help index, and tried the ex. given with the "Command" thing. cant seem to get it.

also, it seems most apps use the command "%1" when opening files that are associated with the app..

any more help? ...appreciated

Thanks

------------------------
Jordan.
III

Dave Kreskowiak27-Mar-04 3:52

27-Mar-04 3:52

It's not Command$ -- that's old VB6 stuff.

Look into the Environment class. You'll use either Environment.CommandLine or Environment.GetCommandLineArgs(). Docs are here[^].

The '%1' is a replacable parameter. Remember DOS batch files? When that command line is executed, the %1 is replaced with the filename (complete path) you double-clicked on. If you double-click on, say, TestFile.txt, Explorer will convert this:

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

to this and execute it:

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

RageInTheMachine9532

Nadroj27-Mar-04 20:29

27-Mar-04 20:29

ok sorry for the nagging, etc.. heh

Thank you lots, ill read the lib info.

Again, thx.

------------------------
Jordan.
III

Dave Kreskowiak28-Mar-04 4:54

28-Mar-04 4:54

:-DNo problem!

RageInTheMachine9532

Nadroj28-Mar-04 12:43

28-Mar-04 12:43

ok i think iv got it.. at least up to my requirements.
by simply using folder options/file types and manually associating the file type with the app, and adding %1, or %[any number] to the parameter list, i can work with it.
i simply assign a value to System.Environment.CommandLine() and it returns the app path, and the file path which was opened with it. i was thinking way to complex. my next step is to determine how to auto. associate the file types with the app, editing the registry from the app.
Thanks.

------------------------
Jordan.
III

_crtisvalidheappointer

BlackDice23-Mar-04 7:07

23-Mar-04 7:07

I wrote a dll in C++ that I'm now calling from a vb app. everything works fine as far as the function is concerned, but after I terminate the VB app I get a _crtisvalidheappointer assertion.

If it's broken, I probably did it

bdiamond

Dave Kreskowiak23-Mar-04 7:19

23-Mar-04 7:19

bdiamond wrote:
I wrote a dll in C++ that I'm now calling from a vb app.

If it's broken, I probably did it

It's broken, and yes, you did it.

The first place I'd look is the C++ .dll for resources not be cleared up before the .dll is unloaded. Also, I'd double check the types I've used calling the .dll and check to make sure the call types match. It might be that there is something being pushed onto the stack in the .dll and no being popped off. Could be tht your allocating memory in the .dll and no using the MATCHED free function to free that block of memory...

...could be a large range of things... Code samples would probably help.

RageInTheMachine9532

BlackDice23-Mar-04 7:27

23-Mar-04 7:27

well, here's the entire function. I appreciate any help you can provide me with. thanks in advance!!

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;
	}

If it's broken, I probably did it

bdiamond

Dave Kreskowiak23-Mar-04 9:01

23-Mar-04 9:01

Well, I've never used MySQL before, but since it pretty much follows MSSQL this shouldn't be a problem.

Something I've noticed with pDB is never told to Close. I'm assuming there is one considering there is an OpenEx(). And mysql_real_connect returned a dbhandle. I'm assuming there must be a function to close that handle and release the resources that it represents.

RageInTheMachine9532

BlackDice23-Mar-04 9:18

23-Mar-04 9:18

I edited my code to include a dbHandle->free_me and a pDB->Close(), but I still get the same thing.

If it's broken, I probably did it

bdiamond

Dave Kreskowiak23-Mar-04 9:28

23-Mar-04 9:28

Are you using a Release compiled .DLL and a Debug compiled .EXE? Try compiling the thing entirely Debug or entirely Release and see what happens.

RageInTheMachine9532

BlackDice23-Mar-04 9:30

23-Mar-04 9:30

the dll is a release compile, and .exe is made in VB

If it's broken, I probably did it

bdiamond

Dave Kreskowiak23-Mar-04 11:35

Excel VBA - Multi column search and compare, with Refresh

23-Mar-04 11:35

I've been doing a bunch of reading on the mySQL package. What version are you using? There seems to be a bug in some fairly recent releases that can cause this problem. I've also run into examples where when you first create the mySQL object, a default connection is created. You might want to try dropping/closing this connection first before your try to create a new one with your existing code.

RageInTheMachine9532

luxcs23-Mar-04 3:48

luxcs

23-Mar-04 3:48

Hi
Hopefully someone can help me with this problem.

I have a 3 page workbook (report,data1,data2).
data1 and data2 are loaded as External Data from 2 csv files and are updated at 10 minute intervals. Both sheets have the same layout -:
Col A = date (i.e. 12-DEC-04) (as string)
Col B = reference (i.e. ABC1234) (as string)
Col C = value1 (as integer)
Col D = value2 (as integer)
Col E = value3 (as integer)

The report page has 3 columns.
Col A = date (as Date)
Col B = reference (as string)
Cols C - F = various values
Col G = valtotal (as integer)

I've written a function that takes in 4 parameters (ref,date,page,reqcol).
"page" sets which of the sheets is used for the info (data1 or data2).
"Reqcol" sets which column from the data sheet is reqd.

(e.g. Cell G4 on the report might be =vallookup(G1,A1,"data2","E"))

This has to loop over the data checking all references, and if it finds a match then check the date. If both match, it returns the value in column (reqcol).

The data size is not known until the data is refreshed (cell A1 contains the number of rows).
A variable, 'lastrow', is used as the number of rows and a number of loops is performed.

The function appears to work sometimes, but other times won't work - on the same data!
Also, I need to have an easy way to refresh the values returned by the funcion on the report page without having to hit 'Enter' on each cell.

Here is the function as it stands......

Public Function vallookup(ref As String, dateref As Date, page As String, reqcol As String)<br />
    'Activate correct page sheet<br />
    Worksheets(page).Activate<br />
    'Get size of dataset<br />
    lastrow = Worksheets(page).Cells(2, "A").Value<br />
    'Loop data<br />
    For a = 1 To lastrow<br />
        If (UCase(ref) = UCase(Worksheets(page).Cells(a, "B").Value)) Then<br />
            If (dateref = DateValue(Worksheets(page).Cells(a, "A").Value)) Then<br />
                vallookup = Worksheets(page).Cells(a, reqcol).Value<br />
            End If<br />
        End If<br />
    Next a<br />
End Function<br />
<br />
<br />
Sub Refresh()<br />
    'Attempt at a Refresh function<br />
        Worksheets("report").Calculate<br />
End Sub

Request (Reference to) other page

Aizupis23-Mar-04 3:38

Aizupis

23-Mar-04 3:38

I just started using WebMatrix and ASP.NET, and I have one problem - I like to know, how I can do it:

Situation - I have one page "Licence agreement" with Agree and Disagree; when user click Agree, then must open Registration form (I made it in that way: Response.Redirect("Reg.aspx")). So far is OK! But I need, that the form Reg.aspx opens only when in Licence form users click Agree - shortly - it (Reg) should no opens, when users write in adress bar http://www.xxxxx.com/Reg.aspx...

Sorry for my english, but I hope that U understood my problem. I use VB.NET

Re: Request (Reference to) other page

Dave Kreskowiak23-Mar-04 4:20

Re: Request (Reference to) other page

23-Mar-04 4:20

Why not have them on the same page and skip the Agree/Disagree buttons. Put into your License Agreement that submitting a registration automatically agrees with license?

But, you could drop a small flag into the Session object, in the Agree button click event, that is read by the Reg.aspx Page_Load event. In there, if the flag is not set, redirect them back to the License page.

In your License page AgreeButton_Click handler:

Session("License") = "Accepted"

And in your Registration Page_Load event handler:

If Session("License") <> "Accepted" Then
    Response.Redirect("...URL to License Page...")
End If

RageInTheMachine9532

Michael Flanakin23-Mar-04 12:22

Michael Flanakin

23-Mar-04 12:22

I don't think using a session variable would be the best solution. I would do one of two things:

(1) Check the page the user came from

If Request.ServerVariables("http_referer") <> "LicensePage.aspx" Then
    ' send user to another page or show an error
End If

Or...

(2) Show/Hide panels upon agree/disagree

Within your ASPX page:

<asp:Panel id="LicensePanel" runat="server">
    ...
    <asp:Button id="AgreeButton" Text="Agree" runat="server" />
    <asp:Button id="DisagreeButton" Text="Disagree" runat="server" />
</asp:Panel">
 
<asp:Panel id="AgreePanel" Visible="false" runat="server">
    You agreed! :)
</asp:Panel">
 
<asp:Panel id="DisagreePanel" Visible="false" runat="server">
    You disagreed! :(
</asp:Panel">

And, within your AgreeButton_Click:

LicensePanel.Visible = False
AgreePanel.Visible = True

And, finally, within your DisagreeButton_Click:

LicensePanel.Visible = False
DisagreePanel.Visible = True

Now, personally, I'd prefer the second option over the first, but that kind of depends on how much functionality you want on the page. I'll leave that up to you.

Hope this helps!

Michael Flanakin
Web Log

Re: Request (Reference to) other page

Dave Kreskowiak23-Mar-04 14:14