Αποστολή από: ALEX_SSGTi στις Απριλίου 02, 2013, 04:43:50 μμ
12:00.
Ιπποκράτους 44, Αθήνα.
Νέοι γλυκά.
::talking_smilie:: ::gathering:: ::talking_smilie:: ::gathering:: ::talking_smilie:: ::gathering:: ::talking_smilie:: ::gathering:: ::talking_smilie:: ::gathering::
Αποστολή από: gkontog στις Απριλίου 02, 2013, 04:45:23 μμ
Αποστολή από: giwrgosd στις Απριλίου 02, 2013, 06:14:22 μμ
Αποστολή από: dive στις Απριλίου 02, 2013, 06:57:48 μμ
12πμ
Ιπ. 44 Α
ΝΓ
Αποστολή από: Spook στις Απριλίου 02, 2013, 07:47:06 μμ
Αποστολή από: leopard στις Απριλίου 02, 2013, 08:28:35 μμ
:mrgreen:
Αποστολή από: gtdeath13 στις Απριλίου 02, 2013, 08:33:04 μμ
Και που το ανοίγει χάρη μας κάνει τελικά...όπως κι εσύ όταν έρχεσαι.... :twisted: :twisted: ::glossa::
:mrgreen:
Αποστολή από: leopard στις Απριλίου 02, 2013, 08:33:49 μμ
::glossa:: :mrgreen: ::glossa::
Αποστολή από: dive στις Απριλίου 02, 2013, 08:34:24 μμ
::glossa::
τελικά ...έχει δημιουργήσει μύθο γύρω απο το όνομα του. :wink: :mrgreen:
Αποστολή από: gkontog στις Απριλίου 02, 2013, 08:37:12 μμ
Public Shared Function MeetingStringBuild(ByVal datMeetingDate As DateTime) As String
Dim strRetVal As String = ""
Try
strRetVal = "Συγκέντρωση στην Αθήνα την {0} για καφέ, model-sighting και " & _
"μοντελοκουβέντες στο Cafe Lure στην Ιπποκράτους 44. " & _
"Ωρα προσέλευσης 12:00. Οσοι έρχονται πρώτη φορά μπορούν να φέρουν γλυκα."
strRetVal = String.Format(strRetVal, New String() {datMeetingDate.ToString("dd/MM/yyyy")})
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
End Try
Return strRetVal
End Function
Οπότε κάθε Δευτέρα γράφεις:
Dim objTopic as new Topic(MeetingStringBuild(System.Datetime.Now.Date.AddDays(6)))
objTopic.Post
και έληξες. Γιατί ο καλός προγραμματιστής πρέπει να είναι τεμπέλης!
::glossa::
Αποστολή από: gtdeath13 στις Απριλίου 02, 2013, 08:40:27 μμ
Αποστολή από: Blackbeard στις Απριλίου 02, 2013, 08:43:08 μμ
Παράθεση
Public Shared Function MeetingStringBuild(ByVal datMeetingDate As DateTime) As String
Dim strRetVal As String = ""
Μήπως έχουμε καμιά φωτό από αυτά τα στρινγκ;
Αποστολή από: leopard στις Απριλίου 02, 2013, 08:50:04 μμ
Μπάφο έχουν...
:mrgreen:
Αποστολή από: gkontog στις Απριλίου 02, 2013, 08:51:06 μμ
Κι εσύ τώρα Γιώργο περιμένεις να το μάθει ο Αλέξης αυτό το πράγμα; Εδώ την αλφαβήτα την έμαθε στην έκτη δημοτικού... Να οι τενεκέδες με το λάδι εκ Φιλιατρών Μεσσηνίας για να περάσει ο μικρός Αλέξης τις τάξεις... ::glossa:: ::glossa:: ::glossa::Ναι, έχεις δίκιο, οπότε δίνω και user interface.
Αποστολή από: gtdeath13 στις Απριλίου 02, 2013, 09:05:30 μμ
Αποστολή από: jim-eta στις Απριλίου 02, 2013, 09:06:01 μμ
Τα Φιλιατρά δεν έχουν λάδι...
Μπάφο έχουν...
:mrgreen:
Κάνεις λάθος παπάκια και το μπάφο βγάζουν και το Φοβερό λαδάκι βγάζουν,αλλά και τα περίφημα αγγούρια των Φιλιατρών βγάζουνε που είναι τόσο και χωρίς το συμπάθειο.
:mrgreen: :mrgreen: :mrgreen:
Αποστολή από: jim-eta στις Απριλίου 02, 2013, 09:19:28 μμ
Εγώ δε σας κάνω χάρη, τιμή σας κάνω ρεμάλια :!: :!: :!:
::glossa:: :mrgreen: ::glossa::
Σιγά την τιμή που μας κάνεις,έτσι και αλλιώς έχουμε ξεχάσει πως είσαι.
:mrgreen: :mrgreen:
Αποστολή από: ALEX_SSGTi στις Απριλίου 02, 2013, 09:30:28 μμ
Κι εσύ τώρα Γιώργο περιμένεις να το μάθει ο Αλέξης αυτό το πράγμα; Εδώ την αλφαβήτα την έμαθε στην έκτη δημοτικού... Να οι τενεκέδες με το λάδι εκ Φιλιατρών Μεσσηνίας για να περάσει ο μικρός Αλέξης τις τάξεις... ::glossa:: ::glossa:: ::glossa::
Στο Γυμνάσιο, πιο Δημοτικό. Και πάλι έχω μερικά κενά. Αλλά ήξερα να μετράω μέχρι το 100 και ανάποδα! ::glossa::
Σιγά την τιμή που μας κάνεις,έτσι και αλλιώς έχουμε ξεχάσει πως είσαι.
:mrgreen: :mrgreen:
Για ποιον λες? Ποιος είναι αυτός ο leopard? :twisted:
Ναι, έχεις δίκιο, οπότε δίνω και user interface.
(Image removed from quote.)
Το πατάω, αλλά δεν γίνεται κάτι. Τι κάνω λάθος? Επίσης σου έχω ξαναπεί. Μην γράφεις Klingon!!! :twisted: :twisted: :twisted:
ή θα μας ζητάει να του κάνουμε καταθεση σε λογαριασμό για να το ανοίξει......
::glossa::
τελικά ...έχει δημιουργήσει μύθο γύρω απο το όνομα του. :wink: :mrgreen:
Κατάθεση, ε?
Ωραία ιδέα!
:twisted: :twisted: :twisted: :mrgreen: :mrgreen: :mrgreen:
Αποστολή από: dive στις Απριλίου 02, 2013, 09:56:59 μμ
Ελάτε, πείτε την αλήθεια: Πόσοι πατήσατε το κουμπί για να δείτε αν θα γίνει κάτι; ::glossa:: ::glossa::εμένα μου κάνει εντύπωση που δεν είναι functional το κουμπί.....
Γιωργο......τεμπελίαζουμε ή μου φαίνεται ::lol18:: ::lol18:: ::lol18:: ::lol18:: ::lol18::
Αποστολή από: giwrgosd στις Απριλίου 02, 2013, 10:24:41 μμ
Εγώ θα το είχα ορίσει με αυτόματο δαιμόνιο (ακα Daemon) να τρέχει το script κάθε Δευτέρα πρωί στις 0600 ας πούμε...
Μισές δουλειές... Μα να πρέπει να θυμάται να πατήσει και το κουμπί;
Αποστολή από: gtdeath13 στις Απριλίου 02, 2013, 10:36:53 μμ
Τστστστς...::arrowred:: gkontog : εμένα δεν θα μου μίλαγε έτσι... ::glossa:: ::glossa:: ::glossa::
Εγώ θα το είχα ορίσει με αυτόματο δαιμόνιο (ακα Daemon) να τρέχει το script κάθε Δευτέρα πρωί στις 0600 ας πούμε...
Μισές δουλειές... Μα να πρέπει να θυμάται να πατήσει και το κουμπί;
Αποστολή από: pgpelect στις Απριλίου 02, 2013, 10:51:55 μμ
Στο Γυμνάσιο, πιο Δημοτικό. Και πάλι έχω μερικά κενά. Αλλά ήξερα να μετράω μέχρι το 100 και ανάποδα! ::glossa::Κάπως έτσι;
(http://postimg.org/image/7fqoirj0f/)Αποστολή από: gkontog στις Απριλίου 02, 2013, 10:57:10 μμ
::arrowred:: gkontog : εμένα δεν θα μου μίλαγε έτσι... ::glossa:: ::glossa:: ::glossa::Εντάξει λοιπόν! Τρέχει αυτόματα σε SQL Server.
USE [mοdelclub]
GO
/****** Object: Job [WeeklyMetting] Script Date: 04/02/2013 22:44:53 ******/
IF EXISTS (SELECT job_id FROM msdb.dbo.sysjobs_view WHERE name = 'WeeklyMetting')
EXEC msdb.dbo.sp_delete_job @job_id=N'47b10310-5385-47f0-bc15-9eea71a48203', @delete_unused_schedule=1
GO
USE [mοdelclub]
GO
/****** Object: Job [WeeklyMetting] Script Date: 04/02/2013 22:44:53 ******/
BEGIN TRANSACTION
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
/****** Object: JobCategory [Database Maintenance] Script Date: 04/02/2013 22:44:53 ******/
IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'Database Maintenance' AND category_class=1)
BEGIN
EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @type=N'LOCAL', @name=N'Database Maintenance'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
END
DECLARE @jobId BINARY(16)
EXEC @ReturnCode = msdb.dbo.sp_add_job @job_name=N'WeeklyMetting',
@enabled=1,
@notify_level_eventlog=2,
@notify_level_email=0,
@notify_level_netsend=0,
@notify_level_page=0,
@delete_level=0,
@description=N'No description available.',
@category_name=N'Database Maintenance',
@owner_login_name=N'PLATINUM\Administrator', @job_id = @jobId OUTPUT
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
/****** Object: Step [WeeklyMetting.Subplan_1] Script Date: 04/02/2013 22:44:54 ******/
EXEC @ReturnCode = msdb.dbo.sp_add_jobstep @job_id=@jobId, @step_name=N'Subplan_1',
@step_id=1,
@cmdexec_success_code=0,
@on_success_action=1,
@on_success_step_id=0,
@on_fail_action=2,
@on_fail_step_id=0,
@retry_attempts=0,
@retry_interval=0,
@os_run_priority=0, @subsystem=N'SSIS',
@command=N'/Server "$(ESCAPE_NONE(SRVR))" /SQL "Maintenance Plans\Daily backup" /set "\Package\Subplan_1.Disable;false"',
@flags=0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_update_job @job_id = @jobId, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id=@jobId, @name=N'WeeklyMetting',
@enabled=1,
@freq_type=8,
@freq_interval=127,
@freq_subday_type=1,
@freq_subday_interval=0,
@freq_relative_interval=0,
@freq_recurrence_factor=1,
@active_start_date=20110123,
@active_end_date=99991231,
@active_start_time=0,
@active_end_time=235959,
@schedule_uid=N'f312dbb6-5abe-47f3-a047-9ac18c198792'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @jobId, @server_name = N'(local)'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:
GO
Αποστολή από: giwrgosd στις Απριλίου 02, 2013, 11:05:05 μμ
::good_job_smilie::
Αποστολή από: Blackbeard στις Απριλίου 02, 2013, 11:06:13 μμ
Αυτό γιατί δεν έχει String;
Αποστολή από: HARTMANN7 στις Απριλίου 02, 2013, 11:24:06 μμ
Δεν παίζω...Είναι νεότερη version και δεν φοράει τπτ :mrgreen: ::glossa::
Αυτό γιατί δεν έχει String;
Αποστολή από: dive στις Απριλίου 03, 2013, 12:20:04 πμ
::glossa::
Αποστολή από: mmaker στις Απριλίου 03, 2013, 06:58:09 μμ
Εντάξει λοιπόν! Τρέχει αυτόματα σε SQL Server.Λάθος τόπικ φίλε!
USE [mοdelclub]
GO
/****** Object: Job [WeeklyMetting] Script Date: 04/02/2013 22:44:53 ******/
IF EXISTS (SELECT job_id FROM msdb.dbo.sysjobs_view WHERE name = 'WeeklyMetting')
EXEC msdb.dbo.sp_delete_job @job_id=N'47b10310-5385-47f0-bc15-9eea71a48203', @delete_unused_schedule=1
GO
USE [mοdelclub]
GO
/****** Object: Job [WeeklyMetting] Script Date: 04/02/2013 22:44:53 ******/
BEGIN TRANSACTION
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
/****** Object: JobCategory [Database Maintenance] Script Date: 04/02/2013 22:44:53 ******/
IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'Database Maintenance' AND category_class=1)
BEGIN
EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @type=N'LOCAL', @name=N'Database Maintenance'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
END
DECLARE @jobId BINARY(16)
EXEC @ReturnCode = msdb.dbo.sp_add_job @job_name=N'WeeklyMetting',
@enabled=1,
@notify_level_eventlog=2,
@notify_level_email=0,
@notify_level_netsend=0,
@notify_level_page=0,
@delete_level=0,
@description=N'No description available.',
@category_name=N'Database Maintenance',
@owner_login_name=N'PLATINUM\Administrator', @job_id = @jobId OUTPUT
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
/****** Object: Step [WeeklyMetting.Subplan_1] Script Date: 04/02/2013 22:44:54 ******/
EXEC @ReturnCode = msdb.dbo.sp_add_jobstep @job_id=@jobId, @step_name=N'Subplan_1',
@step_id=1,
@cmdexec_success_code=0,
@on_success_action=1,
@on_success_step_id=0,
@on_fail_action=2,
@on_fail_step_id=0,
@retry_attempts=0,
@retry_interval=0,
@os_run_priority=0, @subsystem=N'SSIS',
@command=N'/Server "$(ESCAPE_NONE(SRVR))" /SQL "Maintenance Plans\Daily backup" /set "\Package\Subplan_1.Disable;false"',
@flags=0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_update_job @job_id = @jobId, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id=@jobId, @name=N'WeeklyMetting',
@enabled=1,
@freq_type=8,
@freq_interval=127,
@freq_subday_type=1,
@freq_subday_interval=0,
@freq_relative_interval=0,
@freq_recurrence_factor=1,
@active_start_date=20110123,
@active_end_date=99991231,
@active_start_time=0,
@active_end_time=235959,
@schedule_uid=N'f312dbb6-5abe-47f3-a047-9ac18c198792'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @jobId, @server_name = N'(local)'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:
GO
Στα Sci-Fi να το ποστάρεις
Α και μην ξεχάσεις να βάλεις tags για μελλοντική αναζήτηση! ::glossa::