Paula
|
BRASÍLIA
DF - BRASIL
|
|
Postada em 19/04/2006 08:52 hs
Bom dia pessoal, Estou criando um programa para acessar uma base de dados na web usando um BD do SQL Server 2000, ele chega a conectar normalmente no BD, mas quando vou listar os dados da tabela "tab1" aparece: "Could not find stored procedure 'tab1'". O código que estou usando é esse: MSFlexGrid1.Rows = 1 Set rst = New ADODB.Recordset rst.ActiveConnection = Con
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Source = "tab1"
rst.Open While Not rst.EOF() ' checking end of file MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
rst.MoveNext Wend Set rst = Nothing |
|
|
|
|
|
|
|
Postada em 19/04/2006 09:04 hs
Tenta assim: ... rst.ActiveConnection = Con
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic rst.Source = "tab1"
rst.Open , , , , adCmdTable t+ |
|
|
|
|
|
Postada em 19/04/2006 09:34 hs
ghost_jlp, tentei colocar e deu essa mensagem agora: "Invalid object name 'tab1'". Você sabe porque deu esse erro? Essa tabela é única dentro do Banco de dados não tem nenhuma outra nem com outro nome. |
|
|
|
Clau
|
ARARAQUARA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 15:28 hs
Tenta dessa forma(lembre-se de declarar rst): Public rst As New ADODB.Recordset MSFlexGrid1.Rows = 1 rst.CursorLocation = adUseClient
rst.Open "tab1", con, adOpenKeyset, adLockOptimistic, adCmdTablest.Open While Not rst.EOF() ' checking end of file MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
rst.MoveNext Wend rst.close |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 16:01 hs
rst.Open "select * from tab1", con, adOpenKeyset, adLockOptimistic |
|
|
|
Clau
|
ARARAQUARA
SP - BRASIL
|
|
Postada em 20/04/2006 09:12 hs
O código que enviei tinha um erro, me desculpe, o correto é:
MSFlexGrid1.Rows = 1
rst.CursorLocation = adUseClient
rst.Open "tab1", con, adOpenKeyset, adLockOptimistic, adCmdTable
'ou
rst.Open "Select * from tab1", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not rst.EOF() ' checking end of file
MSFlexGrid1.AddItem rst!id & Chr(9) & rst!Name & Chr(9) & rst!age & Chr(9) & rst!sex 'adding records to flexgrid
rst.MoveNext
Wend
rst.close
Claudene Gonçalves msn: claudeneg@hotmail.com
|
|
|
|
