Search Results

Search found 1946 results on 78 pages for 'dim'.

Page 30/78 | < Previous Page | 26 27 28 29 30 31 32 33 34 35 36 37  | Next Page >

• Running a simple VBA script to test a connection

  - by brohjoe

  I'm trying to test the connection of a GoDaddy SQL Server database. I'm getting an 'invalid connection string attribute.' What's wrong with this script? Dim cnn As ADODB.Connection Dim canConnect As Boolean Public Sub TestConnection() Set cnn = New ADODB.Connection cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';" If cnn.State = adStateOpen Then canConnect = True cnn.Close End If MsgBox canConnect End Sub

  Read the article

• Retrieve Value Using Key From a Collection in Access 2000

  - by Mikecancook

  I know this is a simple question but it's aggravating me. If I have a key/value pair in a collection but I can't seem to get the value out using the key. I can get the key using the value but not vice versa. Is there some magical way to accomplish this? For example: Dim CycleList As Collection Dim Value as String Set CycleList = New Collection CycleList.Add 1, "Some Value" Value = CycleList(1) I've also tried CycleList.Item(1) and it's the same result, Value = 1.

  Read the article

• system.LinQ.Iqueryable(of date) cannot be converted to date

  - by acadia

  Hello, I am trying to fetch data using linQ as shown below. dim rerun as datetime Dim q = (From a In dashboard Where a.SucessFlag = 0 And a.ApplicationID = 1 _ Select a.logDate) rerunDate = q I am getting this system.LinQ.Iqueryable(of date) cannot be converted to date Any workaround will be greatly appreciated.

  Read the article

• Croping images with no loss using .NET

  - by zaladane

  I am trying to understand why after croping an image in .NET i end up with an image 3 times the size of the original image. Listed below is the code i am using to crop the image Private Shared Function CropImage(ByVal img As Image, ByVal cropArea As Rectangle) As Image Dim bmpImage As Bitmap = New Bitmap(img) Dim bmpCrop As Bitmap = bmpImage.Clone(cropArea, img.PixelFormat) Return CType(bmpCrop, Image) End Function where img is the original image loaded from file into an image object. How can i achieve a loss less cropping of my image?

  Read the article

• vb.net -- Using arraylist as key in dictionary

  - by Zahid

  Dim dct As New Dictionary(Of ArrayList, ArrayList) ' Populate Dictionary dct.Add(New ArrayList({"Dot", "0"}), New ArrayList({20, 30, 40, 50})) dct.Add(New ArrayList({"Dot", "1"}), New ArrayList({120, 130, 140, 150})) ' Search in dictionary Dim al As New ArrayList({"Dot", "2"}) If dct.ContainsKey(al) Then *' does not work* MessageBox.Show("Found: " & al(0).ToString) End If

  Read the article

• VBA How to find last insert id?

  - by Muiter

  I have this code: With shtControleblad Dim strsql_basis As String strsql_basis = "INSERT INTO is_calculatie (offerte_id) VALUES ('" & Sheets("controleblad").Range("D1").Value & "')" rs.Open strsql_basis, oConn, adOpenDynamic, adLockOptimistic Dim last_id As String last_id = "select last_insert_id()" End With The string last_id is not filled. What is wrong? I need to find te last_insert_id so I can use it in an other query.

  Read the article

• convert Arabic numerical to English

  - by hamitay

  i am looking for a way to convert the Arabic numerical string "??????????" to an English numerical string "0123456789" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim Anum as string ="??????????" dim Enum as string =get_egnlishNum(Anum) End Sub private function get_egnlishNum(byval _Anum as string) as string '' converting code end function

  Read the article

