|
|
Postada em 07/12/2006 13:22 hs
Galera, preciso de uma forcinha..
Preciso contar quantos registros possui em meu banco, e colocar isso dentro de uma variavel.. como fazer?
eu to utilizando a instrução SQL -> SELECT count(Cod) FROM Tabela
até ai blz, isso funciona no SQL Server, mas como atribuir o valor gerado pelo Select a uma Variavel?
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 07/12/2006 17:38 hs
ssql="select * from tabela" set tabela(ssql,dbopensnapshot) do until tabela.eof n=tabela.recordcount tabela.movenext loop tabela.close |
|
|
|
|
|
Postada em 08/12/2006 08:10 hs
Amigo, o seu codigo não deu certo, estou utilizando a forma de conexão via ADODB como o codigo abaixo.
Dim strCnn As String
Set cnnBanco = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
cnnBanco.Open strCnn
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 08/12/2006 15:17 hs
aki tem um exemplo usando o ado (só q está carregando um combo...é só substituir o combo pela sua variavel) Public Sub ComboCategorias(NomeCombo As ComboBox)
Dim cnnComando As New ADODB.Command
Dim rsTemp As New ADODB.Recordset
Dim i As Integer
On Error GoTo errComboCategorias
With cnnComando
.ActiveConnection = cnnBox1
.CommandType = adCmdStoredProc
.CommandText = "CategoriasEmOrdemAlfabetica"
Set rsTemp = .Execute
End With
With rsTemp
'Verifica se existe alguma editora cadastrada:
If Not (.EOF And .BOF) Then
'Se existe, então posiciona o apontador no primeiro registro do rs:
.MoveMin
'Inicializa a variável i que será usada como índice para a
'propriedade ItemData:
i = 0
While Not .EOF
'Adiciona um item à combo com o nome da editora:
NomeCombo.AddItem !Descrição, i
'Grava na propriedade ItemData desse o código da editora:
NomeCombo.ItemData(i) = !Código
'Vai para o próximo registro do rs:
.MoveNext
'Incrementa i:
i = i + 1
Wend
End If
End With
saida:
Set cnnComando = Nothing
Set rsTemp = Nothing
Exit Sub
errComboCategorias:
With Err
If .Number <> 0 Then
MsgBox "Não foi possível a leitura da tabela de Categorias:", _
, vbInformation + vbOKOnly + vbApplicationModal, _
"Erro ao carregar ComboBox"
.Number = 0
GoTo saida
End If
End With
End Sub
|
|
|
|
