Tutorial VC++ 6.0 und Oracle

[LordTerra]

ah fehler gefunden ...

pRecordset->Open ((IDispatch pCommand, vtMissing, adOpenStatic,
adLockBatchOptimistic, adCmdUnknown);

^^ hatte ich vergessen ... hatte das im readonly modus geöffnet

[LordTerra]

ok soweit sogut ...
eine frage hätte ich dann noch ... in dem ado test beispiel ist leider keine variante beschrieben wie man nun auch datensätze aus so nem record löschen kann ... habt ihr da noch nen beispiel parat oder kann mir wer sagen wie das geht ?

[LordTerra]

moin ich nochmal

also ich hab derzeit arge probleme datensätze zu inserten ...
das geht irgendwie nicht ...
also ich hab derzeit nicht so richtig nen plan wie ich per ado nen insert oder nen delete machen kann ... brauche dazu bitte ne erklärung oder ne website ...

[Cpp_Junky]

Entweder als SQL Statement per Execute Funktion über das Connection Objekt oder per Recordset Objekt mit AddNew bzw Delete

[LordTerra]

ich hab mich mal an nem insert versucht ...
fehlermeldunge konnen net aber er führt auch nix aus ...

aufruf:
if(DBConnectNow()){
    DBInsertNow("INSERT INTO test (id, name) VALUES (55, 'testinsert');");
    DBCloseNow();
}

DBConnectNow():
BOOL CACS400App::DBConnectNow(){
	CoInitialize (NULL);

	// Stablishing a connection to the datasource
	try	{
		HRESULT hr = m_pConn.CreateInstance (__uuidof (Connection));

		if (FAILED (hr)){
			AfxMessageBox ("Can't create intance of Connection");
			return FALSE;
		}

		if (FAILED (m_pConn->Open (_bstr_t ("Provider=MSDAORA.1;Password=pw;User ID=system;Data Source=PROD.WORLD;Persist Security Info=True"),
					_bstr_t (""), _bstr_t (""), adModeUnknown))){
			AfxMessageBox ("Can't open datasource");
			return FALSE;
		}
	}catch ( _com_error &e ){
		_bstr_t bstrSource (e.Source());
		_bstr_t bstrDescription (e.Description());
		TRACE ( "Exception thrown for classes generated by #import" );
		TRACE ( "\tCode = %08lx\n", e.Error ());
		TRACE ( "\tCode meaning = %s\n", e.ErrorMessage ());
		TRACE ( "\tSource = %s\n", (LPCTSTR) bstrSource);
		TRACE ( "\tDescription = %s\n", (LPCTSTR) bstrDescription);

		AfxMessageBox ((LPCTSTR) bstrDescription);
		return FALSE;
	}catch (...){
		TRACE ( "*** Unhandled Exception ***" );
		return FALSE;
	}

	return TRUE;		
}

DBInsertNow():
BOOL CACS400App::DBInsertNow(CString aktion){
	try	{
		_CommandPtr pCommand;

		HRESULT hr = pCommand.CreateInstance (__uuidof (Command));

		if (FAILED (hr)){
			AfxMessageBox ("Can't create an instance of Command");
			return FALSE;
		}
		// Pointer to ADO data connection //
		m_pConn->Execute((_bstr_t) aktion, NULL, adExecuteNoRecords);
	} 
	catch( _com_error &e )	{
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		TRACE( "Exception thrown for classes generated by #import" );
		TRACE( "\tCode = %08lx\n", e.Error());
		TRACE( "\tCode meaning = %s\n", e.ErrorMessage());
		TRACE( "\tSource = %s\n", (LPCTSTR) bstrSource);
		TRACE( "\tDescription = %s\n", (LPCTSTR) bstrDescription);
		return FALSE;		
	}catch (...){
		TRACE ( "*** Unhandled Exception ***" );
		return FALSE;		
	}
	return TRUE;		
}

DBCloseNow():
void CACS400App::DBCloseNow(){
	if ( (m_pConn->State & adStateOpen) == adStateOpen)
		m_pConn->Close();

	CoUninitialize();
}

*edit*: ok es scheint so als ob der insert eigentlich geht, aber irgendwie bekommt mein programm von der db die fehlermeldung: ORA-00911: invalid character
nur frag ich mich wieso das so ist ... hat jemand ne idee ?

mfg LT

[witte]

- Du könntest mal mit dem Debugger durchgehen.
- Du könntest den Netzwerkverkehr zum Datenbankserver mit Wireshark mitschneiden und schauen, ob der das Statement überhaupt absetzt.

[LordTerra]

wie ich geschrieben hab: der setzt den ab aber ich bekomm ne fehlermeldung: ora-00911... und das versteh ich nicht ...
ich hab in meiner tabelle genau 2 felder:
feld id mit integer als typ
feld name mit vchar2 als typ

wieso bekomm ich da invalid character zurück wenn ich 55 und 'testinsert' reinschreiben will?

[LordTerra]

und gleich noch ne frage:

mir ist aufgefallen das wenn ich folgenden connectionstring benutze meine updatefunktion nicht funktioniert ...
wieso ist das so ???

Mit diesem open funktioniert die Update Funktion:

if (FAILED (m_pConn->Open (_bstr_t ("Provider=MSDASQL.1;Persist Security Info=False;User ID=system;Data Source=ArgusDB"),

Mit diesem open funktioniert die Update Funktion nicht:

if (FAILED (m_pConn->Open (_bstr_t ("Provider=MSDAORA.1;Persist Security Info=False;User ID=system;Password=pw;Data Source=PROD.WORLD"),

DBUpdateNow():

BOOL CACS400App::DBUpdateNow(CString tabelle, CString feld, CString wert, CString bedingung){
	_RecordsetPtr pRecordset;
	try	{
		_CommandPtr pCommand;
		HRESULT hr = pCommand.CreateInstance (__uuidof (Command));

		if (FAILED (hr)){
			AfxMessageBox ("Can't create an instance of Command");
			return FALSE;		
		}
		pCommand->ActiveConnection = m_pConn;
		CString strQuery="select * from "+tabelle+" where "+bedingung;
		pCommand->CommandText = (_bstr_t)strQuery;

		hr = pRecordset.CreateInstance (__uuidof (Recordset));

		if (FAILED (hr)){
			AfxMessageBox ("Can't create an instance of Recordset");
			return FALSE;		
		}
		pRecordset->CursorLocation = adUseClient;
		pRecordset->Open((IDispatch *) pCommand, vtMissing, adOpenStatic, adLockBatchOptimistic, adCmdUnknown);

		while (!pRecordset->GetadoEOF ()){
			pRecordset->Fields->GetItem((_variant_t)feld)->Value = (_bstr_t) wert;
			pRecordset->UpdateBatch(adAffectAll);
			pRecordset->MoveNext();
		}

		pRecordset->Close ();
	} 
	catch( _com_error &e )	{
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		TRACE( "Exception thrown for classes generated by #import" );
		TRACE( "\tCode = %08lx\n", e.Error());
		TRACE( "\tCode meaning = %s\n", e.ErrorMessage());
		TRACE( "\tSource = %s\n", (LPCTSTR) bstrSource);
		TRACE( "\tDescription = %s\n", (LPCTSTR) bstrDescription);

		AfxMessageBox ((LPCTSTR) bstrDescription);

		return FALSE;		
	}catch (...){
		TRACE ( "*** Unhandled Exception ***" );
		return FALSE;		
	}
	return TRUE;		
}

[Cpp_Junky]

Ist die zweite Datenquelle read only?
Kleiner Trick um einen ordentlichen Connection String zu bekommen:

Erstell im Explorer eine Datei mit der Endung ".udl"
Doppelklick drauf, alles wie gewünscht einstellen und dann speichern. Anschliessend öffnest du die Datei mit dem Editor und nimmst den darin fertigformatierten Connection String

[LordTerra]

hmmm also die datenquelle : prod.world wird über ne tsnames.ora deklariert und sieht so aus:

PROD.WORLD =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = hostservername.local)(PORT = 1521))
)
(CONNECT_DATA = (SID = argus)(SERVER = DEDICATED))
)

wenn ich ne udl erzeuge mit der datenquelle ArgusDB kommt der 1. string raus ... aber ich dachte es sei besser das ohne diesen dsn ArgusDB zu machen oder?

und bitte noch hilfe zu insert und delete benötigt

[Cpp_Junky]

while (!pRecordset->GetadoEOF ()){ 
            pRecordset->Fields->GetItem((_variant_t)feld)->Value = (_bstr_t) wert; 
            pRecordset->UpdateBatch(adAffectAll); 
            pRecordset->MoveNext(); 
        }

Wieso eigentlich UpdateBatch, wenn du alle Datensätze einzeln durchgehst? Nimm mal die normale Update Funktion.

(edit)
Wegen dem Connection-String war mein Hintergedanke nur, das deine Datenquelle vielleicht ReadOnly eingestellt war. Hast du das mal geprüft?

[LordTerra]

du sag mal gibt es irgendwo ne beschreibung zu der ado klasse ?
weil dummerweise bekomm ich keine auto-vervollständigt in mein visual c++
ich weis leider nicht welche funktionen die klasse eigentlich bietet ... und das updateBatch hab ich auch von der webseite die du mir vor 2 seiten mal gepostet hast ...

ähm also das open beim insert mach ich direkt auf die connection ...
also ich create ne instanz und führe dann direkt auf die connection nen exceute aus... also da is gar kein open bei .... also kein direktes ... ich offne nur die verbindung ...

also was ich meine: bei meinem update offne ich ja ein recordset und dieses öffne ich mit dem modus: pRecordset->Open((IDispatch pCommand, vtMissing, adOpenStatic, adLockBatchOptimistic, adCmdUnknown);

und wenn ich das richtig seh ist das ja so das diese zeile die db im "schreibmodus" öffnet ...

das passiert ja aber beim insert gar nicht ...
also da führe ich einfach nen execute aus...

kannst du mir sagen wie ich die verbindung nun anders öffnen soll und da nun den update ausführen kann ???

(edit)
ahja wenn ich nur:

pRecordset->Update();

schreib, passiert gar nix ...

ich habs jetzt mit

pRecordset->UpdateBatch(adAffectCurrent);

gemacht das geht auch ...

aber den insert bekomm ich immer noch nicht hin ... irgendwie stell ich mich zu doof an ... aber so ohne beschreibung is das halt auch etwas schwer...
also pls ... ich brauch noch 2 funktionen dann geh ich euch net mehr auf den wecker
ich muss noch was inserten können und was deleten können mehr brauch ich net ... (erstmal ) pls ich brauch quellcode um mir das anzugucken

(edit2)
ok insert geht jetzt doch ...
hmmm irgendwie seltsam das das gestern net geklappt hat aber ok

also bleibt noch das delete...
na ma gucken ob ich das hin bekomm ...

ne docu zu der ado klasse wäre trotzdem nett also wenn da wer was kennt pls posten ...

[Cpp_Junky]

Die Update() Funktion erfordert wahrscheinlich adLockOptimistic anstatt adLockBatchOptimistic

[LordTerra]

Cpp_Junky schrieb:

Die Update() Funktion erfordert wahrscheinlich adLockOptimistic anstatt adLockBatchOptimistic

jo stimmt ... ok thx

[LordTerra]

moin

so ich hab ma wieder ne frage:

ich hab ja nun so einiges mit meinen db-funktionen gemacht

z.b. hab ich für den connect und den delete unterschiedliche funktionen...

in dem connect öffne ich nur die db-connection und in der delete funktion führe ich nur noch den delete befehl aus ...

hier entsteht aber ein problem:
da ich nicht jedes mal nen connect mache muss ich in der delete wissen ob die connection noch besteht...

also nen isopen befehl oder so ...
leider geht das ja nur auf recordsets

also wie bekomm ich raus ob die connection offen ist?

codes:

BOOL CACS400App::DBConnectNow(){
	CoInitialize (NULL);

	// Stablishing a connection to the datasource
	try	{
		HRESULT hr = m_pConn.CreateInstance (__uuidof (Connection));

		if (FAILED (hr)){
			return FALSE;
		}

		if (FAILED (m_pConn->Open (_bstr_t ("Provider=MSDASQL.1;Persist Security Info=False;User ID=system;Data Source=ArgusDB"),
					_bstr_t (""), _bstr_t (""), adModeUnknown))){
			return FALSE;
		}
	}catch ( _com_error &e ){
		_bstr_t bstrSource (e.Source());
		_bstr_t bstrDescription (e.Description());
		TRACE ( "Exception thrown for classes generated by #import" );
		TRACE ( "\tCode = %08lx\n", e.Error ());
		TRACE ( "\tCode meaning = %s\n", e.ErrorMessage ());
		TRACE ( "\tSource = %s\n", (LPCTSTR) bstrSource);
		TRACE ( "\tDescription = %s\n", (LPCTSTR) bstrDescription);

		AfxMessageBox ((LPCTSTR) bstrDescription);
		return FALSE;
	}catch (...){
		TRACE ( "*** Unhandled Exception ***" );
		return FALSE;
	}
	return TRUE;		
}

BOOL CACS400App::DBDeleteNow(CString aktion){
	try	{

//ALSO HIER SOLL SO NE ABFRAGE REIN OB m_pConn OFFEN IST

		_bstr_t strSQL=(_bstr_t) aktion;
       //Execute the insert statement
		m_pConn->Execute(strSQL,NULL,adExecuteNoRecords);
	} 
	catch( _com_error &e )	{
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		TRACE( "Exception thrown for classes generated by #import" );
		TRACE( "\tCode = %08lx\n", e.Error());
		TRACE( "\tCode meaning = %s\n", e.ErrorMessage());
		TRACE( "\tSource = %s\n", (LPCTSTR) bstrSource);
		TRACE( "\tDescription = %s\n", (LPCTSTR) bstrDescription);

		CString ausg;
		ausg.Format("Insert: %s",(LPCTSTR) bstrDescription);
		AfxMessageBox (ausg);

		return FALSE;		
	}catch (...){
		TRACE ( "*** Unhandled Exception ***" );
		return FALSE;		
	}
	return TRUE;		
}

thx LT

[Cpp_Junky]

Die ist offen, wenn die Open-Funktion keinen Fehler zurückgegeben hat Setz dann doch eine Bool-Variable oder sowas.

[LordTerra]

hmmm klar is die da offen, aber was passiert wenn die netzwerkverbindung zusammen bricht ? naja egal ich hab mir ne kleine select anfrage gebaut die halt entweder nen true oder nen false zurück gibt ... daran seh ich dann ob die verbindung noch i.o. ist

[Cpp_Junky]

Das merkst du wohl erst, wenn die darauffolgende Funktion eine Exception auswirft. Ich glaube nicht, das das Connection-Objekt den Verbindungsabbruch irgendwie reflektiert.