Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 613
  • 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
 
GlobaLevelAuthor 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

Featured Post

Visualize your virtual and backup environments

Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.

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