sNniffer

Pessoal, Estou usando isto, para uma consulta em que devo comparar o id da tabela sub_categoria que está gerando o checkbox com o campo id_subcategoria da tabela empresa_sub_categoria. Devo marcar o checkbox, caso a comparaçao seja positiva, mas, está marcando apenas o último id encontrado na comparação, ou seja, se tiver vários é marcado apenas o último. $last_category = ''; $query = mysql_query("SELECT categoria.*, sub_categoria.* FROM categoria INNER JOIN sub_categoria ON categoria.id = sub_categoria.id_categoria"); while($resultado = mysql_fetch_array($query)) { if($last_category !== $resultado['nome_categoria']) { echo '<h4>'. $resultado['nome_categoria'] .'</h4>'; $last_category = $resultado['nome_categoria']; } $sql= mysql_query("SELECT * from empresa_sub_categoria where id_empresa=$empresa"); while($sub=mysql_fetch_array($sql)){ $checked = ($sub['id_sub_categoria'] == $resultado['id']) ? 'checked' : '' ; } echo "<div class='checkbox' style='display:inline; margin-left:10px'> <label> <input type='checkbox' name='servicos[]' ".$checked." value=".$resultado['id']." />". $resultado['nome'] ."<br> </label> </div>"; }

Galera, To com problema, preciso criar uma planilha avançada para a empresa em que trabalho, é uma fábrica, para o controle de tudo. Chegei a conclusão que programando VBA com excel, seria uma boa solução para faze-la. O que eu preciso para começar a programar em VBA junto com excel? Detalhe, já programo a anos com VB6, eu teria alguma facilidade com isso.

Cara da uma olhadinha se funciona, este código, ele é para a conexão com o banco de dados MySQL: On Error GoTo trata_erro Me.MousePointer = vbHourglass Set gConexao = New ADODB.Connection gConexao.ConnectionTimeout = 60 gConexao.CommandTimeout = 400 gConexao.CursorLocation = adUseClient gConexao.Open "DRIVER={MySQL ODBC 3.51 Driver};" _ & "user=" & "root" _ & ";password=" & "" _ & ";database=" & "BancoDeDados" _ & ";server=" & "localhost" _ & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384) Me.MousePointer = vbNormal If gConexao.State = 1 Then SaveSetting App.Title, "Settings", "localhost", localhost SaveSetting App.Title, "Settings", "root", root SaveSetting App.Title, "Settings", "BancoDeDados", BancoDeDados Else MsgBox "Não foi possível estabelecer a conexão. Verifique as configurações e tente novamente.", vbCritical, "Erro durante a conexão..." End If Exit Sub trata_erro: MsgBox Err.Number & " " & Err.Description, vbCritical, "Erro durante a conexão..." Se não funcionar posta ai, que dou uma olhada mais profunda e respondo. Boa sorte!