|
VB.NET is what you're using, isn't it??
The concept is exactly the smae for any language.
|
|
|
|
|
No, i use VB..
Btw, can i ask again? How to delete record in DataGrid direct from DataGrid control when the program running,and it could effect to database, i use access database.. Thank you..
|
|
|
|
|
VB6?? If so, you'r using a dead language. One I haven't touched in over 10 years. So no, I can't tell you.
|
|
|
|
|
An idea:
Your program uses a COM component. The versions of that component differ on the computers, and between the versions the interface was broken.
But that's only an idea, due to the fact that you do not provide more information I cannot tell you more than this guess.
|
|
|
|
|
sorry, whats COM component?btw, i already write the code above..
thanks for your concern..
|
|
|
|
|
Hello,
For people out there who know and/or have Symantec, COMODO Antivirus, and some monitoring programs for school (for example: LanSchool or Netop Vision), when you go into task manager or other third-party utility or program you made of your own for process termination, if you select any of these programs, and try to terminate it, even with the process terminating utility running as admin , it gives you the message "Access denied!". I wonder how this is possible, I do have the Windows Service template for Visual Basic 2010 .NET, but I've been doing a lot of research on how this is possible, could there be a OnTerminate (Byval as ex, Byval ex) function or sub, if this is possible,I've heard of the O.S. Kernel drivers, could you make one? just wondering how these programs could do such a thing.....Any answers would be greatly appreciated 
Regards,
Brandon T. H.
CodeProject Member
|
|
|
|
|
It's a genuine bad idea[^]. If you "really must", Google for "unkillable service" - StackOverflow has an archive on the topic.
Bastard Programmer from Hell 
|
|
|
|
|
Not always true, COMODO has an exit function, user enters the password, prompts if the user really wanted to close the program, and it closes, automatically, then you could go to task manager and kill it's service from there without that "Access denied!" message. If COMODO was still running (it's program), then you would get that message.
|
|
|
|
|
I didn't say that it wasn't possible, only that it's a bad idea - and those keywords should be enough to find some interesting links. I'm not going to link to it directly, for the same reason that I don't like to key-loggers.
Bastard Programmer from Hell
|
|
|
|
|
Yeah there are some people out there who would LOVE, to integrate that into their pesky programs.
|
|
|
|
|
Brandon T. H. wrote: Not always true
Just because comodo does it doesn't make it a good idea.
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
Wes Aday wrote: Just because comodo does it doesn't make it a good idea.
True.
|
|
|
|
|
I'm using vb.net 2008 and ms access2007.
I create project connection with DB ms access saving by ms access2003
I want to create a code to show me the name of Table and Field in the DB
|
|
|
|
|
Mangore75 wrote: I want to create a code to show me the name of Table and Field in the DB
Which table? Any table[^]?
What have you tried so far?
Bastard Programmer from Hell
|
|
|
|
|
The Table in the DB(MyDB) which connection to my project :
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MyDB.mdb")
-Nothing
|
|
|
|
|
Which table? The database will have multiple tables, and I already posted the query that returns a list of all tables in that database.
What are you trying to achieve? Do you want to know which tables are in that database, or are you trying something else?
Bastard Programmer from Hell
|
|
|
|
|
I'm sorry I didn't know how to use this query in vb.net...
|
|
|
|
|
Are you having trouble with that specific query, or with queries in general in VB?
Bastard Programmer from Hell
|
|
|
|
|
Mangore75 wrote: I want to create a code to show me the name of Table and Field in the DB
You go right ahead and do that. Let us know how it goes.
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
I tried this way but nothing happen:
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MyDB.mdb")
conn.Open()
Dim dt As DataTable
dt = conn.GetSchema("Tables")
MsgBox(dt)
conn.Close()
|
|
|
|
|
Mangore75 wrote: but nothing happen
You press F5, and then you either get an exception, or a result. If you executed the code you have now, you get a MessageBox with the text "Tables". That's because the "dt" variable contains a DataTable object with tables, and if you try to show it with a MsgBox, you'll see a .ToString() version of the object.
Click on the gutter in the right on the line that says "MsgBox" and put a breakpoint there. Run your code, and hover your mouse over the "dt" variable when the yellow line hits the breakpoint.
This code worked for me;
Imports System.Data.OleDb
Module Module1
Sub Main()
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =""C:\Users\Eddy\Desktop\NWind.mdb""")
conn.Open()
Dim dt As DataTable
dt = conn.GetSchema("TABLES")
conn.Close()
For Each row As DataRow In dt.Rows
For Each item As Object In row.ItemArray
Console.Write(item)
Next
Console.WriteLine()
Next
Console.WriteLine(dt)
Console.ReadKey()
End Sub
End Module
It's easier if you learn it from a book.
Bastard Programmer from Hell 
|
|
|
|
|
I made it your code like this but didn't work . it showed me msgbox but there is no any of name tables.
conn.Open()
Dim dt As DataTable
dt = conn.GetSchema("TABLES")
conn.Close()
For Each row As DataRow In dt.Rows
For Each item As Object In row.ItemArray
MsgBox(item.ToString)
Next
Next
MsgBox(dt.ToString)
|
|
|
|
|
Mangore75 wrote: it showed me msgbox but there is no any of name tables.
That's why I explained how to use the debugger. Seriously, put the cursor on the line that contains the MessageBox, hit the F9 key and F5. Once the IDE shows up again, your application will be halted on the line with the breakpoint, allowing you to inspect the contents of the variable. That's a lot more effective that looking at things through a MsgBox.
On to your problem; the code should work. Download the Northwind[^]-example and test the code below (with the complete path to your database);
Dim dt As DataTable
Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =""C:\Users\Eddy\Desktop\NWind.mdb""")
con.Open()
dt = con.GetSchema("TABLES")
End Using
For Each row As DataRow In dt.Rows
Console.WriteLine(row("TABLE_NAME"))
Next
Console.WriteLine()
Bastard Programmer from Hell
|
|
|
|
|
There are a couple of ways to do that. Here is some code I have, it differs from the other approach in that it doesn't use MSysObjects, instead it uses GetSchema(). As it is using C#, you may have to transpose it to your language though.
public override List<string> GetTableNames(bool all) {
using (OleDbConnection con=new OleDbConnection(connectionString)) {
con.Open();
DataTable dt=con.GetSchema("Tables");
List<string> tableNames=new List<string>();
foreach (DataRow row in dt.Rows) {
string tableName=(string)row["TABLE_NAME"];
if (!all) {
string tableNameLC=tableName.ToLower();
if (tableNameLC.StartsWith("msys")) continue;
if (tableNameLC.StartsWith("qry")) continue;
if (tableNameLC.StartsWith("query")) continue;
if (tableNameLC.StartsWith("qyr")) continue;
if (tableNameLC.EndsWith("_conflict")) continue;
}
tableNames.Add(tableName);
}
return tableNames;
}
}
This may interest you as well:
public override DataTable GetTableDescriptions() {
using (OleDbConnection con=new OleDbConnection(connectionString)) {
con.Open();
return con.GetSchema("TABLES");
}
}
And this gives you all possible information on the columns:
public DataTable GetFieldDescriptions(string tableName) {
using (OleDbConnection con=new OleDbConnection(connectionString)) {
con.Open();
return con.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, new object[] {null, null, tableName, null });
}
}
|
|
|
|
|
I want to learn about Project of VB.Net.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
