ACESSO A DADOS SQL 2005 ...

F001E 25/08/2011 10:35:31
#382433
Bom dia pessoal...montei essa seguinte programação no VS2008 para ler os Dados de uma tabela no SQL 2005. Blz, me mostra os dados corretamente. Mas queria saber como posso tratar quando essa Tabela não estiver Dados ou quando um Campo estiver NULO. Com essa Programação que eu fiz esses dois ultimos casos da ERRO..segue a Programação...estou usando ADO.NET

Private Sub CarregaParamatros()
Try
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT * FROM[Ô] & Chr(13)
SQL = SQL & [Ô] PARACONTA[Ô] & Chr(13)
SQL = SQL & [Ô] WHERE EMPRESA = [ô]0001[ô][Ô]
CarregarDataSet(SQL, BancoSQLContabil)
For Each oDataRow In oDataTable.Rows
txtDiarioVigor.Text = oDataRow([Ô]DIARIOVIGOR[Ô])
txtAnoVigor.Text = oDataRow([Ô]ANOVIGOR[Ô])
Next
Catch ex As Exception
TratarErro([Ô]Modulo Geral[Ô], [Ô]ConectaBancoSQLServer[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
KERPLUNK 25/08/2011 11:09:23
#382440 Resposta escolhida
O que [Ô]CarregarDataSet[Ô] faz? Mostra como está essa procedure, acho que o erro é nela
F001E 25/08/2011 11:18:56
#382443
Segue o CarregaDataSet


Public Sub CarregarDataSet(ByVal sSQL As String, ByVal Banco As OleDbConnection)
Dim oDataSet As New DataSet
Dim oCMD As New OleDbCommand
Dim oDataAdapter As New OleDbDataAdapter

Try
With oDataAdapter
.TableMappings.Add([Ô]Table[Ô], [Ô]Tabela1[Ô])
oCMD = New OleDbCommand(sSQL, Banco)
oCMD.CommandType = CommandType.Text
.SelectCommand = oCMD
.Fill(oDataSet)
.Dispose()
End With
oDataSet.AcceptChanges()
oDataTable = oDataSet.Tables.Item(0)
oDataSet.Dispose()
Catch ex As Exception
TratarErro([Ô]Modulo Geral[Ô], [Ô]CarregarDataSet[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
KERPLUNK 25/08/2011 11:51:59
#382448
...
CarregarDataSet(SQL, BancoSQLContabil)
If oDataTable.Rows.Count > 0 Then
For Each oDataRow In oDataTable.Rows
...
Next
End if
F001E 25/08/2011 13:51:44
#382459
ok KERPLUNK esse deu certo, mas como faz agora para Tratar Campo NULO ???
Tópico encerrado , respostas não são mais permitidas
Voltar