• Best way to run remote VBScript in ASP.net? WMI or PsExec?

  - by envinyater

  I am doing some research to find out the best and most efficient method for this. I will need to execute remote scripts on a number of Window Servers/Computers (while we are building them). I have a web application that is going to automate this task, I currently have my prototype working to use PsExec to execute remote scripts. This requires PsExec to be installed on the system. A colleague suggested I should use WMI for this. I did some research in WMI and I couldn't find what I'm looking for. I want to either upload the script to the server and execute it and read the results, or already have the script on the server and execute it and read the results. I would prefer the first option though! Which is more ideal, PsExec or WMI? For reference, this is my prototype PsExec code. This script is only executing a small script to get the Windows OS and Service Pack Info. Protected Sub windowsScript(ByVal COMPUTERNAME As String) ' Create an array to store VBScript results Dim winVariables(2) As String nameLabel.Text = Name.Text ' Use PsExec to execute remote scripts Dim Proc As New System.Diagnostics.Process ' Run PsExec locally Proc.StartInfo = New ProcessStartInfo("C:\Windows\psexec.exe") ' Pass in following arguments to PsExec Proc.StartInfo.Arguments = COMPUTERNAME & " -s cmd /C c:\systemInfo.vbs" Proc.StartInfo.RedirectStandardInput = True Proc.StartInfo.RedirectStandardOutput = True Proc.StartInfo.UseShellExecute = False Proc.Start() ' Pause for script to run System.Threading.Thread.Sleep(1500) Proc.Close() System.Threading.Thread.Sleep(2500) 'Allows the system a chance to finish with the process. Dim filePath As String = COMPUTERNAME & "\TTO\somefile.txt" 'Download file created by script on Remote system to local system My.Computer.Network.DownloadFile(filePath, "C:\somefile.txt") System.Threading.Thread.Sleep(1000) ' Pause so file gets downloaded ''Import data from text file into variables textRead("C:\somefile.txt", winVariables) WindowsOSLbl.Text = winVariables(0).ToString() SvcPckLbl.Text = winVariables(1).ToString() System.Threading.Thread.Sleep(1000) ' ''Delete the file on server - we don't need it anymore Dim Proc2 As New System.Diagnostics.Process Proc2.StartInfo = New ProcessStartInfo("C:\Windows\psexec.exe") Proc2.StartInfo.Arguments = COMPUTERNAME & " -s cmd /C del c:\somefile.txt" Proc2.StartInfo.RedirectStandardInput = True Proc2.StartInfo.RedirectStandardOutput = True Proc2.StartInfo.UseShellExecute = False Proc2.Start() System.Threading.Thread.Sleep(500) Proc2.Close() ' Delete file locally File.Delete("C:\somefile.txt") End Sub

  Read the article

• Need this VB code changed into Python.

  - by David

  I wrote this code in VB to label columns in a table but now im writting a python script to automate the process and i can't make it work. Any thoughts?? Static v1 as variant Static v2 as variant Dim Output as double Dim Start as double Start = 1 If v2 = [XMIN] Then Output = v1 Else Output = v1 + 1 End If v1 = Output v2 = [XMIN]

  Read the article

• Invalid cast exception

  - by user127147

  I have a simple application to store address details and edit them. I have been away from VB for a few years now and need to refreash my knowledge while working to a tight deadline. I have a general Sub responsible for displaying a form where user can add contact details (by pressing button add) and edit them (by pressing button edit). This sub is stored in a class Contact. The way it is supposed to work is that there is a list with all the contacts and when new contact is added a new entry is displayed. If user wants to edit given entry he or she selects it and presses edit button Public Sub Display() Dim C As New Contact C.Cont = InputBox("Enter a title for this contact.") C.Fname = frmAddCont.txtFName.Text C.Surname = frmAddCont.txtSName.Text C.Address = frmAddCont.txtAddress.Text frmStart.lstContact.Items.Add(C.Cont.ToString) End Sub I call it from the form responsible for adding new contacts by Dim C As New Contact C.Display() and it works just fine. However when I try to do something similar using the edit button I get errors - "Unable to cast object of type 'System.String' to type 'AddressBook.Contact'." Dim C As Contact If lstContact.SelectedItem IsNot Nothing Then C = lstContact.SelectedItem() C.Display() End If I think it may be something simple however I wasn't able to fix it and given short time I have I decided to ask for help here. I have updated my class with advice from other members and here is the final version (there are some problems however). When I click on the edit button it displays only the input box for the title of the contact and actually adds another entry in the list with previous data for first name, second name etc. Public Class Contact Public Contact As String Public Fname As String Public Surname As String Public Address As String Private myCont As String Public Property Cont() Get Return myCont End Get Set(ByVal value) myCont = Value End Set End Property Public Overrides Function ToString() As String Return Me.Cont End Function Sub NewContact() FName = frmAddCont.txtFName.ToString frmStart.lstContact.Items.Add(FName) frmAddCont.Hide() End Sub Public Sub Display() Dim C As New Contact C.Cont = InputBox("Enter a title for this contact.") C.Fname = frmAddCont.txtFName.Text C.Surname = frmAddCont.txtSName.Text C.Address = frmAddCont.txtAddress.Text 'frmStart.lstContact.Items.Add(C.Cont.ToString) frmStart.lstContact.Items.Add(C) End Sub End Class

  Read the article

