Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How I Transform Application VB To Run by Internet? 1

Status
Not open for further replies.

MT

Programmer
Aug 9, 2000
3
IL
Hello<br><br>Thank you, for help.<br>*(I'm sorry,my English is not very good).<br><br>My Instruction:<br>I want to run my pure application VB6 on the internet,(my application VB6 connecting to <br>Sql-Server7 &quot;ADO&quot;, and she geve to me a display graphic on PictureBox,i have only code graphics:&quot;line&quot;,&quot;sin&quot;,&quot;formula&quot;)<br>I need a solution,<br>How I can run this program in Internet,that application need to set on the web server,and the user need to lift the form on the browser internet, what i need to do?, conform or change my application that is working to the Internet.<br><br>maybe ActiveX document.exe/Dll or ActiveX control or ActiveX.Dll/exe<br>or only ASP and VBscrip, but i have a problem in VBscrip, i dont no if i can transform all my application in vbscript maybe a problem by my graphics code.<br><br>What i need to do?.<br><br>E-MAIL:<A HREF="mailto:mik_t@usa.net">mik_t@usa.net</A><br>Thank You for help.<br>
 
This code will work for SQL Server 7<br>----------------------------------------<br>&lt;%@ Language=VBScript %&gt; <br>&lt;html&gt;<br><br>&lt;head&gt;<br>&lt;title&gt;New Page 2&lt;/title&gt;<br>&lt;/head&gt;<br><br>&lt;body&gt;<br>&lt;%&nbsp;&nbsp;Response.Write(&quot;These records are pulled from a SQL Server database&quot;)&nbsp;&nbsp;%&gt; <br>&lt;%<br>Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)<br>Conn.Open &quot;driver=SQL Server;server=servername.com;uid=userID;pwd=Password;database=databaseInSQL;&quot;<br>Set RS = Conn.Execute(&quot;SELECT *, STOCK_CODE AS Expr1 FROM [Copy-PartMaster Lite] WHERE (STOCK_CODE LIKE N'40016%')&quot;)<br>If Not RS.EOF Then<br> Do<br> Response.Write RS(&quot;STOCK_CODE&quot;) & &quot; &quot; & RS(&quot;DESCRIPTION&quot;)<br> Response.Write &quot;&quot;<br> RS.Movenext<br> Loop Until RS.EOF<br>Else<br> msgbox &quot;Empty Baby&quot;<br>End If<br>%&gt;<br>&lt;% do while not RS.eof %&gt;<br>&lt;%= RS(0) %&gt; <br>&lt;% RS.movenext <br>loop%&gt;<br>&lt;% RS.close %&gt;<br>&lt;/body&gt;<br>&lt;/html&gt;<br>---------------------------------<br>Also there is an .ASP forum here on Tek Tips<br><br><A HREF=" TARGET="_new"> <p>DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br> Ask me how Bar-codes can help you be more productive.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top