|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
兄弟们,想来你们都看过了昨天的比赛了。我现在的痛苦状跟当时应该差不多。希望本版.net老师不吝赐教,为小弟这一批迷途的羊羔指一条阳光之道!您也知道:学习技术如果只有一个人摸索,那是一件多么痛苦的事情!还有,如果万辛能得名师或长者指点,那又是多么一件幸福和快乐的事情!PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click备份数据库BACKUPDATABASETestTODISK=C:BackupWITHFormatDimcnAsSqlConnectionDimcmAsSqlCommandcn=getDB()cm=NewSqlCommand("BACKUPDATABASEJXbaseTODISK=C:BackupWITHFormat",cn)cn.Open()cm.ExecuteNonQuery()MsgBox("备份乐成")cn.Close()
EndSub
恢复PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickDimcnAsNewSqlConnectionDimcn1AsNewSqlConnectionDimmydrAsSqlDataReaderDimstrAsString
DimtmpConnectionStringAsString="DataSource=JJK;InitialCatalog=master;IntegratedSecurity=True"cn.ConnectionString=tmpConnectionStringcn1.ConnectionString=tmpConnectionStringcn.Open()cn1.Open()DimcmAsSqlCommand=NewSqlCommand("selectspidfrommaster..sysprocesseswheredbid=db_id(JXbase)",cn)mydr=cm.ExecuteReader()
Dimcm1AsSqlCommand=NewSqlCommand()cm1.Connection=cn1
While(mydr.Read())杀逝世历程
str="kill"&mydr("spid").ToString()cm1.CommandText=strcm1.CommandType=CommandType.TextApplication.DoEvents()cm1.ExecuteNonQuery()杀历程EndWhilemydr.Close()cm=NewSqlCommand("RESTOREDATABASEJXbaseFROMDISK=C:Backup",cn)恢复备份cm.ExecuteNonQuery()MsgBox("恢复乐成乐成")cn.Close()cn1.Close()
EndSub
java的设计机制:首先产生一个中间码,第二部编译为本地(机器)码。这个机制有很大的缺点。 |
|