Visual Basic

Mangore75 wrote:

I want to create a code to show me the name of Table and Field in the DB

Bastard Programmer from Hell

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MyDB.mdb")

Mangore75 wrote:

I want to create a code to show me the name of Table and Field in the DB

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

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

Bastard Programmer from Hell

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.

        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

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

public override DataTable GetTableDescriptions() {
	using (OleDbConnection con=new OleDbConnection(connectionString)) {
		con.Open();
		return con.GetSchema("TABLES");
	}
}

public DataTable GetFieldDescriptions(string tableName) {
	using (OleDbConnection con=new OleDbConnection(connectionString)) {
		con.Open();
		return con.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, new object[] {null, null, tableName, null });
	}
}

Eddy Vluggen wrote:

Have you considered a good book?

C#Coudou wrote:

I've read and search in google but result is only using
the .resx files.

Bastard Programmer from Hell

Dim gExcelApp As New Excel.Application
Dim i As Integer

gExcelApp.Visible = True
gExcelApp.WindowState = Excel.XlWindowState.xlNormal

gExcelApp.Workbooks.Open("C:\Temp\Test.xls", , True)

For i = 1 To gExcelApp.Workbooks.Count
  If (gExcelApp.Workbooks(i).Name.Equals("test.xls")) Then
    Debug.Print("Already open")
  End If
Next