|
Sorry, I meant what values do you use to change what cursors to use?
|
|
|
|
|
You haven't opened REGEDIT and looked in the key, have you?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
That's becuase you haven't changed any Cursor settings. Go into the Mouse control panel and change the cursor setup and it'll write new settings under that key.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
|
campbells wrote: Dim dbb As Database
There is no type called "Database", unless you define it somewhere. The error means that you haven't defined it anywhere.
campbells wrote: 'Check to see if sp exists and delete it if it does.
strSQL = "if exists "
strSQL = strSQL & "SELECT dep.[name],dep.deptcode,dep.deptdesc,dep.depttotal, (dep.DeptTotal / "
strSQL = strSQL & "(SELECT SUM(ti.totalsales)"
strSQL = strSQL & "FROM tot_item ti)) * 100 AS PercentOfSales"
strSQL = strSQL & "FROM (SELECT v.[name],d.deptcode,d.deptdesc, SUM(ti.totalsales) AS DeptTotal"
strSQL = strSQL & "FROM item i ,vendor v,tot_item ti INNER JOIN dept d ON"
strSQL = strSQL & "(ti.deptcode=d.deptcode) where ti.itemcode=i.itemcode and v.vendorid=i.vendorid and v.name<=@vvfrom"
strSQL = strSQL & "group by v.[name],d.deptcode,d.deptdesc) AS dep"
strSQL = strSQL & "ORDER BY dep.[name] ASC"
strSQL = strSQL & "DROP PROCEDURE dbo.sp_ReturnParams"
You do know that you can store this stuff in the database as a Stored Procedure, then just call the procedure from your code, right?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dim oConnection As SqlConnection
Dim oCommand As SqlCommand
oCommand.Connection = oConnection
' Name of stored procedure you want to call...
oCommand.CommandText = "GetSystemParameter"
oCommand.CommandType = CommandType.StoredProcedure
Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25)
sqlParam.Direction = ParameterDirection.Input
sqlParam.Value = sParamName
oCommand.Parameters.Add(sqlParam)
oConnection.Open()
oCommand.ExecuteNonQuery()
oConnection.Close()
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I try to do some code which receive data and write into textfile. Somehow, it didn't work. Could anyone just kindly my problem? Below is my coding.
Public Class PropertyCreateFile
Dim Str As ArrayList
Dim Ctr As Integer
Public Property Data() As ArrayList
Get
Return Str
End Get
Set(ByVal Value As ArrayList)
Str = Value
End Set
End Property
Public Property Counter() As Integer
Get
Return Ctr
End Get
Set(ByVal Value As Integer)
Ctr = Value
End Set
End Property
End Class
Public Class CreateFileCTL
Private CurDir As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)
Public Function CreateTextFile(ByVal CreatePP As PropertyCreateFile) As String
Dim sFilename As String = (CurDir & "/Testing.txt")
Dim b As Integer = 0
Try
Dim oFile As FileStream = New FileStream(sFilename, FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
Dim oWriter As StreamWriter = New StreamWriter(oFile)
For b = 0 To CreatePP.Counter
oWriter.WriteLine(CreatePP.Data)
b += 1
Next
oWriter.Close()
oFile.Close()
Catch
MsgBox("No Such File")
End Try
Return Nothing
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Data1 As New PropertyCreateFile
Dim aa As New ArrayList
aa.Add("a")
aa.Add("b")
aa.Add("c")
Data1.Data = aa
Data1.Counter = 3
aaa.CreateTextFile(Data1)
End Sub
|
|
|
|
|
Hey,
Try this:
<br />
Imports System<br />
Imports System.IO<br />
<br />
Class WriteFile<br />
Private Sub WriteText()<br />
' Create an instance of StreamWriter to write text to a file.<br />
Using sw As StreamWriter = New StreamWriter("TestFile.txt")<br />
' Add some text to the file.<br />
sw.Write("Testing ")<br />
sw.WriteLine("writing text to a file.")<br />
sw.WriteLine("-------------------")<br />
sw.Close()<br />
End Using<br />
End Sub<br />
End Class<br />
Let me know if this works for you.
|
|
|
|
|
It is the same way that i am doing and it doesn't work. The data that copied into
textfile is not what i want. The data shown in textfile is systam.collection.arraylist and what i want is a,b and c. Anyway, thanx for help!
|
|
|
|
|
I have a Datagrid, in first column i have a series of BoundColumns,
in the second column of my first datagrid i insert in runtime a datagrid,
adding boundcolumns and a template column, in the template column i add a imagebutton with this code
tc.ItemTemplate = New newImageBotonColumn("SAP.jpg", , , "Ruta", "dcRuta")
dgfechas.Columns.Add(tc)
but the command and click event don´t make anything.What´s wrong?
Public Class newImageBotonColumn
Public Sub InstantiateIn(ByVal container As Control) Implements System.Web.UI.ITemplate.InstantiateIn
Dim imgboton As New ImageButton
AddHandler imgboton.DataBinding, AddressOf Me.BindImageButtonColumn
container.Controls.Add(imgboton)
End Sub 'InstantiateIn
Public Sub BindImageButtonColumn(ByVal sender As Object, ByVal e As EventArgs)
Dim lbl As ImageButton = CType(sender, ImageButton)
lbl.CommandArgument = argumento
lbl.CommandName = comando
End Sub 'BindLabelColumn
end class
Roberto
|
|
|
|
|
Sometimes out of nowhere when I try to debug, an error like this occurs. Sometimes for no reason when there isn't even any code. Like I had to delete a varible in my app one time because it made the program freak out. The full message says:
An error occurred creating the form. See Exception.InnerException for details. The error is: Failed to initialize because CategoryName is missing.
Anyone know why this happens so randomly? Thanks!
P.S. It mostly happens with the Performance Counter and varibles like this: Private VaribleName As Integer , but it mostly happens for no reason.
|
|
|
|
|
What version of VIsual Studio are you using?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Visual Basic Studio 2005 Express.
|
|
|
|
|
The sole instance of that error message I found had to do with the PerformanceCounter class. Are you using a PerformanceCounter in your code?
If so, then this[^] is probably what you're looking for.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Thanks man! Big help!
|
|
|
|
|
Does anyone know how i can open a locked Access 2000 Database?
The database got locked, when multiple user are trying to access the same record.
I cannot open the database again. Any utility to open this database will be appreciated
t.aransiola
|
|
|
|
|
There is an ldb file. Delete it. Don't delete the mdb one as it is your database.
|
|
|
|
|
i ve deleted the .ldb file yet the database could not be opened
t.aransiola
|
|
|
|
|
Hi there,
was giving a task today to find out how to make a program where we have 3 text boxes and it sorts the numbers in these boxes into asceding/discending order but im kinda having trouble with it, tryed searching but couldnt find anything. can someone lend a hand or point in the direction to go
also here is a screenshot
http://www.ultima-ws.ath.cx/files/vb.jpg
thanks
Option Strict On
Public Class Form1
Dim rlmemory1 As Single
Dim rlmemory2 As Single
Dim rlmemory3 As Single
Dim rlinput1 As Single
Dim rlinput2 As Single
Dim rlinput3 As Single
Private Sub btnAsc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAsc.Click
rlinput1 = CSng(txtInput1.Text)
rlinput2 = CSng(txtInput2.Text)
rlinput3 = CSng(txtInput3.Text)
rlmemory1 = rlinput1
rlmemory2 = rlinput2
rlmemory3 = rlinput
If IsNumeric(txtInput1.Text) = False Then
MsgBox("Please input numeric value to input1")
ElseIf IsNumeric(txtInput2.Text) = False Then
MsgBox("Please input numeric value to input2")
ElseIf IsNumeric(txtInput3.Text) = False Then
MsgBox("Please input numeric value to input3")
End If
If rlmemory3 > rlmemory1 Then
txtInput1.Text = CStr(rlmemory3)
txtInput3.Text = CStr(rlmemory1)
End If
If rlmemory2 > rlmemory1 Then
txtInput1.Text = CStr(rlmemory2)
txtInput2.Text = CStr(rlmemory1)
End If
If rlmemory3 > rlmemory2 Then
txtInput2.Text = CStr(rlmemory3)
txtInput3.Text = CStr(rlmemory2)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rlmemory1 = 0
rlmemory2 = 0
rlmemory3 = 0
End Sub
End Class
-- modified at 12:29 Tuesday 10th October, 2006
|
|
|
|
|
Try this:
Dim storagelist(2) As String
storagelist(0) = me.textbox1.text
storagelist(1) = me.textbox2.text
storagelist(2) = me.textbox3.text
Array.Sort(storagelist)
This will sort the three textboxes in an array
|
|
|
|
|
|
just noticed it only works with single digits any way to make it more. i.e when i input "1""3""22" it will ascend it to "1""22""3"
|
|
|
|
|
I am about to start a new project that requires using SQL statements. Where as before, I concatanated my SQL statements within VB.net, is there a better way of doing this. I read in some articles that this is not good practice. Should I start using stored procedure methods or use string builder. Any user experiance would be appreciated
What are the pros and cons of doing it my way or should I start doing it different or just continue as before.
|
|
|
|