（“Ocurrióun error leyendo la base de datos:”&myerror.Message） 结束尝试 将myerror捕获为MySqlException MessageBox.Show（“Ocurrióun error conectando a la base de datos:”&myerror.Message） 最后 如果连接状态ConnectionState.Closed，则连接关闭（） 结束尝试 端接头 私有子FillHora（） conn=newmysqlconnection（“数据源=localhost；用户id=root；密码=；数据库=arj；”） myCommand.Connection=conn SQL=“从ControlHorario中选择IDControlHorario作为ID，IDEmpleado作为'ID Empleado'，Fecha，Hora” 尝试 康涅狄格州公开赛 尝试 myCommand.Connection=conn myCommand.CommandText=SQL myAdapter.SelectCommand=myCommand myAdapter.Fill（dataHora） dgvConsHora.DataSource=dataHora dgvConsHora.Columns（0）.宽度=30 将myerror捕获为MySqlException MsgBox（“Ocurrióun error leyendo la base de datos:”&myerror.Message） 结束尝试 将myerror捕获为MySqlException MessageBox.Show（“Ocurrióun error conectando a la base de datos:”&myerror.Message） 最后 如果连接状态ConnectionState.Closed，则连接关闭（） 结束尝试 dgvConsHora.Refresh（） 端接头 私有子FRMManteimento_Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load FillEmps（） FillNom（） FillPres（） 菲拉（） 菲尔加斯特（） 菲拉蒙（） 端接头

我想你可能对干燥原理有点过火了。当你考虑时，一个连接对象就是你所需要的。若每个表驻留在不同的数据库中，您所需要的就是8个不同的连接字符串，而池将负责每个连接。除非您有一个框架可以为您动态创建SQL查询，否则每个Datagrid肯定需要一个SQL选择字符串。希望您没有使用VS向导来执行此操作

Public Sub FillEmps() 

    myCommand.Connection = conn 
    SQL = "SELECT IDEmpleado as ID, Nombre, Cargo FROM Empleados" 

    Try 
       myCommand.Connection = conn 
       myCommand.CommandText = SQL 

       myAdapter.SelectCommand = myCommand 
       myAdapter.Fill(dataEmp) 

       dgvConsEmp.DataSource = dataEmp 

       dgvConsEmp.Columns(0).Width = 30 
       dgvConsEmp.Columns(1).Width = 200 
       dgvConsEmp.Columns(2).Width = 200 

    Catch myerror As MySqlException 
        MsgBox("Ocurrió un error leyendo la base de datos: " & myerror.Message) 
    End Try 
End Sub 


Private Sub frmMantenimiento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    conn = New MySqlConnection("Data Source=localhost; user id=root; password=; database=arj;")

    Try
        conn.Open()

        FillEmps() 
        FillNom() 
        FillPres() 
        FillHora() 
        FillGast() 
        FillAmon() 
    Catch
        If conn.State <> ConnectionState.Closed Then conn.Close() 
    Finally
        If conn.State <> ConnectionState.Closed Then conn.Close() 
    End Try

End Sub 

Public Sub-FillEmps（）
myCommand.Connection=conn
SQL=“选择IDEmpleado作为ID、名称、来自Empleados的货物”
尝试
myCommand.Connection=conn
myCommand.CommandText=SQL
myAdapter.SelectCommand=myCommand
myAdapter.Fill（dataEmp）
dgvConsEmp.DataSource=dataEmp
dgvConsEmp.Columns（0）.Width=30
dgvConsEmp.Columns（1）.Width=200
dgvConsEmp.Columns（2）.宽度=200
将myerror捕获为MySqlException
MsgBox（“Ocurrióun error leyendo la base de datos:”&myerror.Message）
结束尝试
端接头
私有子FRMManteimento_Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
conn=newmysqlconnection（“数据源=localhost；用户id=root；密码=；数据库=arj；”）
尝试
康涅狄格州公开赛
FillEmps（）
FillNom（）
FillPres（）
菲拉（）
菲尔加斯特（）
菲拉蒙（）
抓住
如果连接状态ConnectionState.Closed，则连接关闭（）
最后
如果连接状态ConnectionState.Closed，则连接关闭（）
结束尝试
端接头

不使用向导，我有一个连接字符串和8个数据表来填充数据网格，1个MySQLCommand和1个MySQLAdapter。我用一个查询填充了它们，并填充了相应的DataTable，问题是我不知道为什么它只填充了我的DataGridView中的3个。刚刚在上面添加了我的代码。感谢您的帮助。首先，我假设您完成了填充数据网格的八个例程中的两个。有没有例外？你检查过MySQL错误日志了吗？您是否达到了连接限制？哪些表无法填充？没有例外，我的表单加载，但只填充加载上的前3个FillX（）。还有其他方法可以尝试吗？与其为每个填充打开和关闭连接，不如让

frmmentimento\u加载

处理打开和关闭连接，而不是每个填充子过程。顺便说一句，这称为重构；）。

Public Sub FillEmps() 

    myCommand.Connection = conn 
    SQL = "SELECT IDEmpleado as ID, Nombre, Cargo FROM Empleados" 

    Try 
       myCommand.Connection = conn 
       myCommand.CommandText = SQL 

       myAdapter.SelectCommand = myCommand 
       myAdapter.Fill(dataEmp) 

       dgvConsEmp.DataSource = dataEmp 

       dgvConsEmp.Columns(0).Width = 30 
       dgvConsEmp.Columns(1).Width = 200 
       dgvConsEmp.Columns(2).Width = 200 

    Catch myerror As MySqlException 
        MsgBox("Ocurrió un error leyendo la base de datos: " & myerror.Message) 
    End Try 
End Sub 


Private Sub frmMantenimiento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    conn = New MySqlConnection("Data Source=localhost; user id=root; password=; database=arj;")

    Try
        conn.Open()

        FillEmps() 
        FillNom() 
        FillPres() 
        FillHora() 
        FillGast() 
        FillAmon() 
    Catch
        If conn.State <> ConnectionState.Closed Then conn.Close() 
    Finally
        If conn.State <> ConnectionState.Closed Then conn.Close() 
    End Try

End Sub