Try this,
Its should work
var wshshell=new ActiveXObject(" wscript.shell") ;
var username=wshshe ll.ExpandEnviro nmentStrings("% username%");
User Profile
Collapse
-
-
KnightHack replied to Help C#: how to call C++ dll function which is taking pointers as arguments in C#in .NETin C# u can excute the function only which is comes from C++ right
so you have to pass parameters as values
ab() class in vc++
c = new ab()
c.add("1","2")Leave a comment:
-
function checkall()
{
var parentChk = document.form1["Rpt_Potlist:_c tl0:Chk_All"];
if(parentChk.ch ecked)
{
var i = 1
while(true)
{
var Sel = document.form1["Rpt_Potlist:_c tl" + i + ":Chk_Item"];
if (Sel == null) break;
Sel.checked = true;
i++;
}
}
else
{...Leave a comment:
-
'Reading data from CSV and makeing as a table format sending into dataset
'inserting data into ms-access from that dataset
Public Function export_data_fro m_csv_to_Access ()
Try
'Csv folder path
Dim folder As String = Module1.GetMyAp pSetting.Sbuzz_ AppSettings(Mod ule1.XMLLocatio n, "ExtractFolderp ath")
'Csv file path
Dim...Leave a comment:
-
In C# application right click on Addreffrence
It will load one window there browse that DLL and show there path it will load
in your code
Using Dll application Name
create instance and use it ,
Its very simple.Leave a comment:
-
dim Xmldoc as new Xmldocument
xmldoc.load(Xml path)
foreach node as xmlnode in xmldoc.selectsi nglenode("//Item").childnod es
node.innertext will return 1st value
'2nd time 2nd value
nextLeave a comment:
-
-
Create procedure Procedure_Name( @val1 as int,@val2 as varchar(50),@va l3 as datetime)
as
Declare @errins as int
Begin Transaction
Insert into TableName
(col1,col2,col3 )
Values (@val1 , @val2 , @val3 )
--Set Error
Select @errins = @@error
If @errins = 0
Commit TransactionELSE
Rollback Transaction
'run this in this sp in sql server (open sql query analyzer...Leave a comment:
-
You have to know 1st format
inside this string getting 2 date times and
everytime the format is changing,if you use regex also be how u get,
TRY THIS
dim str as string = "ffdfdsf f23183913 fdsfsf ********* "
STR = STR.SUBSTRING(0 OR 1 ,INSTR(STR,"**" ) - 0 OR 1)
GOOD LUCKLeave a comment:
-
[UPC] Is column name [Shock Digital Release$] is Excel form name
Dim Str_MdbCmd As String = "Select Distinct [UPC] from [Shock Digital Release$]"
Dim Str_MdbConn As String = "Provider=Micro soft.Jet.OLEDB. 4.0; "data source= " & ExlFilename & ";" _
& "Extended Properties=Exce l 8.0;"
Dim conn As New OleDbConnection (Str_MdbConn)...Leave a comment:
-
Dim xlApp As New Excel.Applicati on
Dim xlWrkBk As Excel.Workbook
xlWrkBk = xlApp.Workbooks .Open(XLSFileNa me)
Dim xlWrkSht As Excel.Worksheet
xlWrkSht = xlWrkBk.Workshe ets(1)
To_find_Last_ro w = xlWrkSht.Cells. Find(What:="*", SearchDirection :=Excel.XlSearc hDirection.xlPr evious, SearchOrder:=Ex cel.XlSearchOrd er.xlByRows).Ro w
Album_Name = xlWrkSht.Cells( 4, 2).value
UPC =...Leave a comment:
-
Dim Str_MdbConn As String = "Provider=Micro soft.Jet.OLEDB. 4.0;" _
& "data source= " & ExlFilename & ";" _
& "Extended Properties=Exce l 8.0;"
Dim conn As New OleDbConnection (Str_MdbConn)
Try
If conn.State <> ConnectionState .Open Then
...Leave a comment:
-
Imports System.xml
Dim xmlDoc As New XmlDocument
Dim Nodevalue As XmlNode
xmlDoc.Load(XML Path)
NodeValue = .SelectSingleNo de("//*[local-name()='Bluetoo thProfile']")
If Not NodeValue Is Nothing Then DoHa.BluetoothP rofile = NodeValue.Inner Xml()
'Bloothprofile is node name.Leave a comment:
-
No activity results to display
Show More
Leave a comment: