home
products
contribute
download
documentation
forum
Home
Forums
New posts
Search forums
What's new
New posts
All posts
Latest activity
Members
Registered members
Current visitors
Donate
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Search titles only
By:
Menu
Log in
Register
Navigation
Install the app
Install
More options
Contact us
Close Menu
Forums
MediaPortal 1
Support
Electronic Program Guide
Copy EPG data of one channel to another?
Contact us
RSS
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="Nervesagent" data-source="post: 1201327" data-attributes="member: 146416"><p>I wrote a MS Access form to take care of this for me. You'd need to know how to install an odbc driver and create a form with a button though..</p><p></p><p>Here's my code:</p><p></p><p>[CODE]</p><p></p><p>Dim sSource As String</p><p>Dim sTarget As String</p><p>Dim ssql</p><p></p><p>With Form.Recordset</p><p>If Not Form.Recordset.EOF = True Then</p><p> Form.Recordset.MoveLast</p><p> Form.Recordset.MoveFirst</p><p>End If</p><p>While Not Form.Recordset.EOF = True</p><p> sSource = Form.Recordset("Channel")</p><p> sTarget = Form.Recordset("CopyToChannel")</p><p> ssql = "SELECT program.* INTO tblTemp FROM program WHERE program.idChannel=" & sSource</p><p> DoCmd.RunSQL ssql</p><p> DoCmd.RunSQL "UPDATE tblTemp SET idchannel=" & sTarget</p><p> DoCmd.RunSQL "UPDATE tblTemp SET idprogram=NULL"</p><p> DoCmd.RunSQL "INSERT INTO program SELECT * FROM tblTemp"</p><p> DoCmd.RunSQL "DROP TABLE tblTemp"</p><p> Form.Recordset.MoveNext</p><p>Wend</p><p>End With</p><p>End Sub</p><p></p><p>[/CODE]</p></blockquote><p></p>
[QUOTE="Nervesagent, post: 1201327, member: 146416"] I wrote a MS Access form to take care of this for me. You'd need to know how to install an odbc driver and create a form with a button though.. Here's my code: [CODE] Dim sSource As String Dim sTarget As String Dim ssql With Form.Recordset If Not Form.Recordset.EOF = True Then Form.Recordset.MoveLast Form.Recordset.MoveFirst End If While Not Form.Recordset.EOF = True sSource = Form.Recordset("Channel") sTarget = Form.Recordset("CopyToChannel") ssql = "SELECT program.* INTO tblTemp FROM program WHERE program.idChannel=" & sSource DoCmd.RunSQL ssql DoCmd.RunSQL "UPDATE tblTemp SET idchannel=" & sTarget DoCmd.RunSQL "UPDATE tblTemp SET idprogram=NULL" DoCmd.RunSQL "INSERT INTO program SELECT * FROM tblTemp" DoCmd.RunSQL "DROP TABLE tblTemp" Form.Recordset.MoveNext Wend End With End Sub [/CODE] [/QUOTE]
Insert quotes…
Verification
Post reply
Forums
MediaPortal 1
Support
Electronic Program Guide
Copy EPG data of one channel to another?
Contact us
RSS
Top
Bottom