• LINQ-TO-XML not returning all value

  - by mmcglynn

  I am trying to get all values in the select. using item.Count shows the correct number of values, but only one .Value is returned from the loop. Why? Dim fooXML As XDocument = XDocument.Load(Server.MapPath("xml/foo.xml")) Dim query = _ From c In fooXML...<foobaryear> _ Select c...<event> For Each item In query Response.Write(item.Value) Next

  Read the article

• VB script want to run .bat file from VB

  - by yael

  hi I am try to run the go.bat from VB but when I run the script I get: :cant find specific file but from the cmd window the file go.bat exsit what the problem? Dim MyShell Dim shell_cmd shell_cmd = "C:\Program Files\dir1\dir2\wizard\go.bat" set MyShell = CreateObject("WScript.Shell") MyShell.Run shell_cmd, 1, 1 from cmd window C:\Program Files\dir1\dir2\wizardgo.bat

  Read the article

• Flickr get latest photos ASP using API

  - by StevieB

  Hey I am currently using the following code Dim flickr As New Flickr("apikey") Dim test As New Photos test = flickr.PhotosGetRecent(5, 5) For Each [Photo] As FlickrNet.Photo In test.PhotoCollection Response.Write([Photo].ThumbnailUrl) Response.Write("<br>") Next But this only returns the Most Recent photos uploaded to flick in General, I only want my own ones. Is this possible ? Thanks

  Read the article

• JSON parsing using JSON.net

  - by vbNewbie

  I am accessing the facebook api and using the json.net library (newtonsoft.json.net) I declare a Jobject to parse the content and look for the specific elements and get their values. Everything works fine for the first few but then I get this unexplained nullexception error " (Object reference not set to an instance of an object) Now I took a look at the declaration but cannot see how to change it. Any help appreciated: Dim jobj as JObject = JObject.Parse(responseData) Dim message as string = string.empty message = jobj("message").tostring The error occurs at the last line above.

  Read the article

• How can I check for missing references in VB.NET?

  - by Tea With Cookies

  I need to check if all the references in a project exist to avoid possible errors but I can't find anywhere how to do it in VB.NET. I can do it in VBA like this: Dim vbProj As VBProject Dim chkRef As Reference Set vbProj = ThisWorkbook.VBProject For Each chkRef In vbProj.References If chkRef.IsBroken Then Debug.Print chkRef.Name " reference doesn't exist!" End If Next How do I accomplish this in VB.NET?

  Read the article

• Best practice or performance difference between ToString() and & concatenation

  - by slolife

  When I am concatenating object values together to form a string in VB.NET, is there a difference in performance or a recommended best practice between using the & concat or the + concat with calls to .ToString() on each object? Example (which is faster or best practice): Dim result1 As String = 10 & "em" Dim result2 As String = 10.ToString() + "em"

  Read the article

