OBJECT VARIABLE OR WITH BLOCK VARIABLIE NOT SET
Run time Error [ô]91[ô] estou executando esse codigo simples... mais retorna o error
Lembrando selecionei as seguintes Referencias
Visiaul Basic For Aplications, Visual runtime obj adn proc, visual obj e proc, OLE Animation, Microsoft Activvex Data Object[ô]s 6.0, Microsoft DAO 3.5 obj libary, Microsoft Scripting Run Time, Microsof Data Formatiiing Obj Libary.
Eu fiz um outro projeto do mesmo jeito, e fuuncionou blezinha ai quando criei um projeto simples para ele pegar e mostrar só na grid nao foi.
Coloquei o codigo para carregar no formload e um botão.
Citação:Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim sSelect As String
Dim sSelect2 As String
sSelect = [Ô]SELECT * FROM SC6000[Ô]
cn.Open [Ô]Provider=SQLOLEDB.1;Password=123abc@;[Ô] & _
[Ô]Persist Security Info=False;User ID=teste;[Ô] & _
[Ô]Initial Catalog=DADOS_P10_TST;Data Source=192.168.1.103[Ô]
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open sSelect, cn, adOpenStatic
Grid.AllowUserResizing = flexResizeColumns
Set Grid.DataSource = rs
rs.Close
cn.Close
Lembrando selecionei as seguintes Referencias
Visiaul Basic For Aplications, Visual runtime obj adn proc, visual obj e proc, OLE Animation, Microsoft Activvex Data Object[ô]s 6.0, Microsoft DAO 3.5 obj libary, Microsoft Scripting Run Time, Microsof Data Formatiiing Obj Libary.
Eu fiz um outro projeto do mesmo jeito, e fuuncionou blezinha ai quando criei um projeto simples para ele pegar e mostrar só na grid nao foi.
Coloquei o codigo para carregar no formload e um botão.
Verifique se a conexão realmente abriu...
como testo isso.. pq tipo eu tenho dois projetos com o mesmo codigo um funciona e outro nao estranho..
qual é a linha do erro?
Set Grid.DataSource = rs
Depure e verifique se [Ô]rs[Ô] contém um recordset.
Emp... dá vazio.. mais.
O estranho que uso mesmo codigo no outro projeto e vai... ai criei esse branco mais nao vai.
O estranho que uso mesmo codigo no outro projeto e vai... ai criei esse branco mais nao vai.
amigo testei o codigo aqui está funcionando perfeitamente, verifique se a grid está com o mesmo nome, teste esse codigo abaixo com as linhas comentadas.
----------------------------------------------------------------------
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim sSelect As String
Dim sSelect2 As String
sSelect = [Ô]SELECT * FROM SC6000[Ô]
cn.Open [Ô]Provider=SQLOLEDB.1;Password=123abc@;[Ô] & _
[Ô]Persist Security Info=False;User ID=teste;[Ô] & _
[Ô]Initial Catalog=DADOS_P10_TST;Data Source=192.168.1.103[Ô]
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open sSelect, cn, adOpenStatic
[ô] grid.AllowUserResizing = flexResizeColumns
Set grid.DataSource = rs
[ô] rs.Close
[ô]cn.Close
-------------------------------------
----------------------------------------------------------------------
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim sSelect As String
Dim sSelect2 As String
sSelect = [Ô]SELECT * FROM SC6000[Ô]
cn.Open [Ô]Provider=SQLOLEDB.1;Password=123abc@;[Ô] & _
[Ô]Persist Security Info=False;User ID=teste;[Ô] & _
[Ô]Initial Catalog=DADOS_P10_TST;Data Source=192.168.1.103[Ô]
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open sSelect, cn, adOpenStatic
[ô] grid.AllowUserResizing = flexResizeColumns
Set grid.DataSource = rs
[ô] rs.Close
[ô]cn.Close
-------------------------------------
ñ seria melhor voce ligar um Data com a grid ?
Grid.DataSource = objData
Grid.DataSource = objData
Olá luiz isso que é estranho, pois no outro projeto funciona de boa. tipo dei crt - c e ctr - v mais nem vai, grid é o nome.. é flexgrid.......
Como eu uso um data pára sql sei para access só
Como eu uso um data pára sql sei para access só
Estou usando essas referencias que segue anexo, para acessar o sql quais delas são necessarias vlw.
Tópico encerrado , respostas não são mais permitidas