Newsgroup: it.comp.lang.visual-basic
Titolo: [1/2 OT] ActiveX,True DB Grid & Co della Component One

Ciao a Tutti!
Qualcuno di voi ha mai usato uno o piu' activex (come True DB Grid) della
Component ONE?
Dovrei usarle in ASP, e mi piacerebbe scambiare qualche info a riguardo.
Ciao! ;^)=
--
RedFoxy
A fox around web
Power at fox for a yiffing world!
La legge del marketing:
Non migliorare il prodotto, cerca un cliente piu' scemo.

 riguardo.
io li uso regolarmente (TrueDBGrid e TrueDBList) ma non ho mai usato ASP....
cosa ti interessava sapere?
ciaociao

 ASP.... cosa ti interessava sapere?
Come prima cosa, come inserirla ed usarla tramite pagina web


 Come prima cosa, come inserirla ed usarla tramite pagina web
ecco appunto...
come prima cosa non saprei risponderti! :)
mi dispiace, ma per quanto riguarda il web sono proprio una pippa!
ciaociao


Ok, piazzato sulla pagina... ora come aspita gli passo i valori? VBScript?
un suicidio...


 un suicidio...
beh, questo è poco ma sicuro. Questo lavoro lo feci molto tempo fa, mi pare
usando FrontPage 97, che era veramente orribile (spostava i tag come voleva
lui), ma aveva un grande pregio. Dall'editor era possibile aggiungere
ActiveX semplicemente sfogliandoli (un po' come Progetto-->Componenti di
VB). Poi era possibile vedere le proprietà dell'oggetto (un po' come l'F4 di
VB), quindi la cosa era un po' semplificata......
però poi le cose che fai da codice, lo devi tramutare in vbscript, quindi è
per forza così......
nel tag, dai un nome all'oggetto usando la proprietà id puoi scrivere cose
tipo:
document.griglia.backcolor
e così via....
sì, eh già, proprio vbscript
;-)))
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

 VBScript? un suicidio...
Ripeto che non conosco assolutamente ASP, quindi ti dico come faccio in vb:
Se devo solo visualizzare i dati e consentire selezioni (magari multiple),
piazzo una bella TrueDBList, poi creo un recordset con i dati che mi servono
e imposto la RowSource della list (Set TdbList.RowSource=mioRecordset)
Per quanto riguarda la TdbGrid basta usare la DataSource invece della
RowSource
Indicazione mooooooooooolto generica! non sto a dilungarmi poichč dato che
usi ASP potrebbe essere tutto inutile! ;-)
ciaociao

 dato che usi ASP potrebbe essere tutto inutile! ;-)
Sto' provando in VB cosi':
Set conn = CreateObject("adodb.connection")
conn.Open strConn
Set rs = conn.Execute("Select * From tbl_tipo_titolo order by
str_desc_tipo_titolo")
TDBGrid1.DataSource = rs
Risultato non mi ha messo i risultati, cosa sbaglio?
-- 


 VBScript? un suicidio...
e poi?
il componente dovrrà essere presente e registrato su ogni client, per
permettere la visualizzazione?
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 permettere la visualizzazione?
Il componente nei client mi va bene tanto e' una cosa locale... ma il VBS
assolutamente no


 Risultato non mi ha messo i risultati, cosa sbaglio?
E in oltre: hai solo piazzato il controllo così com'era o hai modificato
qualcosa in design time (per modificato intendo anche solo allargare una
colonna)?
ciaociao

 VBS assolutamente no
Guardando l'unico esempio in asp, pero' di un activex che non mi interessa
ora ma sempre dello stesso gruppo, sembrerebbe che si possa pilotare da asp


 allargare una colonna)?
No


 Catalog=database
no, intendo proprio il lato del cursore! prova con:
conn.CursorLocation = adUseClient
il cursore lato server (che dovrebbe essere il default) non gli piace... ;-)
ciaociao

 piace... ;-)
Set conn = CreateObject("adodb.connection")
conn.CursorLocation = adUseClient
conn.Open strconn
Set rs = conn.Execute("Select * From tbl_tipo_titolo order by
str_desc_tipo_titolo")
Set TDBGrid1.DataSource = rs.DataSource
Niente!


 Niente!
mmmm.....
allora:
nuovo progetto, aggiunta griglia e scritto questo codice nella Form_Load:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String
strConn = "Provider = SQLOLEDB;User ID=sa;Initial Catalog=dbProva;Data
Source=SERVERW2K"
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open strConn
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tabella_prova", conn, adOpenForwardOnly,
adLockReadOnly
Set TDBGrid1.DataSource = rs
e vedo tutti i dati!
prova a usare questo codice e fammi sapere se funziona
ciaociao

 prova a usare questo codice e fammi sapere se funziona
Ok andato, grazie!


 Ok andato, grazie!
Assurdo, l'ho rifatto e non va o.0
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.Open "Provider=MSDASQL.1;User ID=uid;Password=pwd;Extended
Properties='DSN=dsn;SERVER=localhost;PORT=3306;OPTION=3;STMT=;';Initial
Catalog=db"
rs.Open "Select * From tbl_tipo_titolo order by str_desc_tipo_titolo", conn,
adOpenForwardOnly, adLockReadOnly
Set TDBGrid1.DataSource = rs


 Set TDBGrid1.DataSource = rs


Niente niente... errore mio...
Mettevo la datagrid errata...
CMQ ora vedo tramite VB, ma da ASP + VBS continuo ad avere lo stesso prob...
non riempe...
<OBJECT id=TDBGrid1 style="LEFT: 0px; TOP: 0px" codeBase=activex/todg8.ocx
height=400
 width=400 classid="clsid:C5465D96-B469-4E03-A202-375447DE489D"></OBJECT>
<script language=vbscript>
Dim conn
Dim rs
set conn=createobject("adodb.connection")
conn.CursorLocation = 3
conn.Open "Provider=MSDASQL.1;User ID=mediel;Password=mediel;Extended
Properties='DSN=mediel;SERVER=localhost;PORT=3306;OPTION=3;STMT=;';Initial
Catalog=mediel"
Set rs = createobject("adodb.Recordset")
rs.Open "Select * From tbl_tipo_titolo order by str_desc_tipo_titolo", conn,
0, 1
Set TDBGrid1.DataSource = rs
</script>



[...]
guarda, mi dispiace ma proprio non saprei aiutarti.... così a occhio il
codice è giusto, quindi ci vuole solo l'esperienza di qualcuno che ne abbia!
;-)
ciaociao