|
Ok, I don't actually have any customers, yet.
But, I have one beta tester using it live and he cannot lose the data that he has entered so far.
I am thinking ahead - if I had to add a column to a table after I have a number of users with their own databases, I have to be able to add a column programmatically. I have exactly that situation right now even though I only have one user.
It is probably a total of 3 statements that I would have to add to my Visual Basic 2005 program. One of them is:
ALTER TABLE Patient ADD CaseNbr Varchar(10)
But, I don't know what the other 2 are.
|
|
|
|
|
OK, here is my programming attempt:
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlConnection As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\patient.mdf;Integrated Security=True;User Instance=True")
Dim command As New System.Data.SqlClient.SqlCommand
command.CommandText = "ALTER TABLE Patient ADD CaseNbr Varchar(50)')"
sqlConnection.Open()
command.ExecuteNonQuery()
sqlConnection.Close()
End Sub
End Class
I got the following error when I executed:
An attempt to attach an auto-named database for file C:\Documents and Settings\Owner\My Documents\Visual Studio 2005\Projects\Add Column\Add Column\bin\Debug\patient.mdf failed. A database with the same name exists, or specified file cannot be opened, or it is located on UNC share.
|
|
|
|
|
Here is another attempt:
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Sql As String = "ALTER TABLE Patient ADD CaseNbr Varchar(50)"
Using connection As New OleDbConnection("Data Source=.\SQLEXPRESS;Provider=SQLOLEDB;AttachDbFilename=|DataDirectory|\Patient.mdf;Integrated Security=True;User Instance=True")
Using command As New OleDbCommand(Sql, connection)
connection.Open()
command.ExecuteNonQuery()
connection.Close()
End Using
End Using
End Sub
End Class
It aborted with the following message:
No error message available, result code: DB_E_ERRORSOCCURRED(0x80040E21).
|
|
|
|
|
The connection string is wrong. You haven't told it what the database name is. Without that, it'll try to attach the same database file again, resulting in the error you got.
Driver={SQL Native Client};Server=.\SQLExpress;AttachDbFilename=|DataDirectory|mydbfile.mdf;Database=dbname;Trusted_Connection=Yes;
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
I ran the above code as a separate project.
Now, when I attempt to run my main application, it bombs out immediately with this same error!
An attempt to attach an auto-named database for file C:\Documents and Settings\Owner\My Documents\Visual Studio 2005\Projects\Add Column\Add Column\bin\Debug\patient.mdf failed. A database with the same name exists, or specified file cannot be opened, or it is located on UNC share.
|
|
|
|
|
Hello,
I want to show database information in a listbox using a SELECT query.
Something like:
lstGeselecteerdeagenten.Items.AddRange(daGroepAgent.SelectCommand(SELECT * FROM daGroepAgent))
??????????
|
|
|
|
|
You're going to have to seperate this. At least until the new version of VB.NET comes out.
Create a method that queries the database for the fields you want in the ListBox and returns it in DataTable. Then bind the ListBox to the DataTable and your done. There's no reason to use the Items.Add method.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Hello Dave,
Thanks for the info, it works.
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record. Clrtest
Microsoft.SqlServer.Server.SqlProcedure()
Public Shared Sub sbSetupGLProbe(ByVal Selections As StoredProcedures.GL_Record)
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
This code will compile and deploy when the Sql Server attribute is omitted but then t_sql cannot see it.
rkj
|
|
|
|
|
It's saying that the type GLRecord doesn't exist, at least not in the StoredProcedures class or namespace.
Why are you using "On Error Goto" when it's been deprecated by Try/Catch?
reykentj wrote: This code will compile and deploy when the Sql Server attribute is omitted
What attribute? Let see the definition as it's supposed to be written.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record. Clrtest
Public Class GL_Record
Public AccountNo As String = ""
Public AccountField As String = ""
Public Year As Integer = 0
Public Month As Integer = 0
Public YTD As Decimal = 0
Public MTD As Decimal = 0
Public LastTransAmount As Decimal
Public LastTransDate As Date = "01/01/01"
Public LastTransBy As String = ""
Public LastEffectiveDate As Date = "01/01/01"
Public NumberOfTrans As Long = 0
End Class
<microsoft.sqlserver.server.sqlprocedure()> _
Public Shared Sub sbSetupGLProbe(ByVal Selections As GL_Record)
Dim stDocName As String
Dim result As Long = 0
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
stDocName = "rptGL_Probe"
'DoCmd.OpenReport(stDocName, acPreview)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
On Error is being used because this is a conversion of small modules which may be later converted to try catch
rkj
|
|
|
|
|
Repost the code (Copy and Paste) and make sure you enable the "Ignore HTML tags in this message" checkbox before you hit "Post Message".
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record.
Public Class GL_Record
Public AccountNo As String = ""
Public AccountField As String = ""
Public Year As Integer = 0
Public Month As Integer = 0
Public YTD As Decimal = 0
Public MTD As Decimal = 0
Public LastTransAmount As Decimal
Public LastTransDate As Date = "01/01/01"
Public LastTransBy As String = ""
Public LastEffectiveDate As Date = "01/01/01"
Public NumberOfTrans As Long = 0
End Class
<Microsoft.SqlServer.Server.SqlProcedure()> _
Public Shared Sub sbSetupGLProbe(ByVal Selections As StoredProcedures.GL_Record)
Dim stDocName As String
Dim result As Long = 0
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
stDocName = "rptGL_Probe"
'DoCmd.OpenReport(stDocName, acPreview)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
Thank you for that suggestion. This code complies withou error but fails on deployment.
rkj
|
|
|
|
|
urgent!!! Does some body got some code project for BHO with VB or VB.net??? Any sample thats ok,,,thx
|
|
|
|
|
|
thx
do u have AD AUTO-POPUP code inside IE?
|
|
|
|
|
Try with this JavaScript
<SCRIPT TYPE="text/javascript"><br />
<!--<br />
function popup(mylink, windowname)<br />
{<br />
if (! window.focus)return true;<br />
var href;<br />
if (typeof(mylink) == 'string')<br />
href=mylink;<br />
else<br />
href=mylink.href;<br />
window.open(href, windowname, 'width=400,height=200,scrollbars=yes');<br />
return false;<br />
}<br />
</SCRIPT><br />
Regards,
Satips.
|
|
|
|
|
thx，that is useful,,,
Regards
Henry
|
|
|
|
|
Hi everyone
I need to create flowlayout in run time,in fact i did it but the graph that must be drawn on it ,does not show
i use breakpoint ,and i am sure that the procedure of drawing graph work correctly and my mistake is in defining flowlayoutpanel,plz help me to solve the problem
thanks alot
|
|
|
|
|
make sure you have me.controls.add(example) in your code. example being the defined name of your flow layout panel.
Posted by The ANZAC
|
|
|
|
|
Create a user control that contains the 'graph' and the flowlayoutpanel. Then just add the user control during runtime.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios[ ^]
|
|
|
|
|
Hi,
I need users to click particular cell in list view, and on click need to change its back color.
I am having 3 rows and 4 columns. I need users to able to click on any row, 2 column cells, and on click i need to change its back color?
How to do this, any help?
Rams.
Be simple and Be sample.
|
|
|
|
|
when i run any project in .net, server controls like command button, text boxes, list boxes etc. are not visible. It might be a IIS problem. but how to correct it.
Chaitra N
|
|
|
|
|
Re-Install IIS.
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
Run aspnet_regiis from your .NET folder, sounds like ASP.NET in not installed. Reinstalling IIS would certainly mean you'd need to do this, before it would work again.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
