how to verify a table if exist in access database in delphi script

Question

hi all,in my testing project. i need a function to verify the special table if created in access database, and i use the following script to verify it, but the result always is false. so i want to know there is any issue in my script?-----------------------------------------------function ValidateSpecialTable(aStrDBPath,aStrTableName): boolean;var&nbsp;&nbsp;&nbsp; ADOReSchema,ADOCnn;begin&nbsp;&nbsp;&nbsp; ADOCnn: = Sys.OleObject('ADODB.Connection');&nbsp;&nbsp;&nbsp; ADOCnn.ConnectionString: = 'Provider=Microsoft.ACE.OLEDB.12.0;' +'Data Source=' + aStrDBPath;&nbsp;&nbsp;&nbsp; ADOCnn.Open();&nbsp;&nbsp;&nbsp; ADOReSchema: = ADOCnn.OpenSchema(20);&nbsp;&nbsp;&nbsp; ADOReSchema.MoveFirst;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; repeat&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if &nbsp;((ADOReSchema[('TABLE_TYPE')]) = 'TABLE' ) and ((ADOReSchema[('TABLE_NAME')]) = aStrTableName) then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; result: = true;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; result: =false;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ADOReSchema.MoveNext;&nbsp;&nbsp;&nbsp; until ADOReSchema.Eof&nbsp;&nbsp;&nbsp; end;

dmitry_nikolaev · Answer

Hi,Try using the following script based on the example:function ValidateSpecialTable(aStrDBPath,aStrTableName): boolean;var ConnStr,adoxConn,adodbConn,found,i;begin&nbsp; ConnStr := 'Provider=Microsoft.ACE.OLEDB.12.0;' +'Data Source=' + aStrDBPath;&nbsp;&nbsp; adoxConn := Sys.OleObject('ADOX.Catalog'); &nbsp;&nbsp; adodbConn := Sys.OleObject('ADODB.Connection'); &nbsp;&nbsp; adodbConn.Open(ConnStr); &nbsp;&nbsp; adoxConn.activeConnection := adodbConn; &nbsp;&nbsp; found := false;&nbsp;&nbsp; for i:=0 to adoxConn.tables.Count - 1 do&nbsp;&nbsp; &nbsp; if aqString.ToLower(adoxConn.tables.item(i).name) = aqString.ToLower(aStrTableName) then begin&nbsp;&nbsp; &nbsp; &nbsp; found := true;&nbsp;&nbsp; &nbsp; &nbsp; break;&nbsp; &nbsp; end;&nbsp;&nbsp; adodbConn.close;&nbsp; adodbConn := nil; &nbsp;&nbsp; adoxConn := nil; &nbsp;&nbsp; result := found;end;

Forum Discussion

how to verify a table if exist in access database in delphi script

1 Reply

Related Content

Database Checkpoint For MS Access 2016 Database

how to verify json response with Database SQL Server

Unable to access (Verify/Execute) a VM for parallel testing

Can anyone help me how to access Mongo database?

Regex to verify a string

Recent Discussions

Floating window bleep overlapping window takes longer time (~10 min) to click the button on it.

Test case randomly fails with "parent object was not found"

Does TC have a .within() method similar to Cypress.io?

SessionCreator /Timeout option not firing EventControl_OnTimeout

testcomplete feature Intelligent Quality Add Ons