tag:blogger.com,1999:blog-89621728057787697002024-03-15T02:16:10.614-07:00Flex and ASP.net Tutorials--- by Vijay Vignesh BFlex,SQL SERVER 2008 and ASP.net web services with database connectivityvijayhttp://www.blogger.com/profile/00652872861687348308noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-8962172805778769700.post-28899964090275371072018-03-19T00:17:00.001-07:002018-03-19T11:33:10.071-07:00Excel Opertions in VBS<div dir="ltr" style="text-align: left;" trbidi="on">
Create Excelsheet<br />
===============<br />
'Bind to the Excel object<br />
Set objExcel = CreateObject("Excel.Application")<br />
<br />
'Create a new workbook.<br />
objExcel.Workbooks.Add<br />
<br />
'Select the first sheet<br />
Sheet = 1<br />
<br />
'Bind to worksheet.<br />
Set objSheet = objExcel.ActiveWorkbook.Worksheets(Sheet)<br />
<br />
'Name the worksheet<br />
objSheet.Name = "VBS_Excel_Example"<br />
<br />
'Set the save location<br />
strExcelPath = "C:\Users\Administrator\Desktop\Excel POC\generated excel\Vbs_Excel_Example.xlsx"<br />
'--------------------------------------------------------<br />
'Populate the worksheet with data<br />
'--------------------------------------------------------<br />
' objSheet.Cells(row, column).Value = "Whatever"<br />
<br />
'Add some titles to row 1<br />
objSheet.Cells(1, 1).Value = "Name" 'Row 1 Column 1 (A)<br />
objSheet.Cells(1, 2).Value = "Description" 'Row 1 Column 2 (B)<br />
objSheet.Cells(1, 3).Value = "Something Else" 'Row 1 Column 3 (C)<br />
<br />
'Add some data using a loop<br />
For row = 2 to 10<br />
<span style="white-space: pre;"> </span>objSheet.Cells(row, 1).Value = "Item " & row & " Name"<br />
<span style="white-space: pre;"> </span>objSheet.Cells(row, 2).Value = "Item " & row & " Description"<br />
<span style="white-space: pre;"> </span>objSheet.Cells(row, 3).Value = "Item " & row & " Something Else"<br />
Next<br />
<br />
'--------------------------------------------------------<br />
' Format the spreadsheet<br />
'--------------------------------------------------------<br />
<br />
'Put the first row in bold<br />
objSheet.Range("A1:C1").Font.Bold = True<br />
<br />
'Change the font size of the first row to 14<br />
objSheet.Range("A1:C1").Font.Size = 14<br />
<br />
'Freeze the panes<br />
objSheet.Range("A2").Select<br />
objExcel.ActiveWindow.FreezePanes = True<br />
<br />
'Change column A and B to use a fixed width<br />
objExcel.Columns(1).ColumnWidth = 20<br />
objExcel.Columns(2).ColumnWidth = 30<br />
<br />
'Change column C to autofit<br />
objExcel.Columns(3).AutoFit()<br />
<br />
'Change the background colour of column A to a light yellow<br />
objExcel.Columns(1).Interior.ColorIndex = 36<br />
<br />
'Change the font colour of column C to blue<br />
objExcel.Columns(3).Font.ColorIndex = 5<br />
<br />
<br />
'--------------------------------------------------------<br />
' Save the spreadsheet and close the workbook<br />
'--------------------------------------------------------<br />
objExcel.ActiveWorkbook.SaveAs strExcelPath<br />
objExcel.ActiveWorkbook.Close<br />
<br />
'Quit Excel<br />
objExcel.Application.Quit<br />
<br />
'Clean Up<br />
Set objSheet = Nothing<br />
Set objExcel = Nothing<br />
<br />
Update Excelsheet<br />
==================<br />
Const xlShiftToRight = -4161<br />
Const xlup = -4162<br />
'create the excel object<br />
<span style="white-space: pre;"> </span>Set objExcel = CreateObject("Excel.Application")<br />
<br />
'view the excel program and file, set to false to hide the whole process<br />
<span style="white-space: pre;"> </span>objExcel.Visible = True<br />
<br />
'open an excel file (make sure to change the location) .xls for 2003 or earlier<br />
<span style="white-space: pre;"> </span>Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Administrator\Desktop\Excel POC\generated excel\Vbs_Excel_Example.xlsx")<br />
<span style="white-space: pre;"> </span><br />
Set objRange = objExcel.Range("A1").EntireColumn<br />
objRange.Insert(xlShiftToRight)<br />
<br />
'Add some titles to row 1<br />
objExcel.Cells(1, 1).Value = "Concatenated Column" 'Row 1 Column 1 (A)<br />
<br />
For i = 2 To objExcel.Cells(objExcel.Rows.Count, "B").End(xlup).Row<br />
objExcel.Cells(i, "A").Value = objExcel.Cells(i, "B").Value & "_" & objExcel.Cells(i, "D").Value<br />
Next<br />
<br />
'Put the first row in bold<br />
objExcel.Range("A1:C1").Font.Bold = True<br />
<br />
'Change the font size of the first row to 14<br />
objExcel.Range("A1:C1").Font.Size = 14<br />
<br />
objExcel.Columns(1).AutoFit()<br />
<br />
'save the existing excel file. use SaveAs to save it as something else<br />
<span style="white-space: pre;"> </span>objWorkbook.Save<br />
<br />
'close the workbook<br />
<span style="white-space: pre;"> </span>objWorkbook.Close<br />
<br />
'exit the excel program<br />
<span style="white-space: pre;"> </span>objExcel.Quit<br />
<br />
'release objects<br />
<span style="white-space: pre;"> </span>Set objExcel = Nothing<br />
<span style="white-space: pre;"> </span>Set objWorkbook = Nothing<br />
<br />
Copy Data from one excel to another<br />
==============================<br />
Set objExcel = CreateObject("Excel.Application")<br />
objExcel.Visible = True<br />
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\HP\Desktop\Excelsheets\Vbs_Excel_Example.xlsx")<br />
Set objWorkbook2 = objExcel.Workbooks.Open("C:\Users\HP\Desktop\Excelsheets\Vbs_Excel_Example1.xlsx")<br />
<br />
Set objWorksheet = objWorkbook.Worksheets(1)<br />
objWorksheet.Activate<br />
<br />
'Set objRange = objWorkSheet.Range("A1").EntireColumn<br />
'Set objRange = objWorkSheet.Range("B1").EntireColumn<br />
'objRange.Copy<br />
Set aCell = objWorksheet.Rows(1).Find("Subnet Name",,,1)<br />
<span style="white-space: pre;"> </span><br />
If Not aCell Is Nothing Then<br />
'MsgBox "Value Found in Cell " & aCell.Address & _<br />
'" and the Cell Column Number is " & aCell.Column<br />
<span style="white-space: pre;"> </span>Dim colLetter = Replace(objWorkSheet.Cells(1, aCell.Column).Address(False, False), "1", "")<br />
<span style="white-space: pre;"> </span>MsgBox(colLetter)<br />
<span style="white-space: pre;"> </span>objWorkSheet.Range(colLetter).EntireColumn.Copy<br />
End If<br />
<br />
'objWorkSheet.Range("C:D").EntireColumn.Copy<br />
<br />
<br />
Set objWorksheet2 = objWorkbook2.Worksheets(1)<br />
objWorksheet.Activate<br />
<br />
'Set finalcolumn = 1 + objWorksheet2.Cells(1, 1).End(-4161).Column<br />
'MsgBox(objWorksheet2.UsedRange.Columns(objWorksheet2.UsedRange.Columns.Count).Column) <br />
'To Find Last Column Letter<br />
'MsgBox Replace(objWorksheet2.Cells(1, objWorksheet2.UsedRange.Columns(objWorksheet2.UsedRange.Columns.Count).Column+1).Address(False, False), "1", "")<br />
<br />
objWorkSheet2.Paste objWorkSheet2.Range(Replace(objWorksheet2.Cells(1, objWorksheet2.UsedRange.Columns(objWorksheet2.UsedRange.Columns.Count).Column+1).Address(False, False), "1", "")&"1")<br />
<br />
objWorkbook2.Save<br />
<br />
'close the workbook<br />
objWorkbook2.Close<br />
<br />
'exit the excel program<br />
objExcel.Quit<br />
<br />
Set objExcel = Nothing<br />
Set objWorkbook2 = Nothing<span style="white-space: pre;"> </span><br />
<span style="white-space: pre;"> </span><br />
<div>
<br /></div>
<br /></div>
vijayhttp://www.blogger.com/profile/00652872861687348308noreply@blogger.com0tag:blogger.com,1999:blog-8962172805778769700.post-6217622791936102522012-08-17T06:28:00.001-07:002012-08-17T06:39:52.446-07:00<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: large;"><u style="font-family: Times,"Times New Roman",serif;"><span style="color: blue;">Speech Bubble Component in flex: </span></u></span><br />
<br />
CustomContainerBorderSkin.as<br />
-------------------------------------<br />
package { <br />
import flash.display.Graphics;<br />
import mx.graphics.RectangularDropShadow;<br />
import mx.skins.RectangularBorder; <br />
public class CustomContainerBorderSkin extends RectangularBorder {<br />
<br />
private var dropShadow:RectangularDropShadow;<br />
<br />
// Constructor.<br />
public function CustomContainerBorderSkin() {<br />
}<br />
<br />
override protected function updateDisplayList(unscaledWidth:Number, <br />
unscaledHeight:Number):void <br />
{<br />
<br />
super.updateDisplayList(unscaledWidth, unscaledHeight);<br />
<br />
var cornerRadius:Number = getStyle("cornerRadius");<br />
var backgroundColor:int = getStyle("backgroundColor");<br />
var backgroundAlpha:Number = getStyle("backgroundAlpha");<br />
graphics.clear();<br />
<br />
// Background<br />
drawRoundRect(0, 0, unscaledWidth, unscaledHeight, <br />
{tl: cornerRadius, tr:cornerRadius, bl: cornerRadius, br: cornerRadius}, <br />
backgroundColor, backgroundAlpha);<br />
<br />
// Shadow<br />
if (!dropShadow)<br />
dropShadow = new RectangularDropShadow();<br />
<br />
dropShadow.distance = 8;<br />
dropShadow.angle = 45;<br />
dropShadow.color = 0;<br />
dropShadow.alpha = 0.4;<br />
dropShadow.tlRadius = cornerRadius;<br />
dropShadow.trRadius = cornerRadius;<br />
dropShadow.blRadius = cornerRadius;<br />
dropShadow.brRadius = cornerRadius;<br />
dropShadow.drawShadow(graphics, 0, 0, unscaledWidth, unscaledHeight); <br />
graphics.beginFill(0xCCCC99,0.8);<br />
graphics.moveTo(this.x-80, this.height/2+45);<br />
graphics.lineTo(this.x, this.height/2-20); <br />
graphics.lineTo(this.x, this.height/2+20);<br />
<br />
}<br />
}<br />
}<br />
<br />
Usage of the above component:<br />
----------------------------------------------<br />
<?xml version="1.0" encoding="utf-8"?><br />
<s:Application xmlns:fx="http://ns.adobe.com/mxml/2009" <br />
xmlns:s="library://ns.adobe.com/flex/spark" <br />
xmlns:mx="library://ns.adobe.com/flex/mx" minWidth="955" minHeight="600"><br />
<fx:Declarations><br />
<!-- Place non-visual elements (e.g., services, value objects) here --><br />
</fx:Declarations><br />
<mx:VBox height="100%" width="100%" verticalAlign="middle" horizontalAlign="center"> <br />
<mx:VBox id="vb1"<br />
borderSkin="CustomContainerBorderSkin" <br />
backgroundColor="0xCCCC99"<br />
backgroundAlpha="0.8" <br />
cornerRadius="70" <br />
paddingLeft="20" <br />
paddingTop="20"<br />
paddingRight="20"<br />
paddingBottom="20"<br />
verticalAlign="middle" horizontalAlign="center"<br />
> <br />
<mx:Label text="Speech Bubble" fontSize="24" fontWeight="bold"/><br />
<mx:Form horizontalCenter="0" verticalCenter="0" verticalGap="5" horizontalGap="5"> <br />
<br />
<mx:FormItem horizontalAlign="center" label="User Name" styleName="loginFormItem"><br />
<mx:TextInput id="tipUsername" fontWeight="normal" width="180" height="29" maxChars="15"/><br />
</mx:FormItem><br />
<mx:FormItem horizontalAlign="center" label="Password" styleName="loginFormItem"><br />
<mx:TextInput id="tipPassword" maxChars="8" fontWeight="normal" displayAsPassword="true" height="29" width="180"/><br />
</mx:FormItem><br />
<mx:FormItem direction="horizontal" x="71" y="59" horizontalGap="5"><br />
<mx:Button id="btnLogin" label="Login" /><br />
<mx:Button id="btnCancel" paddingLeft="5" label="Cancel"/><br />
</mx:FormItem><br />
</mx:Form> <br />
</mx:VBox><br />
</mx:VBox><br />
</s:Application><br />
<br />
Output:<br />
--------------- <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicg1mk_L71Apdsqyuc0D-vgRcKlrAaNAZ5bjHOArrG4H1Oz98d3mlzamJZbOKbuhwHBscCrTUG4A_IzExRge9ydfLHwd9jU08M1lQGcwSKsD04rqERknPsmxUt2Nsf4h0_wsYeyoAr0WQ/s1600/speechBubble.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="219" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicg1mk_L71Apdsqyuc0D-vgRcKlrAaNAZ5bjHOArrG4H1Oz98d3mlzamJZbOKbuhwHBscCrTUG4A_IzExRge9ydfLHwd9jU08M1lQGcwSKsD04rqERknPsmxUt2Nsf4h0_wsYeyoAr0WQ/s320/speechBubble.JPG" width="320" /></a></div>
</div>
vijayhttp://www.blogger.com/profile/00652872861687348308noreply@blogger.com7tag:blogger.com,1999:blog-8962172805778769700.post-46465131741696237912011-01-04T09:48:00.000-08:002011-03-25T03:59:58.106-07:00How to Create a sample ASP.NET Web Service and retrieve values from the database :<div dir="ltr" style="text-align: left;" trbidi="on"><u><b>Step 1:</b></u><br />
<br />
Create a database table by name <br />
<br />
doctormaster(DoctorID,Doctor_Name,Specialist,Gender,Phone as columns)in MSSQL <br />
Server database with some data.<br />
Open Microsoft Visual Studio 2008--->>>File--->>> New--->>> <br />
Web Site--->>>Select ASP.NET Web Service--->>><br />
Choose language to "visual c#"<br />
<br />
<u><b>Step 2:</b></u><br />
<br />
In the Service.cs File--->>><br />
Copy paste the given code<br />
<br />
using System;<br />
using System.Collections.Generic;<br />
using System.Linq;<br />
using System.Web;<br />
using System.Web.Services;<br />
using System.Data;<br />
using System.Data.Sql;<br />
using System.Data.SqlClient;<br />
[WebService(Namespace = "http://tempuri.org/")]<br />
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]<br />
// To allow this Web Service to be called from script, using ASP.NET AJAX, <br />
<br />
uncomment the following line. <br />
// [System.Web.Script.Services.ScriptService]<br />
public class Service : System.Web.Services.WebService<br />
{<br />
SqlConnection con = new SqlConnection("Data <br />
<br />
Source=VIJAYVIGNESH\\SQLEXPRESS2008;Initial Catalog=hospital1;Integrated <br />
<br />
Security=True");<br />
SqlCommand cmd = new SqlCommand();<br />
SqlDataReader dr;<br />
public Service () {<br />
<br />
//Uncomment the following line if using designed components <br />
//InitializeComponent(); <br />
}<br />
<br />
[WebMethod]<br />
public string HelloWorld() {<br />
return "Hello World";<br />
}<br />
[WebMethod]<br />
public List<Doctor> getDoctorDetails()<br />
{<br />
var doclist = new List<Doctor>();<br />
Doctor doc;<br />
con.Open();<br />
cmd.Connection = con;<br />
cmd.CommandText = "SELECT * from doctormaster";<br />
dr = cmd.ExecuteReader();<br />
while (dr.Read())<br />
{<br />
doc = new Doctor<br />
{<br />
DoctorID = dr["DoctorID"].ToString(),<br />
Doctor_Name = dr["Doctor_Name"].ToString(),<br />
Specialist = dr["Specialist"].ToString(),<br />
Gender = dr["Gender"].ToString(),<br />
Phone = dr["Phone"].ToString()<br />
};<br />
doclist.Add(doc);<br />
}<br />
return doclist;<br />
}<br />
<br />
}<br />
public class Doctor<br />
{<br />
public string DoctorID = string.Empty;<br />
public string Doctor_Name = string.Empty;<br />
public string Specialist = string.Empty;<br />
public string Gender = string.Empty;<br />
public string Phone = string.Empty;<br />
}<br />
<br />
thats it...!!!!Now you can run the program and click the "getDoctorDetails" Web <br />
Method link in the browser--->>> press invoke.<br />
Output will be in XML Format.Now you can use this web service in any front end <br />
applications.<br />
<br />
[Note: Make Your Own Connection String Instead Of "Data <br />
<br />
Source=VIJAYVIGNESH\\SQLEXPRESS2008;Initial Catalog=hospital1;Integrated <br />
<br />
Security=True"]</div>vijayhttp://www.blogger.com/profile/00652872861687348308noreply@blogger.com5