global $gSqlInstance, $gSqlUser, $gSqlPassword, $gSqlDatabase
$gSqlInstance="IP"
$gSqlUser="ID"
$gSqlPassword="PWD"
$gSqlDatabase="DBNAME"
$connectString="DRIVER={SQL Server};SERVER=" & $gSqlInstance & ";uid=" & $gSqlUser & ";pwd=" & $gSqlPassword & ";DATABASE=" & $gSqlDatabase & ";"
$sqlCmd = "SELECT * FROM TABLE"
$str = ""
$recordcount =0
$db = ObjCreate ("ADODB.Connection")
$db.Open ($connectString)
if @error Then
MsgBox(0, "ERROR", "Failed to connect to the database")
Exit
EndIf
$result = $db.Execute($sqlCmd)
For $Field In $result.Fields
$str = $str & $Field.name & @TAB
Next
$str = $str & @CRLF
While $result.eof <> TRUE
For $Field In $result.Fields
$sValue = $result.Fields($Field.name).value
$str = $str & $sValue & @TAB
Next
$str = $str & @CRLF
$recordcount +=1
$result.MoveNext
WEnd
MsgBox(0, "", "Total:" & $recordcount & @CRLF & $str)
$db.Close
2014年11月10日 星期一
2014年9月2日 星期二
using DataAdapter to DataTable
string cs = System.Web.Configuration.WebConfigurationManager.ConnectionStrings["ConnectionString"].ConnectionString;
//1.SqlConnection
using (SqlConnection cn = new SqlConnection(cs))
{
//2.SqlCommand
using (SqlCommand cmd = new SqlCommand(sqlCMD, cn))
{
//3.SqlDataAdapter
using (SqlDataAdapter da = new SqlDataAdapter(cmd))
{
//4.DataSet or DataTable //Fill
//===========================================
}
}
}
//1.SqlConnection
using (SqlConnection cn = new SqlConnection(cs))
{
//2.SqlCommand
using (SqlCommand cmd = new SqlCommand(sqlCMD, cn))
{
//3.SqlDataAdapter
using (SqlDataAdapter da = new SqlDataAdapter(cmd))
{
//4.DataSet or DataTable //Fill
//===========================================
}
}
}
2014年7月9日 星期三
Microsoft.Office.Interop.Excel
#region Open xlsx file.
Microsoft.Office.Interop.Excel.Application excel = new Application();
Workbook workBook = excel.Workbooks.Open(FileLocation);
Workbook myBook = excel.Workbooks[1];
Microsoft.Office.Interop.Excel._Worksheet workSheet;
#endregion
#region Set Active Sheet 1
workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Worksheets[1];
Microsoft.Office.Interop.Excel.Range wsCell = workSheet.Cells;
#endregion
//Insert Image
protected void insImg(string Rag, string fileLocation, object wkst, int width, int height)
{
float left, top;
left = Convert.ToSingle(((Worksheet)wkst).get_Range(Rag).Left);
top = Convert.ToSingle(((Worksheet)wkst).get_Range(Rag).Top);
((Worksheet)wkst).Shapes.AddPicture(fileLocation, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, left, top, width, height);
}//指定Range
protected void insImg(string fileLocation, object wkst, object wcell, float left, float top, int width, int height)
{
((Worksheet)wkst).Shapes.AddPicture(fileLocation, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, left, top, width, height);
}//指定特定位置
//Embed Files
protected void insItem(string Rag, string fileLocation, object wkst, object Left, object Top)
{
OLEObjects oleObjects1 = (Microsoft.Office.Interop.Excel.OLEObjects)((Worksheet)wkst).OLEObjects(Type.Missing);
((Worksheet)wkst).get_Range(Rag, Rag).Select();
oleObjects1.Add(
Type.Missing, // ClassType
@fileLocation, // Filename
false, // Link
true, // DisplayAsIcon
Type.Missing, // IconFileName
Type.Missing, // IconIndex
Type.Missing, // IconLabel
Left, // Left
Top, // Top
Type.Missing, // Width
Type.Missing // Height
);
}//指定Range
protected void insItem(string fileLocation, object wkst, object wcell, object Left, object Top)
{
OLEObjects oleObjects1 = (Microsoft.Office.Interop.Excel.OLEObjects)((Worksheet)wkst).OLEObjects(Type.Missing);
((Worksheet)wkst).get_Range((Microsoft.Office.Interop.Excel.Range)wcell, (Microsoft.Office.Interop.Excel.Range)wcell).Select();
oleObjects1.Add(
Type.Missing, // ClassType
@fileLocation, // Filename
false, // Link
true, // DisplayAsIcon
Type.Missing, // IconFileName
Type.Missing, // IconIndex
Type.Missing, // IconLabel
Left, // Left
Top, // Top
Type.Missing, // Width
Type.Missing // Height
);
}//指定特定位置
#region Release & Kill Process
//Release
RLS(workSheet);
if (workBook != null) workBook.Close(false, Type.Missing, Type.Missing);
RLS(workBook);
if (excel != null) excel.Quit();
RLS(excel);
//Kill Process EXCEL.EXE
foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())
{
if (p.ProcessName.ToUpper() == "EXCEL")
p.Kill();
}
#endregion
private void RLS(Object o)
{
try { System.Runtime.InteropServices.Marshal.ReleaseComObject(o); }
catch { }
finally { o = null; }
}
Microsoft.Office.Interop.Excel.Application excel = new Application();
Workbook workBook = excel.Workbooks.Open(FileLocation);
Workbook myBook = excel.Workbooks[1];
Microsoft.Office.Interop.Excel._Worksheet workSheet;
#endregion
#region Set Active Sheet 1
workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Worksheets[1];
Microsoft.Office.Interop.Excel.Range wsCell = workSheet.Cells;
#endregion
//Insert Image
protected void insImg(string Rag, string fileLocation, object wkst, int width, int height)
{
float left, top;
left = Convert.ToSingle(((Worksheet)wkst).get_Range(Rag).Left);
top = Convert.ToSingle(((Worksheet)wkst).get_Range(Rag).Top);
((Worksheet)wkst).Shapes.AddPicture(fileLocation, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, left, top, width, height);
}//指定Range
protected void insImg(string fileLocation, object wkst, object wcell, float left, float top, int width, int height)
{
((Worksheet)wkst).Shapes.AddPicture(fileLocation, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, left, top, width, height);
}//指定特定位置
//Embed Files
protected void insItem(string Rag, string fileLocation, object wkst, object Left, object Top)
{
OLEObjects oleObjects1 = (Microsoft.Office.Interop.Excel.OLEObjects)((Worksheet)wkst).OLEObjects(Type.Missing);
((Worksheet)wkst).get_Range(Rag, Rag).Select();
oleObjects1.Add(
Type.Missing, // ClassType
@fileLocation, // Filename
false, // Link
true, // DisplayAsIcon
Type.Missing, // IconFileName
Type.Missing, // IconIndex
Type.Missing, // IconLabel
Left, // Left
Top, // Top
Type.Missing, // Width
Type.Missing // Height
);
}//指定Range
protected void insItem(string fileLocation, object wkst, object wcell, object Left, object Top)
{
OLEObjects oleObjects1 = (Microsoft.Office.Interop.Excel.OLEObjects)((Worksheet)wkst).OLEObjects(Type.Missing);
((Worksheet)wkst).get_Range((Microsoft.Office.Interop.Excel.Range)wcell, (Microsoft.Office.Interop.Excel.Range)wcell).Select();
oleObjects1.Add(
Type.Missing, // ClassType
@fileLocation, // Filename
false, // Link
true, // DisplayAsIcon
Type.Missing, // IconFileName
Type.Missing, // IconIndex
Type.Missing, // IconLabel
Left, // Left
Top, // Top
Type.Missing, // Width
Type.Missing // Height
);
}//指定特定位置
#region Release & Kill Process
//Release
RLS(workSheet);
if (workBook != null) workBook.Close(false, Type.Missing, Type.Missing);
RLS(workBook);
if (excel != null) excel.Quit();
RLS(excel);
//Kill Process EXCEL.EXE
foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())
{
if (p.ProcessName.ToUpper() == "EXCEL")
p.Kill();
}
#endregion
private void RLS(Object o)
{
try { System.Runtime.InteropServices.Marshal.ReleaseComObject(o); }
catch { }
finally { o = null; }
}
訂閱:
文章 (Atom)