• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 619
  • Last Modified:

ANSI LISP - recusive automation with IBM DB2 - fortan front end..

I need to perform a recusive automation routine...
0
GlobaLevel
Asked:
GlobaLevel
1 Solution
 
GlobaLevelProgrammerAuthor Commented:
Pass parameters

http://msdn.microsoft.com/en-us/library/6c3yckfw.aspx

ws
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21733451.html?sfQueryTermInfo=1+10+30+program+servic+start+window


<StructLayout(LayoutKind.Sequential)> _
     Class NetResource
         Public dwScope As Integer
         Public dwType As Integer
         Public dwDisplayType As Integer
         Public dwUsage As Integer
         Public LocalName As String
         Public RemoteName As String
         Public Comment As String
         Public Provider As String
     End Class
 

' luanch app remotely
'
<DllImport("mpr.dll",CharSet = CharSet.Ansi)> _
Public Shared extern Integer WNetAddConnection2(Property netResource,() As NetResource
End Property
String password, String Username, Integer Flag)
 
Shared  Sub Main(ByVal args() As String)
              Dim myNetResource As NetResource =  New NetResource()
              myNetResource.dwScope = 2'RESOURCE_GLOBALNET
              myNetResource.dwType = 1 'RESOURCETYPE_DISK
              myNetResource.dwDisplayType = 3'RESOURCEDISPLAYTYPE_SHARE
              myNetResource.dwUsage = 1'RESOURCEUSAGE_CONNECTABLE
              myNetResource.LocalName = "w:"
              myNetResource.RemoteName = "\\\\RemoteMachineName\\c$"
              myNetResource.Provider = Nothing
              Dim ret As Integer =  WNetAddConnection2(myNetResource,Nothing,Nothing,0)
End Sub


'-----call vbscript from asp.net
Try omitting the runat for vbscript, because as far as I know, vbscript is only a client side script anyway.
Also try using:
<asp:Button ID="btnEditSave" Text="Edit" OnClick="vbs:btnEditSave_Click" />

code behind..

------------------------------Code Behind-------------------------------------------------------
protected void Page_Load(object sender, EventArgs e)
    {
        if (!IsPostBack)
            Page.ClientScript.RegisterClientScriptBlock(this.GetType(), "MyScript", "<script language='VBScript' type='text/vbscript' src='../MyVBScript.vbs'></script>");            
    }

    protected void GridView1_RowCreated(object sender, GridViewRowEventArgs e)
    {
        if (e.Row.RowType == DataControlRowType.DataRow && e.Row.DataItem != null)
            ((Button)e.Row.FindControl("UnMatchButton")).Attributes.Add("OnClick", "fClick()");            
    }

    protected void GridView1_RowCommand(object sender, GridViewCommandEventArgs e)
    {
            if (e.CommandName == "UnMatch")
                //Call Code for Unmatching.
    }
----------------------------------------------------------------------------------------------
http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/Q_22623964.html?sfQueryTermInfo=1+10+30+asp.net+vbscript

---->>>see kens code has  it a db...


'-=-=-=-=-=



Which specifically tells the OnClick procedure that it is to use a vbs function.



0
 
Kent OlsenData Warehouse Architect / DBACommented:
Hi GlobaLevel,

Can you clarify your question?  Showing a VB sample for a question that wants a recursive Fortran front-end to a DB2 database is a bit confusing.  :)

By the way, DB2 SQL handles recursion quite well.  You may be better served letting DB2 handle the recursion and returning a single result set to you.


Kent
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Improve Your Query Performance Tuning

In this FREE six-day email course, you'll learn from Janis Griffin, Database Performance Evangelist. She'll teach 12 steps that you can use to optimize your queries as much as possible and see measurable results in your work. Get started today!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now