• how to work with datagridview if need show many columns data (approx 1Mio)

  - by ruprog

  is a problem to display data in Datagridview. A large amount of data (stock quotes) data to be displayed from left to right Tell me what to do to display an array of data in datagridviev Public dat As New List(Of act) Public Class act Public time As Date Public price As Integer End Class Sub work() Dim r As New Random For x As Integer = 0 To 1000000 Dim el As New act el.time = Now el.price = r.Next(0, 1000) dat.Add(New act) Next End Sub

  Read the article

• How do I pass an asp variable to a selectcommand?

  - by Anthony

  I am trying to pass a variable "PIN2" that I am retrieving like below to a SelectCommand statement in a asp SqlDataSource tag <% Dim PIN As String = Request.ServerVariables("LOGON_USER") Dim PIN2 As String = Right(PIN, 6) %> Thanks

  Read the article

• Can you move a file/folder across a network share in .NET?

  - by Matt Thrower

  Trying to do this: Dim originalPath As String = "\\comp1\c$\target" Dim destinationPath As String = "\\comp2\c$\target" If Directory.Exists(path) Then Directory.Move(originalPath, destinationPath) End If But it fails. Is there another way I can achieve the same effect?

  Read the article

• What is the difference between Range.Columns and Range.EntireColumn

  - by Laurent

  Dim r as Range Set r = Range("C2:D3") Dim r1 as Range, r2 as Range Set r1 = r.EntireColumn Set r2 = r.Columns Won't both ranges represent the range "C:D"? What is the difference between the two?

  Read the article

• Loop Stored Procedure in VB.Net (win form)

  - by Mo

  Hello, I am trying to run a for loop for a backup system and inside that i want to run a SP that will loop. Below is the code that does not work for me.. Any ideas please? Dim TotalTables As Integer Dim i As Integer TotalTables = 10 For i = 1 To TotalTables objDL.BackupTables(220, i, 001) ' (This is a method from the DL and the 3 parameters are integars) Next I tried the SP and it works perfectly in SQLServer

  Read the article

• convert a sql statement to class?

  - by walter

  Is there a tool or code to convert a sql statement to class? Something like: Dim sqlText = "SELECT CustomerID, Name, Address, City FROM dbo.Customer WHERE CustomerID = 1" Dim obj As New ***SqlStatementTool***(sqlText) obj.GetTables() 'Will Return Tables in sqlText obj.GetWheres() 'Will Return conditions in sqltext obj.GetParameters() 'will return parameters in sqltext

  Read the article

• How to adjust asp.net URL routing based on domain/host?

  - by DrewF

  What's the best way to adjust the path destination for a routing table created in the global.asax Application_Start event based on the domain/sub domain/host? The following worked in IIS6, but with IIS7 the request object is decoupled from the Application_Start event and therefore does not work anymore: Dim strHost As String = Context.Request.Url.Host Dim strDir As String = "" If strHost.Contains("domain1.com") Then strDir = "area1/" Else strDir = "area2/" End If routes.MapPageRoute("Search", "Search", "~/" & strDir & "search.aspx")

  Read the article

• what's wrong in my vb.net program ?

  - by user292084

  Public Class Class1 Dim obj As Object Dim str As String '???XML?? Set Obj = CreateObject(U8Distribute.iDistribute) Str=obj.Process(sXml) 'sXml????XML?? SXML?String? End Class

  Read the article

• I've caught an exception!! Now what?

  - by Jonesy

  Hi folks, I've started using try catch blocks (bit late i know!) but now im not sure what to do with the exception once i've caught it. What do people usually do here? -- Jonesy Try connection.Open() Dim sqlCmd As New SqlCommand("do some SQL", connection) Dim sqlDa As New SqlDataAdapter(sqlCmd) sqlDa.Fill(dt) Catch ex As SQLException ' ahhhh what to do now!!!? Finally connection.Close() End Try

  Read the article

< Previous Page | 26 27 28 29 30 31 32 33 34 35 36 37  | Next Page >