|
Thanks again Sterve for further help.
I just expect to have a sample Stored Procedure, which implements Referential Integrity. The rest, I may try to manage myself.
Sorry for asking for more of your valuable time.
Best regards.
|
|
|
|
|
No problem. I don't mean to sound too harsh it's just that to provide detailed instructions on this board does take some time to do properly and there are other resources (either on this board or other web sites) that do address your questions. It's just a matter of finding them. I'm very glad to help where I can.
If you have access to the MSDN documentation, it provides some great info on transact-SQL and stored procedures, triggers, referential integrity etc. - most may be available free on the web too. Try a Google search and I'm sure that there will be something in the first few results that may be of interest.
Take your time to learn about the subject properly. It is something that cannot be learnt in one night.
...Steve
|
|
|
|
|
Hello again,
I'm trying to have have a command button that will map drives in vb.net...I have some code that does it...but it uses a command shell to map the drive and if the drive is already in use it does not show an error messsage to say it is not connected...I would also like a message showing that it is connected...I'll show you my code hopefully someone can show me where I went wrong...thanks again guys!
Private Sub btnMap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMap.Click
Dim ServerName As String
ServerName = txtIP.Text
Try
System.Diagnostics.Process.Start("net", "use h: \\" & ServerName & "\c$")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Andrew "Wondering where I went Wrong" Kong
|
|
|
|
|
Try this bit of code: (modify to suit your program)
Dim oNet As Object
Dim arrDrives() As String
Try
oNet = CreateObject("Wscript.Network")
'
' GetLogicalDrives returns an array with each entry
' being of the form "X:\" where X is the drive letter.
'
arrDrives = System.Environment.GetLogicalDrives
'
' Detect if it is already mapped.
'
If arrDrives.IndexOf(arrDrives, sDriveLetter.ToUpper & "\") >= arrDrives.GetLowerBound(0) Then
'
' optionally remove the drive
'
'oNet.RemoveNetworkDrive(sDriveLetter)
End If
'
' Map it.
'
Dim s As String = ""
s = oNet.MapNetworkDrive(sDriveLetter, sUNCPath)
'
' Report any errors by throwing an exception.
'
If s <> "" Then
Dim ex As New IOException("Unable to map the " & sDriveLetter & " drive. " & s & " - " & Err.Description)
Throw ex
End If
Catch ex As Exception
End Try
...Steve
|
|
|
|
|
I am getting the error message "Access of shared member or nested type through an instance; qualifying expression will not be evaluated." for the arrDrives.IndexOf line
I set the constant sDriveLetter and sUNCPath as:
Dim sDriveLetter As String = txtDrive.Text
Dim sUNCPath As String = txtIP.Text
but it still has not worked...
|
|
|
|
|
I assure you that code works very well on my system and it is in daily use.
Does the code compile? Maybe there is a typo or you have not included the required libraries?
Try stepping thru it in the debugger and inspect all the parameters to those calls. Something is not in the correct format as expected. Also look at the help files for the various methods and functions being used.
...Steve
|
|
|
|
|
I dont deny that your code works
I was thinking that maybe I'm missing the library...or perhaps the changes I made in the declaration are the problem...definately not typo though
Andrew
|
|
|
|
|
Hi all,
hope you can help me. I'm trying to create a dice roll project. I can't get the images to be randomly generated though. for the second one I tried picturebox instead of label - but I think that was probably wrong too.
any ideas?
thanks,
chris
Private Sub ButtonGooi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGooi.Click
Dim Dice As Integer
Dice = (6 * Rnd())
Select Case Dice
Case 1
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 2
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 3
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 4
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
End Select
End Sub
Private Sub ButtonResultaatTonen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonResultaatTonen.Click
Dim LetsPlay As New FormToonDobbelStenen
LetsPlay.Show()
End Sub
Private Sub FormDobbel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
randomize ()
End Sub
End Class
|
|
|
|
|
It looks like you're selecting the Dice at random but you are still loading the image controls in the same order (i.e. 1 thru 6) and the last one loaded will be the one displayed (i.e. "6").
You should be using the Dice variable (or another randomly generated one) to determine the face showing on the selected die.
Check that Dice = 6 * Rnd() will actually return an integer from 1 to 6 (hint: it doesn't the way it is coded now).
Additionally, if you only need to show one dice face this code can be simplified by removing the redundant image control load statements. If you need to show all faces of each die then be aware that opposite sides of the die total 7 (that is to say that 1 and 6 are on opposite sides of the die, as are 2 and 5, and 3 and 4).
...Steve
|
|
|
|
|
Is there any function to calculate z position in vb. We can calculate the x and y axis but how can we calculate the z axis. It is urgent.
|
|
|
|
|
Ummm.... This may be sound like a stupid question, but, calculate the z-position of what? Mars?????
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
maybe you can look for a prebuilt class with a zfromxandy function.
|
|
|
|
|
Hi Dev Gang
I have a folder with text files in it.. I would like to loop through each of the text files and look for a string e.g."me@here.com.au" and increment a count as each one is found...
Any Ideas?
I am new to programming and can reed text files but this is a little more than that so any help would be great...
Thanks Heaps...
When people make you see red, be thankful your not colour blind.
|
|
|
|
|
If you know how to read textfiles as you say then it's rather easy. Let's suppose you read the textfile in a filecontent string and you look for something stored in the string texttolook then
if filecontent.indexof(texttolook)<>-1 then yourcounter += 1
that's it. And move onto the next file.
|
|
|
|
|
Okay, here's some pseudocode for you. I hope that it helps.
Construct a Regex for your search string
Initialize your count variable to 0
For each file in the directory
Open the file
Read it to the end and store the string
Find the number of matches to the regex in the string
Increment your count variable by that number and, some example (but not necessarily compilable) code
Dim i As Integer
Dim r As Regex
r = New Regex("me@here.com.au")
Dim fileEntries As String() = Directory.GetFiles(targetDirectory)
Dim fileName As String
For Each fileName In fileEntries
i = i + r.Matches(File.OpenText(fileName).ReadToEnd()).Count
Next
"we must lose precision to make significant statements about complex systems."
-deKorvin on uncertainty
|
|
|
|
|
Hi all,
I'm trying to use the Winsock component but when I receive data from the client conection the data buffer is empty although that the "bytesTotal" has the right value.
<br />
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)<br />
Dim data As String<br />
Winsock1.GetData(data)<br />
<br />
Text1.Text = Text1.Text & data<br />
End Sub<br />
If I try to add the type parameter (vbString) I can't compile: "Waiting for ="
Any idea??
Thanks in advance.
... she said you are the perfect stranger she said baby let's keep it like this... Dire Straits
|
|
|
|
|
I am not able to get what I can see in preview in CRystal report 9. Also I am not able to set the tab spaces and spaces properly in Text Boxes if a I add a large amount of text in it.
I have designed that CR9 in VB 6.0.....
Pls help me out in this
Whats the solution for this or alternate solution
** A Fighter Never Loses !!!!
|
|
|
|
|
hi all,
i m working on a vb.net project. i have used SQL SERVER 7.0 as backend.To save an information into database i used varchar datatype that has 8000 length, i m in trouble coz a particular data field has more than 50000 char.
how to save this field into data base.
what should i do????
Please suggest me any logic to storing it.
hi this ajay bharti
|
|
|
|
|
Try using a datatype of TEXT. Read up on it in the MSDN online help.
...Steve
|
|
|
|
|
Three options.
1) You chamge the datatype in something else (i.e. a text) or if you can't
2) You split the data into 7 fields each 8000 char or if you can't
3) You store your data in a different position (i.e. a file or another DB) and you put in your fied a reference to that information or....
4) ..I don't know!
|
|
|
|
|
Hi,
Can anyone please give me the code snippet in vb6 to check if MDAC is present on a machine and the MDAC version number if it is present.
Right now i have a code that checks the ADO version.
Here is the code:
Option Explicit
Function GetAdoVersion() As String
'Returns an empty string if ADO is not installed
Dim o As Object
On Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 Then
GetAdoVersion = o.Version
Label1.Caption = "ADO Version = " & o.Version
Else
Label1.Caption = "ADO is not installed"
End If
End Function
Private Sub Form_Load()
Call GetAdoVersion
End Sub
Are ADO version and MDAC version the same always?
Thanks in advance,
Sarah
-- modified at 6:12 Thursday 24th November, 2005
|
|
|
|
|
It's not that simple. No ADO and MDAC versions are NOT always the same. Various applications can install differing versions on their own, without installing the complete MDAC package.
There is no reliable way to determine whcih version your using. Component Checker[^] will scan your machine to determine which version of MDAC your machine has installed, or the closest match. It'll show you what pieces are missing and what's installed, as well as the version information for each .DLL.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok.Thanks for taking the time to reply.
-- modified at 0:34 Saturday 26th November, 2005
|
|
|
|
|
|
I really cannot get into the DB story. Anyway this is what it happens.
I'm running VS2005 and MS SQL Server Express. I created a DB under the SQL server and it works. I filled the data manually (right click on the table and see table data) and it works.
At application start I load data into a dataset with the autocreated tableadabter fill method:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
ta.Fill(dbVeicoli)
and it works beacuse the dataset contains the test rows I inserted manually.
Now I have a form to create a new record .. not directly linked but on the OK command click I:
Dim mVehicle As RF_MapDataSet.VeicoliRow<br />
'<br />
mvehicle = dbVeicoli.NewVeicoliRow<br />
mvehicle.ID = CreateID()<br />
mvehicle.Nome = txtNome.Text<br />
...and all the other fields...<br />
dbVeicoli.AddVeicoliRow(mvehicle)
And it works, in the sense that the dataset contains the new row and it's showed somewhere else in the app..... now on the main form closing I want to save the DB and according to documentation it should be very easy:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
ta.Update(dbVeicoli)
Unfortunately it isn't beacuse the DB has still only the original, manually entered, records. Where do I go wrong?
I tried also another way. Rather than updating the dataset, I tried to create new records directly in the DB with this code:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
'<br />
ta.Insert(CreateID(), txtNome.Text, txtModello.Text, _<br />
txtTipo.Text, txtAnno.Text, txtColore.Text, _<br />
txtTarga.Text, dtpInizio.Value, dtpFine.Value, _<br />
cmbDispositivo.SelectedIndex.ToString, _<br />
1, txtVoce.Text, txtDati.Text, dtpCreazione.Value, _<br />
txtLineaDati.Text, txtLineaSMS.Text, _<br />
txtLineaVoce.Text, Now, "", "", 0, 0, "", "", "", "", _<br />
"", "", 0, "")
but then again the DB is immaculate as before. It comes without saying that I get no exceptions ... so the code seems to work correctly with the DB.
What am I missing?
|
|
|
|