|
have created function in class file.
Public Shared Function dsCntrctET() As DataSet
Dim sqlCntrct As String = "Select * from CNTRCT_ET where CNTRCT_ID=" & CISCNO
Dim cmdCISContract As New OracleCommand
Dim daCISCntrct As New OracleDataAdapter
Dim dsCISCntrct As New DataSet
Dim cmdCISBuilder As New OracleCommandBuilder
Try
With cmdCISContract
.Transaction = myTransCIS
.CommandText = sqlCntrct
.Connection = cnCIS
End With
daCISCntrct = New OracleDataAdapter(cmdCISContract)
daCISCntrct.FillSchema(dsCISCntrct, SchemaType.Source)
cmdCISBuilder = New OracleCommandBuilder(daCISCntrct)
With daCISCntrct
.TableMappings.Add("Table", "CNTRCT_ET")
.Fill(dsCISCntrct)
.SelectCommand = cmdCISContract
.InsertCommand = cmdCISBuilder.GetInsertCommand
.UpdateCommand = cmdCISBuilder.GetUpdateCommand
.DeleteCommand = cmdCISBuilder.GetDeleteCommand
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return (dsCISCntrct)
End Function
it returns dataset that i can use for getting value from table.
but while saving data, i have to use dataadapter for da.update(ds,"table") and ds.acceptchanges.
this i have to use in multiple forms as this data comes from 3rd party so i dont want to write this in every form . so i thought how to return data adapter and dataset from the same function. as i wanted to use daCISCntrct and dsCISCntrct.
|
|
|
|
|
Pass any other objects you want to return in as an out parameter.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
i didnt really get you.
can you please provide some small example.
|
|
|
|
|
Hi Can someone please help, I am New to vb2005 Codeing so please be gentle.
Here is my code, I can only move forward or goto first but the .MovePrevious() and .Movelast()last give me an error.
Public Class Form1
Dim MyConnObj As New ADODB.Connection 'ADODB Connection Object
Dim myRecSet As New ADODB.Recordset 'Recordset Object
Dim sqlStr As String ' String variable to store sql command
Dim c As String
Dim tot As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyConnObj.Open( _
"Provider = sqloledb;" & _
"Data Source=LINK-2927;" & _
"Initial Catalog=Sage200_DemoData;" & _
"User ID=sa;" & _
"Password=link12?;")
sqlStr = "select * from SLCustomerAccount"
myRecSet.Open(sqlStr, MyConnObj)
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
myRecSet.MoveFirst()
End Sub
Private Sub NextButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextButton.Click
With myRecSet
.MoveNext()
If .EOF() = False Then
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
Else
.MoveFirst()
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
End If
End With
End Sub
Private Sub LastButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LastButton.Click
With myRecSet
.MoveLast()
If .EOF() = False Then
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
Else
.MoveLast()
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
End If
End With
End Sub
Private Sub previousButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousButton.Click
With myRecSet
.MovePrevious()
If .EOF() = False Then
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
Else
.MoveFirst()
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
End If
End With
End Sub
Private Sub FirstButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirstButton.Click
With myRecSet
.MoveFirst()
If .BOF() = False Then
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
Else
.MoveFirst()
TextBox1.Text = "" & myRecSet.Fields!CustomerAccountName.Value
TextBox2.Text = "" & myRecSet.Fields!CustomerAccountNumber.Value
End If
End With
End Sub
End Class
Help
Thanks
Stephen
|
|
|
|
|
By the look of things, you are used to vb6. Welcome to vb.net.
Aside from the fact that you can do a lot of things much easier in vb.net / Visual Studio, the very first thing is error handling.
To find out what the error is, enclose the code in each sub in a try catch clause:
Private Sub FirstButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirstButton.Click
Try
'your code here
Catch ex as Exception
MsgBox(ex.tostring)
End Try
End Sub
This will tell you what the error is, and exactly on which line it occurs (you can turn on line numbers in Visual Studio to make it easier).
My advice is free, and you may get what you paid for.
|
|
|
|
|
Thanks for the promt reply.
Stephen
|
|
|
|
|
Hi Experts,
I have a datagrid in which i want to give validation to each cell of my DataGridView...
such as 1st cell should take only "integer", 2nd "string"..........
Thanks
|
|
|
|
|
I use the CellValidating event of the grid and write my own validation methods. If the cell doesn't pass validation then you can call the CancelEdit() method which will revert the cell's invalid value back to the previous value.
|
|
|
|
|
Thanks for reply!!!
I am trying alot but got error for same.....can you please send me sample code for same....
|
|
|
|
|
If you post your code and the error you are getting I'm sure that myself or somebody else will be able to point you in the right direction.
|
|
|
|
|
Private Sub dgvstock_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles dgvstock.CellValidating
Dim s As String
s = Convert.ToString(dgvstock.CurrentRow.Cells("Description").Value)
Dim a As Integer = s.IndexOfAny("0123456789".ToCharArray())
If a >= 0 Then
MessageBox.Show("Enter only characters")
End If
Here we check for validation for string
|
|
|
|
|
Ah I see. Well the CellValidating event validates the content of cell that has just lost focus (well that's the way I interpret it anyway). Therefore, you have to check which cell is being validated and then do the validation.
So what I do (and this isn't necessarily the best or the only way) is use a select statement to determone which cell is being validated and then do the required validation. Something like:
Select Case dgvstock.Columns(e.ColumnIndex).Name
Case "Description"
-- do your validation for the description column here --
End select
Hope this helps.
|
|
|
|
|
You can use DataGridView's CellValidating event for this.
|
|
|
|
|
I have this code and I need to add a shortcut key (CTRL+B) for this function
If I Press (CTRL+B) this function should be executed..
How to add it ...? and how to call this function?
Here is the part of the code and I have also attached full source code with it..
Private Sub Brwse_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brwse_Button.Click
Dim RetVal As Integer
Dim FolderName As String
FolderName = ""
RetVal = FolderBrowserDialog1.ShowDialog()
FolderName = FolderBrowserDialog1.SelectedPath
If Not (Trim(FolderName) = "") Then
LogLib_TxtBox.Text = FolderName
End If
End Sub
|
|
|
|
|
you would need to do it at the form level.
+turn keypreview on (property of the form)
+in the keydown_event, add the code to test if the control key is pressed and the b key is pressed via the 'e' argument of the routine
+if so, call brwse_button_click(nothing,nothing)
typically however, you also give the user a "hint" that the hot-key is available via a menu item or someother means. if you use the menu item, then you can assign the hot-key there.
Nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Whoops! Wrong reply button...
|
|
|
|
|
In addition to what nlarson said, move that code you want to call to its own sub instead of putting everything in the button handler. This will allow you to call the code from anywhere in the form without passing in arguments you don't have.
|
|
|
|
|
hi there
i want to check that IS SqlServer2005 is installed on my machine ???
i am using VB6.0
how can i do that ??
If the message is useful for U then please Rate This message...
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
Really am not a Fan of VB6 and i dont know why you still use it. But here is an example of C#
http://blogs.msdn.com/sqlexpress/archive/2006/07/29/682254.aspx[^]
to convert between languages use the Following link http://converter.telerik.com/[^]
Remember this is not for vb6
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.somee.com
http://www.vuyiswamaseko.tiyaneProperties.co.za
vuyiswa@its.co.za
http://www.itsabacus.co.za/itsabacus/
|
|
|
|
|
Hi,
I'm new to the programming world, but not the computer world. Anyway, I've just recently downloaded Visual Basic 2008 Express Edition, and so far I love it. However, I came across an old source file that's opensource on SourceForge.net and downloaded it. I was trying to upgrade the Project1.vbp using the VB2k8 Express upgrade wizard when it told me that the upgrade failed because the mdlFormHandling.bas file was missing. The problem is, I went into the folder and looked and it's not missing. It's right there. I took some screenshots to show you if anyone could please, please, please, please help me. I'm just a lowly college kid! No money for the big guns yet! >.<
The Upload Error Screenshot - http://i927.photobucket.com/albums/ad117/teknozwizard/UpgradeError.jpg[^]
File is there Screenshot - http://i927.photobucket.com/albums/ad117/teknozwizard/Fileisthere.jpg[^]
Please help this newb!!!
|
|
|
|
|
By the look of it, the studio is looking for the file in a different place. Check the path in the error message, against the path that the bas file is actually in.
You may have to copy the file to the path mentioned in the error message.
My advice is free, and you may get what you paid for.
|
|
|
|
|
I've got and tried to track through that filepath and.....nothing. I've done a system wide search and I don't have a file labelled "VB98" to try and find and get into to follow the rest of the path. I'm completely at a loss here. I thought that maybe it was looking for a library I didn't have so I went online and downloaded the libraries for VB2k8EE from microsoft's website and installed them, but unfortunately, I'm still having the same trouble....I can't copy the file's into the location because the location it's looking for them in doesn't seem exist and I'm not even sure what the full filepath would be because it gets cut off with the "\...\...\...\VB98\" and etc...I thank you for your response though.
|
|
|
|
|
You could try to copy the entire folder with the project you want to upgrade, to another location (preferably a simple one like c:/temp/myproject/), and try and upgrade again from there.
My advice is free, and you may get what you paid for.
|
|
|
|
|
hi to all
this may sound stupid cause i'm new to VBA.
in C# we are able to write in this way if i'm not wrong
int n = Convert.Toint16(textbox.Text)<br />
but how to write in VBA ???
thanks
veon
|
|
|
|
|
Dim n As Integer
n = CInt(textbox.Text)
I don't speak Idiot - please talk slowly and clearly
I don't know what all the fuss is about with America getting it's first black president. Zimbabwe's had one for years and he's sh*t. - Percy Drake , Shrewsbury
Driven to the arms of Heineken by the wife
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
