Postada em 05/11/2009 22:55 hs
Ola colegas
Consegui resolver o problema da data com exemplo que vi no site do Macoratti, mas ainda tenho duvidas e problemas ! Segue o codigo:
Private Sub Command5_Click()
Dim busca As String
busca = InputBox("Digite o nome a ser pesquisado", "sistema entrevista")
rs.Open "select cod_cli as [codigo],nome as [Nome],endereco as [Endereço],bairro as [Bairro],data_cad as [data de cadastro] from clientes where nome like '%" & busca & "%' order by cod_cli", conexao, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
MSHFlexGrid1.Cols = 6
MSHFlexGrid1.ColWidth(0) = 500
'MSHFlexGrid1.TextMatrix(0, 0) = "Sr.No"
For I = 0 To rs.Fields.Count - 1
MSHFlexGrid1.ColAlignment(I) = vbCenter
MSHFlexGrid1.ColWidth(I + 1) = 1500
MSHFlexGrid1.TextMatrix(0, I + 1) = rs.Fields(I).Name
Next
MSHFlexGrid1.Rows = rs.RecordCount + 1
I = 1
Do While Not rs.EOF
'MSHFlexGrid1.TextMatrix(I, 0) = I
MSHFlexGrid1.TextMatrix(I, 1) = rs(0)
MSHFlexGrid1.TextMatrix(I, 2) = rs(1)
MSHFlexGrid1.TextMatrix(I, 3) = rs(2)
MSHFlexGrid1.TextMatrix(I, 4) = rs(3)
I = I + 1
rs.MoveNext
Loop
Else
MsgBox ("Cliente não localizado")
End If
rs.Close
End Sub
Embora nao tenha (pelo menos nao vi) neste codigo nao tem nada formatando o campo data para exibir no grid, mas ele esta exibindo a data corretamente no formato dd/mm/yyyy, ai vem a duvida como ele esta fazendo esta formataçao ?
E estou tendo o problema de quando o campo data esta como null apresenta erro: INVALIDE USE OF NULL e este erro aparece tambem quando vou refazer uma consulta, como resolvo isso ??
|
