|
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.
|
|
|
|
|
You should use Procedures. Try googling Parameterized Queries.
Mike Lasseter
|
|
|
|
|
Stored procedures are often the best way to go, but you will be limited in how you can create your SQL statements. A stored procedure has to be able to be compiled when saved, which means the compiler needs to know the fields to retrieve/update and the criteria to use when exucuting the procedure. With highly dynamic SQL, this is often not an option.
In short, use a stored procedure if possible. Another option is to create SQL views and call those to retrieve data. If you're going to process the views though (i.e. retrieve a subset of data from a view), wrap that code in a stored procedure if possible.
james
commercial developer, author, speaker, dude.
www.jamesfoxall.com
|
|
|
|
|
I am writing a program that display a report with the help of Crystal report.
My main report is very fine but my 2 sub reports wouldn’t show data. What is wrong?
Also I have two logos on the report. One of them is constant but the other a .jpeg file needs to be changed at run time. How can I do this?
I am using crystal Report XI and my database is in MS Access.
Thanks you for your help.
ihe
|
|
|
|
|
Check the joins of your query providing the data to your sub reports. Chances are you have linked 2 or more tables together, but one of them has no related data. If this is the case, then change the link to Always show data from the main table.
Steve Jowett
|
|
|
|
|
Please your explanation is unclear to me.
The query for the main report is
SELECT ComplusoryFields.CFactor, ComplusoryFields.MudWeight, ComplusoryFields.CirculationRate, ComplusoryFields.CurrencyForMudCost, ComplusoryFields.WellName, ComplusoryFields.ReportType, ComplusoryFields.DataDate, DataIdentity.DataID, ActivitityRemarks.Remark, DrillingMudProperty.Alkanity, DrillingMudProperty.API, DrillingMudProperty.Chlorides, DrillingMudProperty.FlowLineTemperature, DrillingMudProperty.Gel0Mins, DrillingMudProperty.Gel10Mins, DrillingMudProperty.HTHPFilterates, DrillingMudProperty.MBT, DrillingMudProperty.YP, DrillingMudProperty.PV, DrillingMudProperty.MudWeightIn, DrillingMudProperty.MudWeightOut, DrillingMudProperty.Water, DrillingMudProperty.Solids, DrillingMudProperty.Oil, DrillingMudProperty.AveROP, DrillingMudProperty.MaxROP, DrillingMudProperty.VIS, DrillingMudProperty.ShaleDensity, DrillingMudProperty.ShaleFactor, DrillingMudProperty.FlowLineTemperatureScale, DrillingMudProperty.pH, MudWeightChanges.Depth, MudWeightChanges.OldMW, MudWeightChanges.NewMW, PressureLosses.DxC, PressureLosses.EMWLOT, PressureLosses.EstOverBalance, PressureLosses.EstFratureLoss, PressureLosses.EstPorePressureLoss, PressureLosses.MWDPressureLoss, PressureLosses.PipeRunSpeed, PressureLosses.CasingShoePressureLoss, PressureLosses.DxTrend, PressureLosses.EMWLOT2, PressureLosses.EstFratureLoss2, PressureLosses.EstPorePressureLoss2, PressureLosses.HydrostaticsPressure, PressureLosses.HydrostaticsPressure2, ReduceCirculatingRates.Pressure, ReduceCirculatingRates.SPM, ReduceCirculatingRates.Pump, Reports.ADT1, Reports.ADT2, Reports.Operator, Reports.Contractor, Reports.TVDDepth, Reports.MDDepth, Reports.Rig, Reports.Operation, Reports.ImagePath, Reports.SpudDate, ComplusoryFields.MudCost_Notes, ComplusoryFields.MudCost_Coins
FROM Reports RIGHT JOIN ((PressureLosses RIGHT JOIN (MudWeightChanges RIGHT JOIN (DrillingMudProperty RIGHT JOIN (ActivitityRemarks RIGHT JOIN (ComplusoryFields RIGHT JOIN DataIdentity ON ComplusoryFields.DataID = DataIdentity.DataID) ON ActivitityRemarks.DataId = ComplusoryFields.DataID) ON DrillingMudProperty.DataID = DataIdentity.DataID) ON MudWeightChanges.DataID = DataIdentity.DataID) ON PressureLosses.DataID = DataIdentity.DataID) LEFT JOIN ReduceCirculatingRates ON DataIdentity.DataID = ReduceCirculatingRates.dataId) ON Reports.DataID = DataIdentity.DataID;
The query for the subrepotA is
SELECT DataIdentity.DataID, DrillingPumps.PumpNumber, DrillingPumps.RodDiameter, DrillingPumps.StrokeLength, DrillingPumps.Efficency, DrillingPumps.PumpOutPut, DrillingPumps.PumpSize, DrillingPumps.LinearDiameter, DrillingPumps.PumpType, DrillingPumps.PumpStatus, ComplusoryFields_1.DataDate, ComplusoryFields_1.ReportType, ComplusoryFields_1.CurrencyForMudCost, ComplusoryFields_1.CirculationRate, ComplusoryFields_1.MudWeight, ComplusoryFields_1.CFactor
FROM DataIdentity LEFT JOIN (DrillingPumps RIGHT JOIN ComplusoryFields AS ComplusoryFields_1 ON DrillingPumps.DataID = ComplusoryFields_1.DataID) ON DataIdentity.DataID = ComplusoryFields_1.DataID;
And The query for the subrepotB is
SELECT BottomHoleAssembly.HoleOrCasingType, BottomHoleAssembly.HoleInnerDiameter, BottomHoleAssembly.PipeOrCollarType, BottomHoleAssembly.PipeInnerDiameter, BottomHoleAssembly.PipeOuterDiameter, BottomHoleAssembly.PipeAndCasingLength, ComplusoryFields.CFactor, ComplusoryFields.MudWeight, ComplusoryFields.CirculationRate, ComplusoryFields.CurrencyForMudCost, ComplusoryFields.WellName, ComplusoryFields.ReportType, DataIdentity.DataID
FROM (BottomHoleAssembly RIGHT JOIN ComplusoryFields ON BottomHoleAssembly.DataID = ComplusoryFields.DataID) RIGHT JOIN DataIdentity ON ComplusoryFields.DataID = DataIdentity.DataID;
All tables are joined by a DataID .The DataIdentity table suppies the DataID to use
ihe
|
|
|
|
|
I have been looking into creating a calculator that requires the user to type in what they want solved. Not order, no clicking buttons, and no parentheses. They type everything in, click a button, and poof. They get their answer. Obviously, this needs to follow the order of operations (PEMDOS). For the time being, i am not doing square roots or powers. I would like the user to be able to type in the stuff they want solved in infix notation, while it should be solved using RPN. I have problems coming up with code to convert it- probably because i dont entirely understand the conversion. Here is a link to what i found, which pretty much spells it out.
http://en.wikipedia.org/wiki/Shunting_yard_algorithm[^]
If anyone could help me with the code to convert infix notation to RPN, i would be very thankful. As of right now, this is what i have.
<br />
equation = txtequation.text<br />
length = len(equation)<br />
for i = 1 to length<br />
temp = mid(equation,i,1)<br />
tempstack.add temp<br />
output = output & temp<br />
next i<br />
but of course, that doesnt move stuff around.
|
|
|
|
|
I created a new class and inherited the windows combobox. I also created a TextChanged event for the combobox. Then compiled it into a dll. When I use the combobox in a windows project the TextChanged event does not fire. What do I need to do to get it to work?
|
|
|
|
|