Hi, Can anyone share your ideas about drawing a cirlce in a page and add some text inside that using HTML? Thanks, Sivakumar.M.

Hi, I am inserting records into ms access using vb.net. insert into data(F01,F02)values(" & F01(k) & "," & IIf(Double.IsNaN(F01TA(k)), DBNull.Value, F01TA(k)) & ")" Showing syntax error in the insert statement. the output query is like below insert into Data(F01,F02)values(221,); Please share your ideas... Thanks, Sivakumar.M.

Hi, Now i am doing a project that should open and calculate the open,save and publish time taken for a project from our Microsoft project office using vb script. For calculating the exact time taken for the above mentioned task, I want to get the message displayed like "Save completed successfully" or "Publish the job is saved successfully" from the status bar of the Microsoft project office. Can anyone share your ideas about how to get the text displayed in status bar of MS project office using VB Scripting? Thanks, Sivakumar.M.

modified on Thursday, September 24, 2009 6:02 PM

Hi, I have created the table structure and added the composite primary keys to the ms-access table using VB.NET. while the control crosses the line "ADOXtable.Columns("CHARX_VALUE_COL").Properties("Nullable").Value = False", an error message raised as "Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done." ADOXtable = New ADOX.Table ADOXtable.Name = "ACN_CHARX_INSTANCE" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128) 'append tables to database cat.Tables.Append(ADOXtable) key1.Name = "PrimaryKey" key1.Type = ADOX.KeyTypeEnum.adKeyPrimary key1.Columns.Append("LOGICAL_DB_NAME") key1.Columns.Append("DIM_NAME") key1.Columns.Append("CHARX_NAME") key1.Columns.Append("CHARX_TABLE") ADOXtable.Keys.Append(key1) ADOXtable.Columns("CHARX_VALUE_COL").Properties("Nullable").Value = False ADOXtable.Columns("VALUES_UNIQUE").Properties("Nullable").Value = True ADOXtable.Columns("CHARX_ORDER_COL").Properties("Nullable").Value = True ADOXtable.Columns("CHARX_ORDER").Properties("Nullable").Value = True ADOXtable.Columns("CHARX_NUMERIC_COL").Properties("Nullable").Value = True ADOXtable.Columns("BITMAP_COL").Properties("Nullable").Value = True Please provide your valuable comments. Thanks, Sivakumar.M.

Superb.....It is working fine now...Thanks a lot...

Thanks for your reply...if i give like below as u advised, ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "LOGICAL_DB_NAME") ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "DIM_NAME") ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "CHARX_NAME") ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "CHARX_TABLE") Exception raised... {"Exception from HRESULT: 0x80040E99"} Data: {System.Collections.ListDictionaryInternal} ErrorCode: -2147217767 HelpLink: Nothing InnerException: Nothing Message: "Exception from HRESULT: 0x80040E99" Source: "Interop.ADOX" StackTrace: " at ADOX.Keys.Append(Object Item, KeyTypeEnum Type, Object Column, String RelatedTable, String RelatedColumn) at IWSSample.IWSSample.CreateAccessDatabaseandtables(String DatabaseFullPath) in C:\LEGO\June19\IWSSample.vb:line 1021" TargetSite: {System.Reflection.RuntimeMethodInfo} Thanks, Sivakumar.M.

Hi, I have created a table in ms-access using VB.NET like below. ADOXtable.Name = "ACN_CHARX_INSTANCE" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128) cat.Tables.Append(ADOXtable) After that i gave a primary key like below, ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "LOGICAL_DB_NAME") But now i want to add composite key for this table..I added the code like the below.. ADOXtable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "LOGICAL_DB_NAME", "DIM_NAME", "CHARX_NAME") But after executing this code, the key is allocated for Logical_Db_name field only. Please share your ideas about how to create composite key using VB.NET... Thanks, Sivakumar.M.

Hi, How many primary key constraints can we have in a table of ms-access? Any other constraints available in ms-access other than primary key? Please share your ideas... Thanks, Sivakumar.M.

Hi, I have developed a code to create a ms-access table through VB.NET as mentioned below. ADOXtable = New ADOX.Table ADOXtable.Name = "ACN_CHARX_INSTANCE" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128) cat.Tables.Append(ADOXtable) Now i want to set primary key constraints for this table through coding. Please share your ideas... Thanks, Sivakumar.M.

Hi, I have developed a code to create a ms-access table through VB.NET as mentioned below. ADOXtable = New ADOX.Table ADOXtable.Name = "ACN_CHARX_INSTANCE" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128) cat.Tables.Append(ADOXtable) Now i want to set primary key constraints for this table through coding. Please share your ideas... Thanks, Sivakumar.M.

Hi, How many primary key constraints can we have in a table of ms-access? Any other constraints available in ms-access other than primary key? Please share your ideas... Thanks, Sivakumar.M.

Thanks for your nice solution....Now it is working fine....In addition with this, could you please mention how to add constraints with table columns through coding?

No...Actually the first table "ACN_CHARX" is created successfully... when it crosses the line "ADOXtable.Name = "ACN_CHARX_INSTANCE" ", the first created table name is automatically renamed.. ie)from "ACN_CHARX" into "ACN_CHARX_INSTANCE". Then the control tried to create the first column of the second table "Logical_db_name"...Then it shows this error....

