Listado de Tablas y Campos de BD MySQL
Publicado: 01 May 2023 21:39
Código para listar Tablas de MySQL, espero le sea de utilidad
Lisiatdo x Tabla
Listado x campo de Tabla
Lisiatdo x Tabla
tSelected = MySQL.QueryToTable("SELECT TABLE_NAME FROM information_schema.tables where table_schema in (SELECT DATABASE())");
for nRow, x in pairs (tSelected) do
tTb = tSelected[nRow][1];
if tTb == nil then
else
ComboBox.AddItem("ComboBox3", tTb, nRow);
ComboBox.SetSelected("ComboBox3", 1)
end
end
DialogEx.SetFocus("ComboBox3")
DialogEx.StartTimer(1000, 11)
tSelected = MySQL.QueryToTable("SELECT * FROM dependencias ORDER BY CODIGO ASC");
ComboBox.ResetContent("CBX_DEPENDENCIA")
if Application.GetLastError() == 0 then
for nRow, x in pairs (tSelected) do
tCodigo = tSelected[nRow][2];
tDependencia = tSelected[nRow][3];
ComboBox.AddItem("CBX_DEPENDENCIA", tDependencia, nRow);
ComboBox.SetSelected("CBX_DEPENDENCIA", 1)
end
end
DialogEx.SetFocus("CBX_DEPENDENCIA")
DialogEx.StartTimer(1000, 11)