qq_31584315的博客

数据库

Option Compare Database'按批次分配Private Sub Command0_Click() 'ADO连接数据库 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String Dim name As String, pass As String '复制库存表做临时表 On Error Resume Next strSQL = .

1.DateTime YYD = DateTime.Parse(dr["intime"].ToString()); 2.string ExcelName = DateTime.Now.ToString("yyyy") + DateTime.Now.ToString("MM") + DateTime.Now.ToString("dd"...