Hi, While trying to create a group of tables in msaccess using VB.NET ADOX, i am facing the error "System.Runtime.InteropServices.COMException...at ADOX.columns.Append(Object item, DatatypeEnum Type, Int32 DefinedSize)". The coding is given below.. Public Function CreateAccessDatabaseandtables( _ ByVal DatabaseFullPath As String) As Boolean Dim bAns As Boolean Dim con As New ADODB.Connection Dim cat As New ADOX.Catalog() Dim ADOXtable As New ADOX.Table Dim ADOXindex As New ADOX.Index Try Dim sCreateString As String sCreateString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ DatabaseFullPath cat.Create(sCreateString) bAns = True 'cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath) 'name table, append fields to table ADOXtable.Name = "ACN_CHARX" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_SEQ", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_TYPE", ADOX.DataTypeEnum.adVarWChar, 1) ADOXtable.Columns.Append("BITMAP", ADOX.DataTypeEnum.adInteger) 'append tables to database cat.Tables.Append(ADOXtable) ADOXtable.Name = "ACN_CHARX_INSTANCE" ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32) ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger) ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128) ADOXtabl

As you advised, I have collected some more details about this inf*act db which are given below. Nielsen Inf*Act db is a SQL db compatible with relational Star schema Data model. It is client's own dbms. We are receiving the inf*act db datasource from the client in a folder(the folder should be in country code) and this folder contain the files with the formats of .hed,.chr,.idx,.inf and .tad(5 files for each DB). If the datasource dump has 50 db means, the datasource folder will contain (50dbs*5files for each db) 250 files. We are adding each database through our tool by browsing the file in the format of (.hed ) from this datasource folder. One important thing is, if we delete any one of the file among those 5 files(.hed,.chr,.idx,.inf and .tad) for a db, the database will not get added in our report template tool. As i discussed here, the data is available in <b>.inf</b> file. First i have to extract the data from this file. Then only i can import them into ms-access. So, <b>i want the code in vb.net, that how to extract the data from this file and import them in ms-access.</b> I think this will help you a lot :) Thanks, Sivakumar.M

As you advised, I have collected some more details about this inf*act db which are given below. Nielsen Inf*Act db is a SQL db compatible with relational Star schema Data model. It is client's own dbms. We are receiving the inf*act db datasource from the client in a folder(the folder should be in country code) and this folder contain the files with the formats of .hed,.chr,.idx,.inf and .tad(5 files for each DB). If the datasource dump has 50 db means, the datasource folder will contain (50dbs*5files for each db) 250 files. We are adding each database through our tool by browsing the file in the format of (.hed ) from this datasource folder. One important thing is, if we delete any one of the file among those 5 files(.hed,.chr,.idx,.inf and .tad) for a db, the database will not get added in our report template tool. As i discussed here, the data is available in <b>.inf</b> file. First i have to extract the data from this file. Then only i can import them into ms-access. So, <b>i want the code in vb.net, that how to extract the data from this file and import them in ms-access.</b> I think this will help you a lot :) Thanks, Sivakumar.M

As you advised, I have collected some more details about this inf*act db which are given below. Nielsen Inf*Act db is a SQL db compatible with relational Star schema Data model. We are receiving the inf*act db datasource from the client in a folder(the folder should be in country code) and this folder contain the files with the formats of .hed,.chr,.idx,.inf and .tad(5 files for each DB). If the datasource dump has 50 db means, the datasource folder will contain (50dbs*5files for each db) 250 files. We are adding each database through our tool by browsing the file in the format of (.hed ) from this datasource folder. One important thing is, if we delete any one of the file among those 5 files(.hed,.chr,.idx,.inf and .tad) for a db, the database will not get added in our report template tool. As i discussed here, the data is available in <b>.inf</b> file. First i have to extract the data from this file. Then only i can import them into ms-access. So, <b>i want the code in vb.net, that how to extract the data from this file and import them in ms-access.</b> I think this will help you a lot :) Thanks, Sivakumar.M

As you advised, I have collected some more details about this inf*act db which are given below. Nielsen Inf*Act db is a SQL db compatible with relational Star schema Data model. We are receiving the inf*act db datasource from the client in a folder(the folder should be in country code) and this folder contain the files with the formats of .hed,.chr,.idx,.inf and .tad(5 files for each DB). If the datasource dump has 50 db means, the datasource folder will contain (50dbs*5files for each db) 250 files. We are adding each database through our tool by browsing the file in the format of (.hed ) from this datasource folder. One important thing is, if we delete any one of the file among those 5 files(.hed,.chr,.idx,.inf and .tad) for a db, the database will not get added in our report template tool. As i discussed here, the data is available in .inf file. First i have to extract the data from this file. Then only i can import them into ms-access. So, i want the code in vb.net, that how to extract the data from this file and import them in ms-access. I think this will help you a lot :) Thanks, Sivakumar.M

No, as i am a beginner of VB.NET, i don't have any idea to find this.

As i mentioned, it is client's own DBMS (DBMS is INF*ACT DB). It is not derived from any other dbms like mainframe, sqlserver and oracle. Just now i got this details from my colleagues. All this database informations are available inside of these five file format's only. .hed, .chr, .tad, .inf and .idx If you want, i will send the sample files to you.. But i don't know how to attach the files with this forum. Thanks, Sivakumar.M.