General information
Title:
Forgot to send the code for the previous query
I forgot to send the code so I am sending it now
Sub cmdBind_onclick
set Conn =CreateObject(ADODB.Connection)
strConnectionString =Driver=SQL S e rver;server=meghna;Uid=sa;Pwd=;database=New_Esugar;
Conn.Open strConnectionString
if Not Conn is Nothing Then
set rs =CreateObject(ADODB.Recordset)
msql=SELECT * FROM registration
'rs.CursorLocation =adUseClient
rs.Open msql,Conn,adOpenKeyset, adLockOptimistic
Set SSUltraGrid1.DataSource = rs
End if
End Sub
Sub SSUltragrid1_InitializeLayout(Context,Layout)
ssultragrid1.Caption =Contents of registration table
ssultragrid1.Override.HeaderAppearance.backcolor=&H00800000&
ssultragrid1.Override.HeaderAppearance.forecolor=vbwhite
ssultragrid1.override.rowappearance.backcolor = &H0080FFFF&
ssultragrid1.override.rowalternateappearance.backcolor =&H00ACF7F7&
ssultragrid1.override.rowalternateappearance.forecolor = vbblack
end sub
< / sc ript>
< BO DY >
codeBase=/ssultragrid.cab classid= clsid:D30CFC72-67B3-11D3-9475-00104B9E078A width=731
height=299 VIEWASTEXT>
O BJECT>
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only